Hallo,
ich will einem Button in einem Frame eine Action zuweisen, die in meinem Hauptformular definiert ist. In der
IDE schaut alles ok aus (caption der Action wird am Button angezeigt), nur zur Laufzeit wird die Action nicht aufgerufen.
Klingt kompliziert, hier ein einfacher code.
Hier mein HauptFormular mit definierter Action, und eingefügtem Frame (definiert in FFrame)
Delphi-Quellcode:
unit FMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, XPStyleActnCtrls, ActnMan, StdCtrls,
FFrame;
type
TForm1 =
class(TForm)
ActionManager1: TActionManager;
Action1: TAction;
// meine Action
Frame21: TFrame2;
// in Mainform eingefügtes frame (aus FFrame)
Button1: TButton;
procedure Action1Execute(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Action1Execute(Sender: TObject);
begin
beep;
end;
end.
Hier die
Unit FFrame (einfacher Frame mit nur 1 Button). Dem Button im Frame habe ich via
IDE Form1.Action1 zugeordnet (sichtbar wegen uses FMainForm).
Delphi-Quellcode:
unit FFrame;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrame2 =
class(TFrame)
FrameButton: TButton;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
implementation
uses FMainForm;
{$R *.dfm}
end.
Zur Laufzeit wird die Action des FrameButtons nie aufgerufen. Es ist auch die Caption der Action am Button nicht sichtbar (zur Entwurfszeit schon).
Interessanterweise funktioniert das ganze, wenn ich die Action in einem DataModule definiere und halt dann in FFrame statt FMainForm in der uses clause einbinde.
Gibt es dafür eine plausible Erklärung?
Danke für eure Hilfe.
Übrigens: ich verwende Delphi7
Ähnliche Probleme habe ich übrigens auch, wenn ich global definierte ImageLists in verschiedenen Formularen verwenden will.
Gruß Martin