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

LCL: TControl.Click: simplified

Browse Source 
git-svn-id: trunk@32582 -
This commit is contained in:
mattias 2011-10-01 13:08:53 +00:00
parent 37e00cb51f
commit 8cc6b6ba82
1 changed files with 1 additions and 5 deletions

6
lcl/include/control.inc
View File

@ -2299,11 +2299,7 @@ end;
procedure TControl.Click;
begin
//DebugLn(['TControl.Click ',DbgSName(Self)]);
if (not (csDesigning in ComponentState)) and (ActionLink <> nil) and
((Action=nil)
or (not CompareMem(@FOnClick, @Action.OnExecute, SizeOf(TMethod)))
or Assigned(FOnClick))
then
if (not (csDesigning in ComponentState)) and (ActionLink <> nil) then
ActionLink.Execute(Self)
else
if Assigned(FOnClick) then