Hi all.
In the following:
const _MSG_Cancel = WM_USER + 6;
procedure CancelBtnClk;
begin
if MsgReceiver > 100 then
postmessage( MsgReceiver, _MSG_Cancel, 0, 0);
end;
function StatusBoxEX( BoxMsg, BoxCaption, Sound : String;
MsgPic : TPicture; Boxposition : Tposition; StayOnTop : Boolean;
BoxColor : Tcolor; BoxHeight, BoxWidth,
GaugeMinValue, GaugeMaxValue : Integer; MsgReceiver : Thandle; ShowGauge,
CancelButton : Boolean)
: Boolean;
procedure TMainform.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_USER + 6 then
begin
doit!!!!
end
MsgReceiver I define in the application as mainform.handle or application.handle
(tried both) and when the cancelbtnclk, it is not sending the message to the
application. Any ideas?
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
