paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 11:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add Clients property to TBasicAction

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-16 15:50:51 +01:00
parent cc81e18322
commit 89f0e052df
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/classes/classesh.inc
View File

@ -2575,6 +2575,7 @@ type
property ActionComponent: TComponent read FActionComponent write SetActionComponent; property ActionComponent: TComponent read FActionComponent write SetActionComponent;
property OnExecute: TNotifyEvent read FOnExecute write SetOnExecute; property OnExecute: TNotifyEvent read FOnExecute write SetOnExecute;
property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate; property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
Property Clients[Idx : Integer] : TObject Read GetClient;
end; end;
TActionEvent = procedure(Action: TBasicAction; var Handled: Boolean) of object; TActionEvent = procedure(Action: TBasicAction; var Handled: Boolean) of object;