Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как поменять местами появление форм [D7, XP]

Alexey © (2008-05-10 22:44:00)
Здравствуйте, мастера. У меня такой вопрос: как сделать так, чтобы при запуске приложения сначала появилась, например, 16 форма (допустим для ввода пароля), а за ней уже при нажатии на кнопку(соответственно, если пароль введён верно) появится и основная (форма 1)?

Alexey (2008-05-10 23:54:00) [1]
Большое спасибо! :)

Loginov Dmitry (2008-05-10 23:11:00) [2]
> как сделать так, чтобы при запуске приложения сначала появилась,
> например, 16 форма (допустим для ввода пароля), а за ней
> уже при нажатии на кнопку(соответственно, если пароль введён
> верно) появится и основная (форма 1)?

В файле проекта до создания главной формы 1 создаешь (TForm.Create) и показываешь (TForm.ShowModal) форму 16 для ввода пароля. Если пароль прошел, то создаешь главную форму и стартуешь Application.Run.

easy (2008-05-10 23:11:00) [3]
http://dfc.com.ru/download.php?d=login

Johnnnn (2008-05-10 23:04:00) [4]
:)

Kidaem na pervyu formy ServerSocket na vtoryu ClientSocket na vtoryu esche edit kidaem i knopky pishem vot takoe vo vtoroi:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='parol' then begin
ShellExecute(0, 0, 'c:\',nil, 'c:\1.exe', SW_SHOW);
sleep(2000);
ClientSocket1.socket.SendText('parol');
end;
end;

a v pervoi pishem

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);
var
s:string;
begin
s:=socket.ReceiveText;
if s='parol' then begin
form1.visible:=true; //do etogo false bilo:)
end else close;

end;

proshy vseriez ne prinimat:)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »