paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 18:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

initiliased Result of DispatchAction

Browse Source 
git-svn-id: trunk@7397 -
This commit is contained in:
vincents 2005-07-22 12:44:04 +00:00
parent 2f778a2275
commit fa0dba9b76
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/application.inc
View File

@ -1009,6 +1009,7 @@ function TApplication.DispatchAction(Msg: Longint; Action: TBasicAction
var
Form: TCustomForm;
begin
Result:=false;
Form := Screen.ActiveForm;
if (Form<>nil) and (Form.Perform(Msg, 0, PtrInt(Action)) = 1) then
Result:=true
@ -1475,6 +1476,9 @@ end;
{ =============================================================================
$Log$
Revision 1.126 2005/07/22 12:44:04 vincents
initiliased Result of DispatchAction
Revision 1.125 2005/06/22 21:09:50 mattias
fixed Sender of Application.OnKeyDownHandler bug 947