[divizion]

собственно прошу почь найти исходник "компонента регистрации пользователей" заранее благодарю

Немного подробностей о программе: компонент - диалоговое окно для создания учетных записей пользователей. Диалоговое окно должно представлять форму для ввода имени пользователя и пароля, и вызываться по методу Execute() с последующим сохранением введенных значений в свойства компонента при закрытии. Это - идиальный вариант))

[BoRoV]

Это самому реализовать за пару минут.

[divizion]

Поможешь? а то если бы я мог, не просил бы прошу не пинать...

[BoRoV]

Создаешь форму, на ней размещаешь две кнопки(OK, Cancel) и два эдите(Name, Password) и добавляешь в раздел паблик класса формы две переменые:

Код:

  public
    sName: string;
    sPassword: string;

Определяешь для всего этого такие события:

Код:

procedure TForm2.Button_CancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TForm2.Button_OKClick(Sender: TObject);
begin
  sName := Edit_Name.Text;
  sPassword := Edit_Password.Text;
  ModalResult := mrOk;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Edit_Name.Text := '';
  Edit_Password.Text := '';
  ModalResult := mrCancel;
end;

Добавляешь этот юнит в свой откуда будет вызываться оно. И вызываешь так:

Код:

if Form2.ShowModal = mrOk then
    ShowMessage('Имя : ' + Form2.sName + #13#10 + 'Пароль : ' + Form2.sPassword);

[divizion]

благодарю за помощь, щас буду пробовать

[divizion]

"с последующим сохранением введенных значений в свойства компонента при закрытии" а вот это как реализовать? или я что-то не понял...