Posted by john vanderelst on March 10, 2006
In Reply to Re: open and copy funtions under one button posted by Jenny on
March 07, 2006
: You can simply combine the code like this:
: procedure TForm1.Button1Click(Sender: TObject);
: begin
: // Code for run action:...
: // ...
: // Code for copy action:...
: // ...
: end;
: Or maybe the other way arond:
: procedure TForm1.Button1Click(Sender: TObject);
: begin
: // Code for copy action:...
: // ...
: // Code for run action:...
: // ...
: end;
: If you code it like this, are you having problems?
Hi Jenny
I have it working. However there was one thing I overlooked. Part two started while the exe file was running still.
Thanks for your help
bye
John
[ DelphiLand FAQ ]
|