Как поменять местами появление форм

← →
Alexey (2008-05-10 22:44) [0]

Здравствуйте, мастера. У меня такой вопрос: как сделать так, чтобы при запуске приложения сначала появилась, например, 16 форма (допустим для ввода пароля), а за ней уже при нажатии на кнопку(соответственно, если пароль введён верно) появится и основная (форма 1)?

← →
Johnnnn (2008-05-10 23:04) [1]

:)

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:)

← →
Loginov Dmitry © (2008-05-10 23:11) [2]

> как сделать так, чтобы при запуске приложения сначала появилась,
> например, 16 форма (допустим для ввода пароля), а за ней
> уже при нажатии на кнопку(соответственно, если пароль введён
> верно) появится и основная (форма 1)?

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

← →
easy © (2008-05-10 23:11) [3]

http://dfc.com.ru/download.php?d=login

← →
Alexey (2008-05-10 23:54) [4]

Большое спасибо! :)

Как поменять местами появление форм Найти похожие ветки