Actions in einer anderen Unit definieren

**Uwe Raabe**

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

zusammenfalten · markieren

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

zusammenfalten · markieren

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.