AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Hauptmenü vertikal ?

Hauptmenü vertikal ?

Ein Thema von -=cats=- · begonnen am 14. Nov 2006 · letzter Beitrag vom 16. Nov 2006
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von -=cats=-
-=cats=-

Registriert seit: 22. Sep 2006
128 Beiträge
 
Delphi 7 Enterprise
 
#1

Hauptmenü vertikal ?

  Alt 14. Nov 2006, 09:32
Hi

Gibt es eine Möglichkeit, das Hauptmenü nicht in einer Zeile
horizontal oben auf dem Bildschirm anzuzeigen, sondern vertikal
am rechten Rand ?
Also, ich möchte dass das dann so aussieht:

Datei
Bearbeiten
Ansicht
...

Alles schön untereinander
Geht das ? Wenn ja, wie ?
Leider konnte ich bisher nichts finden ...

-=cats=-
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Hauptmenü vertikal ?

  Alt 14. Nov 2006, 09:56
mit dem normalen Mainmenü geht das nicht, du müsstest dir das selbst programmieren oder suchen ob schon jemand so eine Komponente geschrieben hat
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von -=cats=-
-=cats=-

Registriert seit: 22. Sep 2006
128 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Hauptmenü vertikal ?

  Alt 14. Nov 2006, 10:15
Hmm ... selber programmieren klingt schon mal nicht schlecht.
Leider bin ich noch blutiger Anfänger
Daher wäre meine erste Überlegung: Komme ich denn irgendwie
an den Quelltext von diesem MainMenu was es in Delphi bereits
gibt ?

Sorry, ich hab davon echt noch nicht viel Ahnung

Also, ich habe da ja unter "Standard" das MainMenu.
Wenn ich das einfüge dann ist das ja nur so ein kleiner Button,
auf den ich klicken kann um das Menü zu bearbeiten.
Und wenn ich dann in den Quellcode schaue, dann steht da nur
was wenn ich z.B. Datei --> Beenden ne Funktion zugewiesen habe ...
Ich hoffe, man versteht einigermaßen, was ich meine ...

Aber jetzt muss doch irgendwo noch stehen, wie dieses Menü angeordnet
ist. Woher weiß er, das Datei neben Bearbeiten steht ? Bzw. woher
weiß er überhaupt, das es nebeneinander stehen muss ?
Ich denke mir, dass das ja irgendwo mal festgelegt worden sein muss.
Kommt man da irgendwie dran, das ich das verändern kann ?
Oder denke ich da zu kompliziert ??

-=cats=-
  Mit Zitat antworten Zitat
xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#4

Re: Hauptmenü vertikal ?

  Alt 14. Nov 2006, 10:28
Hallo,
Zitat von -=cats=-:
Aber jetzt muss doch irgendwo noch stehen, wie dieses Menü angeordnet
ist. Woher weiß er, das Datei neben Bearbeiten steht ? Bzw. woher
weiß er überhaupt, das es nebeneinander stehen muss ?
Ich denke mir, dass das ja irgendwo mal festgelegt worden sein muss.
Kommt man da irgendwie dran, das ich das verändern kann ?
Oder denke ich da zu kompliziert ??
wie alle visuellen Einstellungen, die Du im Formdesigner vornimmst, werden auch diese Einstellungen im Form (*.dfm) gespeichert.

Die Quellen des TMenu werden Dir wahrscheinlich nicht viel bringen. Die VCL baut hier auf dem Windows-API auf, und das unterstützt IMHO keine vertikalen Menüs. Bei den Programmen, die sowas haben, wurde das komplett selbst programmiert. Das hat auch jemand für Delphi getan: Schau Dir doch mal Toolbar2000 an, da kann man das Menü an die Seite legen, allerdings wird dann auch der Text gekippt.

Gruß
xaromz
I am a leaf on the wind - watch how I soar
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.516 Beiträge
 
#5

Re: Hauptmenü vertikal ?

  Alt 14. Nov 2006, 10:31
Such mal nach Outlookbar. Das ist so eine Komponente die am Rand die Einträge untereinander darstellen kann.
Sebastian P.R. Gingter
不死鳥 Visit my Blog.
Do not argue with an idiot. They lower you to their level and then try to beat you with experience.
  Mit Zitat antworten Zitat
Benutzerbild von -=cats=-
-=cats=-

Registriert seit: 22. Sep 2006
128 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Hauptmenü vertikal ?

  Alt 14. Nov 2006, 11:25
Also, ich habe mal nach OutlookBar gesucht.

Dann bin ich auf dieses JEDI JCL gestoßen.
Das kann man sich runterladen. Habe ich auch gemacht
und anschließend versucht das in Delphi 6 einzubinden.

Da gibts so ne install.bat wenn man sich das runterlädt.
Damit habe ich das installiert.
Wenn ich nun in Delphi auf

"Komponenten --> Packages installieren" klicke, dann
steht das JCL da auch mit einem Haken drin.
Nur irgendwie wird das bei mir nicht angezeigt ..
In dieser Zeile wo auch Standard, Zusätzlich etc ist ..

