Stefan Göppert wrote:
> What do you mean with " ...post a
> custom message and from its handler call sendMail." ?
For example (untested):
const
WM_SEND_DELAYED = WM_USER + 1;
[..]
type
TForm1 = class(TForm)
protected
procedure WmSendMailDelayed(var Msg: TMessage); message WM_SEND_DELAYED;
[..]
implemtation
procedure TForm1.WmSendMailDelayed(var Msg: TMessage);
begin
if Msg.WParam > -1 then
sendMail
else
ShowMessage('Done');
end;
Use it like:
PostMessage(Form1.Handle, WM_SEND_DELAYED, whereIam, 0);
--
Arno Garrels
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
