Einzelnen Beitrag anzeigen

Int3g3r

Registriert seit: 28. Nov 2018
Ort: Schweiz
118 Beiträge
 
Delphi 10.3 Rio
 
#1

Actions in einer anderen Unit definieren

  Alt 21. Dez 2018, 11:50
Delphi-Version: 10.1 Berlin
Guten Tag,

Ich möchte eine seperate Unit erstellen in dieser sollen nur Actions drin stehen. Diese möchte ich nachher bei allen anderen Units einbinden bei denen ich die Actions benötige.

z.b:
Im Objektinspektor unter Ereignisse kann ich z.b OnActivate Ereigniss erstellen. Hier öffne ich die DB.

Delphi-Quellcode:
procedure THauptprogramm.FormActivate(Sender: TObject);
begin
dm.QryKalDat.Open;
dm.QryKalRes.Open;
end;
Delphi-Quellcode:
unit ActionsOnly;

interface

      procedure Action1Execute(Sender: TObject);

implementation


procedure ActionsOnly.Action1Execute(Sender: TObject);
begin
dm.QryKalDat.Open;
dm.QryKalRes.Open;
end;

end.
Wie lässt sich diese procedure nun in einer anderen Unit definieren damit ich sie nachher bei dem "OnActivate" Ereigniss(im Objektinspektor) auswählen kann ?
  Mit Zitat antworten Zitat