Mache ich da noch irgendwas falsch ?
  Mit Zitat antworten Zitat
Benutzerbild von Ralf Kaiser
Ralf Kaiser

Registriert seit: 21. Mär 2005
Ort: Wuppertal
914 Beiträge
 
Delphi 10.3 Rio
 
#7

Re: Hauptmenü vertikal ?

  Alt 14. Nov 2006, 17:11
Hi,

du hast die JCL heruntergeladen und installiert. Die von dir gesuchte Komponente befindet sich aber in der JVCL (man achte auf das "V" = "visual")

Daß die die JCL installiert hast ist schon ganz gut (JVCL benötigt die nämlich). Lade dir auch noch die JVCL herunter und installier sie und dann wirst du die Komponente finden.

Ciao,
Ralf
Ralf Kaiser
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#8

Re: Hauptmenü vertikal ?

  Alt 15. Nov 2006, 01:52
wie denkst du dir das mit Untermenüs (wie soll das aussehen)?

mal ein versuch sowas zu implementieren (vorerst links), wenn ich dich richtig verstanden habe...

Delphi-Quellcode:
//dfm:
object Form1: TForm1
  Left = 200
  Top = 108
  Width = 870
  Height = 640
  Caption = 'Form1'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 45
    Height = 97
    Color = clBtnFace
    ItemHeight = 13
    Items.Strings = (
      '1'
      '2'
      '3')
    TabOrder = 0
    OnClick = ListBox1Click
  end
  object PopupMenu1: TPopupMenu
    Left = 48
    object menu11: TMenuItem
      Caption = 'menu1-1'
    end
    object menu121: TMenuItem
      Caption = 'menu1-2'
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 48
    Top = 28
    object menu211: TMenuItem
      Caption = 'menu2-1'
    end
    object menu221: TMenuItem
      Caption = 'menu2-2'
    end
  end
  object PopupMenu3: TPopupMenu
    Left = 48
    Top = 56
    object menu311: TMenuItem
      Caption = 'menu3-1'
    end
    object menu321: TMenuItem
      Caption = 'menu3-2'
    end
  end
end
Delphi-Quellcode:
//pas
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    PopupMenu1: TPopupMenu;
    PopupMenu2: TPopupMenu;
    PopupMenu3: TPopupMenu;
    menu11: TMenuItem;
    menu121: TMenuItem;
    menu211: TMenuItem;
    menu221: TMenuItem;
    menu311: TMenuItem;
    menu321: TMenuItem;
    procedure ListBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ListBox1Click(Sender: TObject);
var p:TPoint;
    pm:TPopupmenu;
begin
  p:=Point(Listbox1.left,listbox1.top);
  p:=ClientToScreen(p);
  pm:=(findcomponent('popupmenu'+IntToStr(Listbox1.Itemindex+1)) as TPopupmenu);
  if assigned(pm) then
    pm.popup(p.x+listbox1.width,p.y+Listbox1.Itemindex*Listbox1.Itemheight);
end;

end.
rechts sollte sich per TPopupmenu.Alignment und ohne "+listbox1.width" realisieren lassen.

HTH Frank
  Mit Zitat antworten Zitat
Benutzerbild von -=cats=-
-=cats=-

Registriert seit: 22. Sep 2006
128 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Hauptmenü vertikal ?

  Alt 15. Nov 2006, 08:18
Hi Alfi,

vielen Dank !
Ich lade mir jetzt gerade so eine zip-Datei wo scheinbar JCL und JVCL drin sind
Das werde ich dann gleich mal ausprobieren

und an Frank :

Dir auch vielen Dank !
Da ich gestern nicht mehr so viel gefunden habe zu dem Menü, habe ich mir eine
andere Möglichkeit überlegt. Allerdings ist die mehr "gefuscht" finde ich
und deshalb noch nicht meine endgültige Lösung.
Ich habe mir ein Panel am rechten Rand gemacht mit ein paar SpeedButtons.
Und jeder SpeedButton hat ein PopUp Menu bekommen. Gefällt mir noch nicht so gut,
man sieht auch das es nur ein PopUp Menu ist. Naja. Und dann musste ich auch noch
feststellen, das man da nicht so einfach die Farbe ändern kann Zumindest ist es
für einen Anfänger nicht so leicht
Deine Idee werde ich aber noch ausprobieren !

Gruß,
-=cats=-
  Mit Zitat antworten Zitat
kalmi01
(Gast)

n/a Beiträge
 
#10

Re: Hauptmenü vertikal ?

  Alt 15. Nov 2006, 09:31
Zitat:
Such mal nach Outlookbar. Das ist so eine Komponente die am Rand die Einträge untereinander darstellen kann.
Oder Du packst eine Toolbar auf Deine Form, Align = alRight eingestellt.
In "Menu" von Toolbar Dein MainMenu eintragen und fertig.

Auf diese Weise kannst Du Dein MainMenu quasi überall platzieren.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf