Carl Waring mentioned this to All:
CW> However, I have been trying to
CW> produce an 'About' box with the '.ShowModal' device but cannot get it to
CW> work. A detailed example would be appreciated if someone has the time.
uses
About; {the unit where TMyAboutForm is}
{ Assumes TMyAboutForm is not auto-created }
procedure ShowAboutBox;
begin
with TMyAboutForm.Create(Application) do
try
ShowModal;
finally
Free;
end;
end;
...Gary
--- GoldED 2.41
---------------
* Origin: The Flying Circus BBS, Farmington Hills, MI. (1:2410/905)
|