paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 10:21:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL lclmessageglue: added SendSimpleMessage to interface

Browse Source 
git-svn-id: trunk@12984 -
This commit is contained in:
tombo 2007-11-23 14:06:16 +00:00
parent 4db98e9394
commit 4b37f3cafe
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/lclmessageglue.pas
View File

@ -34,6 +34,7 @@ interface
uses Classes, Forms, LCLProc, Controls, LMessages, LCLType; uses Classes, Forms, LCLProc, Controls, LMessages, LCLType;
function DeliverMessage(const Target: TObject; var AMessage): PtrInt; function DeliverMessage(const Target: TObject; var AMessage): PtrInt;
function SendSimpleMessage(const Target: TControl; Msg: Cardinal): PtrInt;
function LCLSendActivateMsg(const Target: TControl; Active: Boolean; Minimized: Boolean; ActiveWindow: HWND = 0): PtrInt; function LCLSendActivateMsg(const Target: TControl; Active: Boolean; Minimized: Boolean; ActiveWindow: HWND = 0): PtrInt;
function LCLSendSetFocusMsg(const Target: TControl): PtrInt; function LCLSendSetFocusMsg(const Target: TControl): PtrInt;
@ -112,6 +113,18 @@ begin
Result := TLMessage(AMessage).Result; Result := TLMessage(AMessage).Result;
end; end;
{******************************************************************************
* *
* SendSimpleMessage *
* *
* Returns : 0 to accept the message, non-zero to reject the message *
* *
* Params *
* *
* Target : The Control that will recieve the simple message *
* Msg : Message type constant *
* *
******************************************************************************}
function SendSimpleMessage(const Target: TControl; Msg: Cardinal): PtrInt; function SendSimpleMessage(const Target: TControl; Msg: Cardinal): PtrInt;
var var
Mess : TLMessage; Mess : TLMessage;