Hello,
Try this code:
begin
with Tfrm_Client.Create(Self) do begin
try
Show;
Act_New.Execute;
Hide;
ShowModal;
finally
Free;
end;
end;
end;
Cumprimentos,
JC
-----Original Message-----
From: delphi-en@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf Of Dino
Lolli
Sent: sábado, 31 de Maio de 2008 11:38
To: delphi-en@yahoogroups.com
Subject: RE: [delphi-en] Code after showmodal statement
Hi
Thanks for the reply but that code gives a "Cannot focus on invisible
Window" error. Any other ideas
Regards
Dino Lolli
Sales and Support
Soft Edge Solutions
We do computer maintenance, networking, hardware and software sales and
website development
We are the proud developers of Plumber's Assistant
[EMAIL PROTECTED]
www.softedgesolutions.co.za
Cell: 082 572 1059
Fax: 0866 84 73 73
Skype: dino_lolli
Click here to join the monthly newsletter
-----Original Message-----
From: delphi-en@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf
Of Theodoros Bebekis
Sent: 31 May 2008 12:17 PM
To: delphi-en@yahoogroups.com
Subject: Re: [delphi-en] Code after showmodal statement
O/H Dino Lolli έγραψε:
> var
>
> frm_Client : Tfrm_Client;
>
> begin
>
> frm_Client := Tfrm_Client.Create(Self);
>
> try
>
> frm_Client.Act_New.Execute;
> frm_Client.ShowModal;
>
>
> finally
>
> frm_Client.Release;
>
> end;
>
> end;
--
Regards
Theo
------------------------
Theo Bebekis
Thessaloniki, Greece
------------------------
Greek_Delphi_Prog : a Delphi Programming mailing list in Greek at
http://groups.yahoo.com/group/Greek_Delphi_Prog
CSharpDotNetGreek : A C# and .Net mailing list in Greek language at
http://groups.yahoo.com/group/CSharpDotNetGreek
atla_custom : a Unisoft Atlantis Customization mailing list at
http://groups.yahoo.com/group/atla_custom
------------------------
------------------------------------
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED] Groups Links
------------------------------------
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED] Groups Links
