![]() |
Zugriff auf Action aus MainForm im Frame
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:
Zur Laufzeit wird die Action des FrameButtons nie aufgerufen. Es ist auch die Caption der Action am Button nicht sichtbar (zur Entwurfszeit schon).
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. 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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz