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

LCL: TControl.Click: call OnClick if set and differs from Action for Delphi compatibility

Browse Source 
git-svn-id: trunk@32583 -
This commit is contained in:
mattias 2011-10-01 13:16:37 +00:00
parent 8cc6b6ba82
commit 50ff6b7890
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/control.inc
View File

@ -2299,10 +2299,13 @@ end;
procedure TControl.Click; procedure TControl.Click;
begin begin
//DebugLn(['TControl.Click ',DbgSName(Self)]); //DebugLn(['TControl.Click ',DbgSName(Self)]);
if (not (csDesigning in ComponentState)) and (ActionLink <> nil) then if Assigned(FOnClick) and (Action<>nil)
and (not CompareMethods(TMethod(Action.OnExecute),TMethod(FOnClick))) then
// the OnClick is set and differs from the Action => call the OnClick
FOnClick(Self)
else if (not (csDesigning in ComponentState)) and (ActionLink <> nil) then
ActionLink.Execute(Self) ActionLink.Execute(Self)
else else if Assigned(FOnClick) then
if Assigned(FOnClick) then
FOnClick(Self); FOnClick(Self);
end; end;