Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 84 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

- 84-
public
{ Public declarations }
LoginData: TLoginData;
end;
procedure ShowLoginDialog(Handle: THandle; p: pointer);
var
fLogin: TfLogin;
implementation
{$R *.DFM}
procedure ShowLoginDialog(Handle: THandle; p: pointer);
begin
Application.Handle := Handle;
fLogin := TfLogin.Create(Application);
fLogin.LoginData:=TLoginData(p);
fLogin.ShowModal;
fLogin.Free;
end;
procedure TfLogin.FormShow(Sender: TObject);
begin
ebPassword.Text:='';
end;
procedure TfLogin.btnOkClick(Sender: Tobject);
begin
LoginData.user_id:=ebUserName.Text;
LoginData.password:=ebPassword.Text;
LoginData.modalResult:=mrOK;
end;
procedure TfLogin.btnCancelClick(Sender: Tobject);
begin
LoginData.ModalResult:=mrCancel;
end;
end.
Рассмотрим процедуру ShowLoginDialog. В качестве второго параметра
этой процедуры использован указатель, на класс TLoginData. Такой же указа-
тел ь добавлен и в раздел public определения самого входного диалога:
public
{Private declaration}
LoginData: TLoginData;
Получе нный указатель присваивает члену класса LoginData с использова-
нием преобразования типа
fLogin.LoginData: = TLoginData(p);

Страницы