Показать сообщение отдельно
  #7  
Старый 12.12.2010, 20:03
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Внутри метода Execute надо значения из полей ввода "перетащить" во внутренние поля компонента, на которые указывают соот. свойства, типа:

Код:
type
  TUserAuth = class(TComponent)
  private
    FUserName : String;
    FPassword : String;
  public
    function Execute : Boolean;
  published
    property UserName : String read FUserName write FUserName;
    property Password : String read FPassword write FPassword;
  end;

...

function TUserAuth.Execute : Boolean;
begin
  With TUserAuthForm.Create(Application) Do
     Begin
       If ShowModal = mrOK Then
          Begin
             FUserName := edUseName.Text;
             FPassword := edPassword.Text;
          End;
     End;
end; 
Ответить с цитированием