Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c