wnareg.~pas

万能查询万能查询万能查询万能查询万能查询

unit WNAReg;

interface

uses
  AdoConEd, Dialogs,
  DesignIntf, DesignEditors;
type  

TConnectionStringProperty = class(TStringProperty)
public
  function GetAttributes: TPropertyAttributes; override;
  procedure Edit; override;
end;

implementation

procedure TConnectionStringProperty.Edit;
begin
   ShowMessage('');
end;

function TConnectionStringProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog];
end;

end.