Delphi 2005 Architekt: 100% CPU Stecker

[gsh]

Warum funktioniert die Komponente nicht wenn ich sie so erstellen will?:

Delphi-Quellcode:

XPMenu := TXPMenu.Create(frmSplash);
XPMenu.Active := true;

XPMenu ist eine global Variable vom Typ: TXPMenu

[Matze]

Setze zusätzlich die Controls, dann müsste es gehtn:

Delphi-Quellcode:

XPMenu.XPControls := [xcMainMenu,xcPopupMenu,xcToolbar,xcControlbar,xcCombo,
                      xcListBox,xcEdit,xcMaskEdit,xcMemo,xcRichEdit,xcMiscEdit,
                      xcCheckBox,xcRadioButton,xcButton,xcBitBtn,xcSpeedButton,
                      xcUpDown,xcPanel,xcGroupBox,xcTreeView,xcListView,
                      xcProgressBar,xcHotKey];

[gsh]

nein des hat nichts gebracht
denn des ist schon als default so gesetzt
aber ich weiss wo des Problem ist

Delphi-Quellcode:

XPMenu := TXPMenu.Create(frmSplash); 
XPMenu.Active := true;

Also immer der Owner hat den neuen Style also in dem Fall "frmSplash". Des Problem ist aber des des Hauptformular dann keinen neuen Style hat. Wenn ich aber des Hauptforumlar als Owner eintrage dann hat des Hauptformular den Stlye aber alle anderen nicht.

//edit: Als Owner "nil" oder "Application" einzutragen hat nichts gebracht

[BlackJack]

muss XPMenu nicht noch ein Parent zugewiesen werden?

[gsh]

ein Parent nicht gerade XPMenu ist ja keine visuelle Komponente
aber es gibt eine Eigenschaft XPMenu.Form wo man des Formular übergeben kann aber des geht auch nur für ein Formular.

[gsh]

*push*

[gsh]

*push²*

Ich habs immer noch nicht geschafft :wall:

[ringli]

Also ich habe es bei mir in der Anwendung so gelöst:

Delphi-Quellcode:

var
  XPmenu : TXPmenu;
.
.
.
{*** XPmenu einbinden & ein paar Eigenschaften setzen***}
XPmenu := TXPMenu.Create(Self);
with XPmenu do
  begin
    XPContainers := [];
    XPControls   := [xcMainMenu, xcPopupMenu];
    Autodetect   := True;
    IconWidth := 24;
  end;

[gsh]

Du hasst Active := true; vergessen.

Aber es funktioniert immer noch nicht. :wall: :wall: :wall:

[ringli]

Kannst du hier mal ein Beispielprojekt anhängen? Dann gucke ich mir das mal an.

BTW: Hast du das Symbol von deinem Formular entfernt?