Actions in einer anderen Unit definieren

[Int3g3r]

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 ?

[Der schöne Günther]

Mach keine einfache Unit sondern ein Datenmodul (TDataModule ). Pack dort deine TActionList drauf und mache dort deine Actions.

Auf deinen Formularen welche diese Unit in der Uses-Anweisung haben kannst du nun direkt diese Actions anwählen. Verhält sich genauso mit Dingen wie ImageListen, DataSets, ...

[Int3g3r]

Zitat von Der schöne Günther:

Mach keine einfache Unit sondern ein Datenmodul (TDataModule ). Pack dort deine TActionList drauf und mache dort deine Actions.

Auf deinen Formularen welche diese Unit in der Uses-Anweisung haben kannst du nun direkt diese Actions anwählen. Verhält sich genauso mit Dingen wie ImageListen, DataSets, ...

Besten Dank.
Habe mir gar nicht überlegt das ich eine zweite ActionsList verwenden könnte.
Aber warum soll die Unit ein Datenmodul sein ?

[Der schöne Günther]

Ein Datenmodul hat den Komfort dass du halt per Drag&Drop direkt Komponenten wie ImageLists, ActionList usw. darauf platzieren und bearbeiten kannst wie du es von Formularen gewohnt bist.

Und ich weiß gar nicht ob der Formular-Designer überhaupt so "schlau" wäre, eine von Hand per Code erzeugte ActionList in einer Unit einbinden und benutzen zu können.

[Uwe Raabe]

Zitat von Der schöne Günther:

Und ich weiß gar nicht ob der Formular-Designer überhaupt so "schlau" wäre, eine von Hand per Code erzeugte ActionList in einer Unit einbinden und benutzen zu können.

Geht ja auch nicht, da die ActionList dann zur Design-Zeit noch gar nicht existiert. Die auf einem Datenmodul (oder auch Form oder Frame) platzierten Komponenten werden direkt zur Designzeit erzeugt und somit dem Designer auch bekannt.

[Int3g3r]

Ich habe nun das Datenmodul eingefügt. Sobald ich aber den Dateiname des Datenmoduls ändere wird das Projekt nicht mehr kompilliert.

Zitat:

[dcc32 Fehler] hcTransport.dpr(18): E2003 Undeklarierter Bezeichner: 'TAction'

*.dpr Datei

Delphi-Quellcode:

program hcTransport;

uses
  Vcl.Forms,
  main in 'main.pas' {frmMain},
  dmod_prg in 'dmod_prg.pas' {dm: TDataModule},
  Kalender in 'Kalender.pas' {Hauptprogramm},
  Actions in 'Actions.pas' {Action: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(THauptprogramm, Hauptprogramm);
  Application.CreateForm(TAction, Action);
  Application.Run;
end.

Action.pas

Delphi-Quellcode:

unit Actions;

interface

uses
  System.SysUtils, System.Classes;

type
  TAction = class(TDataModule)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Action: TAction;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.

[Delphi.Narium]

Das ist klar:

Actions sind vom Typ TAction.

Du hast nun auch noch ein Datenmodul erstellt, dass ebenfalls vom Typ TAction ist.

Aber: TAction <> TAction

Beim Erstellen von Datenmodulen ... solltest Du darauf achten, dass Du keinen Typen verwendest den es in anderem Kontext schon gibt.

Du hast doch schon ein dmod_prg in 'dmod_prg.pas' {dm: TDataModule} , warum dann nicht statt Actions in 'Actions.pas' {Action: TDataModule}; einfach dmActions in 'dmActions.pas' {dmActions: TDataModule} ?

[Int3g3r]

Zitat von Delphi.Narium:

Das ist klar:

Actions sind vom Typ TAction.

Du hast nun auch noch ein Datenmodul erstellt, dass ebenfalls vom Typ TAction ist.

Aber: TAction <> TAction

Beim Erstellen von Datenmodulen ... solltest Du darauf achten, dass Du keinen Typen verwendest den es in anderem Kontext schon gibt.

Du hast doch schon ein dmod_prg in 'dmod_prg.pas' {dm: TDataModule} , warum dann nicht statt Actions in 'Actions.pas' {Action: TDataModule}; einfach dmActions in 'dmActions.pas' {dmActions: TDataModule} ?

Besten Dank!

[Int3g3r]

Ich habe nun das Datenmodul eingebunden.
Von einem anderen Formular aus kann ich nun mit dem Befehl:
ac.dmOpenAll; die Datenbanken öffen.

Ich möchte aber nicht einen Befehl im Quelltext ausführen sondern mit dem Objektinspektor verknüpfen.
Siehe Bild (Rot = so möchte ich die Action eingetragen).

Ist dies überhaupt möglich ?

[Delphi.Narium]

Steht das Datenmodule im Uses der frmMain?

Wenn nein, bitte dort eintragen.

Im Objektinspektor bitte eingeben:

Datenmodulname.ActionnameExecute

also in etwa ac.dmOpenAllExecute

Eigentlich sollte der Objektinspektor aber beim Klick auf den Pfeil rechts eine Liste mit alle dem anzeigen, was dem Ereignis zugewiesen werden kann.