Objekterstellung zur Laufzeit

[haentschman]

...Guten Abend

ich benutze die Komponente XPMenu.
- da bekanntlicherweise D2005-D2007 einfriert, wenn man das Editorfenster schließt und man die Komponente auf der Form hat
( kein Scherz.. gibt es sogar Info hier im Forum ) muß es zur Laufzeit eingebunden werden.

...soweit auch kein Problem.

Delphi-Quellcode:

XPMenu1:= TXPMenu.Create(FMain);
XPMenu1.UseSystemColors:= False;
XPMenu1.UseDimColor:= True;
XPMenu1.IconBackColor:= clMaroon;
XPMenu1.Gradient:= True;
XPMenu1.SelectColor:= clMaroon;
XPMenu1.SelectBorderColor:= clMaroon;
XPMenu1.XPContainers:= [xccForm, xccPanel];
XPMenu1.XPControls:= [xcMainMenu,xcPopupMenu];
XPMenu1.AutoDetect:= True;
XPMenu1.Active:= True;

...allerdings nur für FMain.
...wie kann ich das auf alle Formulare erweitern ?
...oder muß ich für jede Form eine Instanz erstellen und am Ende wieder freigeben ?

PS: an die Hilfe von D2007 muß ich mich erst gewöhnen...

Danke...

[Bernhard Geyer]

Zitat von haentschman:

...allerdings nur für FMain.

Kein Wunder wenn du FMain im Konstruktor angiebst.

Zitat von haentschman:

...wie kann ich das auf alle Formulare erweitern ?

Einfach die passende Formularinstanz angeben. Evtl. gleich 'ne Funktion mit übergabeparameter machen oder einen Basisklasse von TForm ableiten

Zitat von haentschman:

... und am Ende wieder freigeben ?

Das macht die realisierte Owner-Pattern von Delphi schon ganz alleine wenn du ein von TComponent abgeleitete Komponente beim Konstruktor einen Parent angiebst.

[haentschman]

Danke für die schnelle Reaktion...

...das das mit dem FMain zusammenhängt war mir klar. Das Create verlangt AOwner: TComponent

Zitat:

passende Formularinstanz

habe schon die Klasse versucht (TForm)...

Zitat:

[DCC Fehler] Main.pas(164): E2010 Inkompatible Typen: 'TComponent' und 'Class reference'

...FMain ist das Hauptformular
...alle anderen werden von dort Modal geöffnet.

PS: die Hilfe zu Formularinstanzen bezieht sich nur auf dynamische Erzeugung von Formularen

...für Euch ist das einfach... ich habe da noch Defizite

[haentschman]

... kann mich bitte jemand in die Richtung schubsen...
... das mit der Formularinstanz verstehe ich nicht
... ich steh auf dem Schlauch

Danke...

[mkinzler]

XPMenu1:= TXPMenu.Create(<Formularinstanz>);

[haentschman]

... ja und das verstehe ich nicht.

was ist die Formularinstanz aller Formulare ?
TForm ist ja nur die übergeordnete Klasse...

...das ist warscheinlich so einfach

gibt es überhaupt eine übrgeordnete Formularinstanz für alle ?
sollte ich für jedes FormularXPMenu1:= TXPMenu.Create(FormularName);schreiben

[mkinzler]

Grundlagen OOP:

TForm1: Klasse

Von dieser Klasse kann man mehrere Instanzen erzeugen.

Standardmässig heißt die Instanz, die automatisch vom Formulardesigner erzeugt wird wie die Klasse ohne das T; also TForm1 -> Form1

Also kann es keine Formularinstanz aller Formulare geben.

[haentschman]

Zitat:

Grundlagen OOP:

..ich weiß learning by doing...

...also für jedes Formular eine Intanz von XPMeu erzeugen...

Danke...

[mkinzler]

Oder eine eigene Basisklasse/Class-Helper für TForm schreiben, in der die Erzeugung des Menüs erfolgt.

[RavenIV]

Dumme Frage:
Warum benutzt Du das XPMenu mit D2007?

Meines Wissens nach braucht man das nicht mehr, weil D2007 Menus im XP-Style erstellt.