Menü mit Delphi

[LoW_FloW]

Wie ist mit Delphi ein Menü so wie es in eMule gemacht ist möglich? Muss man dazu mehrere Forms nehmen? Ich hab dazu mal das folgende Bild hochgeladen und das Menü zur verdeutlichung umrahmt :mrgreen: :

http://www.directupload.net/show/d/594/bybDHq7O.jpg

Wäre schön, wenn mir jemand helfen könnte :gruebel:

[3_of_8]

Das ist doch ne stinknormale TToolBar.

[LoW_FloW]

Und wie geht das mit der ToolBar? Erstellt man dann mehrere Forms und wechselt zwischen denen? Sry hab leider kA :duck:

[PierreB]

Warum guckst du nicht in der Delphi-Hilfe, da wird dir jede Komponente sehr gut erklärt.

[LoW_FloW]

Zitat:

Zitat von PierreB

Warum guckst du nicht in der Delphi-Hilfe, da wird dir jede Komponente sehr gut erklärt.

Vielen Dank schon mal für eure Antworten :thumb: .

In der Delphi-Hilfe steht, dass es sich um eine Schaltfläche handelt wo man Buttons usw. drauf ziehen kann...meine Frage ist aber eher, wie die verschiedenen Dinge dort angezeigt werden...sind das mehrere Forms, die durch das Drücken auf einen Butten in der Toolbar sichtbar gemacht werden? Oder werden die Buttons usw. zur Laufzeit erstelellt? Wie ist das denn so bei größeren Programmen, die mehr als "eine Oberfläche" haben? Ich finde die Möglichkeit mit mehreren Forms irgendwie umständlich...gibts noch irgendeine Alternative? :gruebel:

[Matze]

Hi

Du könntest zum Beispiel ein PageControl nehmen und die Tabs ausblenden:

Delphi-Quellcode:

TabsheetXYZ.Visible := false;  // glaube ich

Dann kannst du das zur Designtime auch sehr leicht verwalten.

[LoW_FloW]

Zitat:

Zitat von Matze

Hi

Du könntest zum Beispiel ein PageControl nehmen und die Tabs ausblenden:

Also PageControl hab ich gefunden....aber ich weiß nicht was man damit macht :roll: Und Tabs hab ich erst garnet gefunden....aus der Delphi-Hilfe wurde ich ebenfalls nicht schlau :wall:

Zitat:

Zitat von Matze

Hi

Dann kannst du das zur Designtime auch sehr leicht verwalten.

Designtime leicht verwalten? Ist damit gemeint, dass man damit das Design leicht verändern & verwalten kann...das wäre ja super :mrgreen:

[3_of_8]

Ja, das meint er.

[Matze]

Zitat:

Zitat von LoW_FloW

Also PageControl hab ich gefunden....aber ich weiß nicht was man damit macht :roll:

Rechtsklick auf die Komponente und dann auf "neue Seite". So kannst du deine ganzen Register (TTabSheet) anlegen. In der Dropdownbox über'm OI müsstest du die Tabs, bzw die Buttons, ausblenden können. und über die Toolbar den ActivePageIndex des PageControls verstellen, um zwischen den Tabs hin und her zu switchen.

Zitat:

Zitat von LoW_FloW

Designtime leicht verwalten? Ist damit gemeint, dass man damit das Design leicht verändern & verwalten kann...das wäre ja super :mrgreen:

Ich meine damit, dass du zu der Komponentenzusammenklickzeit ( :mrgreen: ) die TabSheets einzelnd auswählen und mit Komponenten bestücken kannst, du must also nichts dynamisch erledigen.

[LoW_FloW]

OH...vielen Dank...habs jetzt raus :thumb:

Zitat:

Zitat von Matze

In der Dropdownbox über'm OI müsstest du die Tabs, bzw die Buttons, ausblenden können.

Das habe ich aber noch nicht gefunden... :roll:

//EDIT:

Hm...Tabsheet Tabvisible ist es schon ma net...dann dann geht das mit Tapindex nicht mehr...

[squetk]

Im OI zum PageControl ist das Property "Style" dafür verantwortlich - das muss z.B. auf tsFlatButtons gesetzt werden.

[LoW_FloW]

Die Schaltfläche mit den tabs will ich ausblenden und das alles mit Buttons usw. stuern...

[Daniel G]

Zitat:

Zitat von LoW_FloW

Die Schaltfläche mit den tabs will ich ausblenden und das alles mit Buttons usw. stuern...

Also setzt du

Delphi-Quellcode:

TabSheet1.TabVisible := false

Das wiederholst du für alle Seiten (TabSheet2, TabSheet3, usw etc. pp.)

easy, hm? :zwinker:

Zitat:

Zitat von LoW_FloW

Hm...Tabsheet Tabvisible ist es schon ma net...dann dann geht das mit Tapindex nicht mehr...

Bitte was geht nicht mehr?

//Edit: Äh... Was machte denn die "3" bitte sehr in meinem Post? Hmm...

[LoW_FloW]

Zitat:

Zitat von Daniel G

Also setzt du

Delphi-Quellcode:

TabSheet1.TabVisible := false

Das wiederholst du für alle Seiten (TabSheet2, TabSheet3, usw etc. pp.)

easy, hm? :zwinker:

Wenn ich das so setzte, funktioniert dieser Befehl, mit dem man zwischen den TabSheets wechseln kann nicht mehr (PageControl1.TabIndex := XYZ;)

[LoW_FloW]

Keiner weiß die Antwort :?: :roll:

[dahead]

Das geht auf jeden Fall.

Blende deine Tabs so zur Laufzeit aus (beim Formcreate o.ä.). Das hat den Vorteil, dass sie zur Designzeit noch sichtbar sind und du die daraufliegenden Komponenten usw. einfach bearbeiten kannst, ohne ständig die (nicht sichtbaren) Tabs auszuwählen.

Delphi-Quellcode:

procedure TMainForm.SetUpTabs;
var
  I: Integer;
begin
  for I := 0 to PC_Main.PageCount - 1 do
   begin
    PC_Main.Pages[I].TabVisible := False;
    //PC_Main.Pages[I].Caption    := xxx; // auch Setzen von andere Eigenschaften hier möglich.
    // wenn du bspw. ein Array der Tabs hast, kannst du hier auch eine eindeutige ID hinterlegen (bspw. im Tag Feld) Aber ich denke das wäre jetzt etwas übertrieben für dich, also lass es erstmal.
   end;
end;

Dann gibst du bspw. wenn du auf einen der Buttons in der Toolbar klickst folgenden Code ein:

Delphi-Quellcode:

 PC_Main.ActivePageIndex := 3;

[xaromz]

Hallo,

manchmal hilft die Hilfe weiter...

ActivePageIndex klingt doch vielversprechend.

Gruß
xaromz

//Edit: zu langsam...

[LoW_FloW]

Vielen dank euch beiden!!!!

ich bin so schlecht :duck: