pq nao tah funcionando quando mando fazer isso form2.show;

Delphi

14/04/2004

pq com isso no OnCreate não ta aparecendo nda quando falo pra fazer Form2.Show ???

------------------------------------------------------------------------------------
if (FindWindow(´TApplication´,´Prog1´) <> 0) or
(FindWindow(´TfrmServer´,´Prog2´) <> 0) then
begin
Close;
Application.Terminate;
Exit;
end;
if UpperCase(Trim(lDir)) <> UpperCase(Trim(Application.ExeName)) then
begin
ReStartServer;
Close;
Exit;
end;
------------------------------------------------------------------------------------

alguem sabe se tem como fazer aparecer o Form2 ???
Valeuuuuuu
[size=18:b95e2f74ac][/size:b95e2f74ac]


Akcom

Akcom

Curtidas 0
POSTAR