Neues Vista Menu

[JuliaBecks]

Hallo Delphi-Gemeinde,
ich habe in Mühsamer Kleinarbeit ein Vista-ähnliches Menü erstellt, welches jeder
nach seinen Bedürfnissen (farbentechnisch) verändern und in seinem Projekt einsetzen kann. Man kann aber auch meine vordefinierten Styles verwenden unter Property "MenuStyles".
Die Installation ist recht simple und ist beschrieben.
Der Download ist völlig kostenlos und läuft unter einer OpenSource-Lizenz.
Meine Seite:

http://blog.javalog.de unter Post 2 & Post 3.

Versionen Delphi 5, Delphi 6 (da funktioniert die 5er Version), Delphi 7 und Studio 2006
über Rückmeldungen freu ich mich natürlich sehr.


"Download Archiv": http://blog.javalog.de/?page_id=20



Hier noch die Links zu den Downloads

Delphi 5 + 6

http://blog.javalog.de/D7Menu.php
Delphi 7

Studio 2006

http://blog.javalog.de/download/outD2006.php

[bigben37]

Nun ja, das ist ja immer so ne Sache, mit Turbo Delphi und externen Komponenten...

Wie kann ich nun Items für das VistaMenü erstellen, das hier geht nämlich nicht:

Delphi-Quellcode:

VMenu := TVistaMenu.Create(self);
aItem.Create(self); //Hier liegt der Fehler, aber mit Create(self) 
                    //oder Create(Form1) geht das auch nicht.
AItem.Caption := 'Test'; 
VMenu.Items.Add(AItem);

Und ich habe keine eigene Item-Klasse für das Menü gefunden.

Ich finde das Menü vom Style her wirklich gut gelungen

[JuliaBecks]

versuch doch ersteinmal über die Formularansicht die Items hinzuzufügen.
Muss dein Item unbedingt dynamisch erzeugt werden?

[FAlter]

Hi,

Zitat von JuliaBecks:

versuch doch ersteinmal über die Formularansicht die Items hinzuzufügen.
Muss dein Item unbedingt dynamisch erzeugt werden?

Bei der Explorer-Version von Turbo-Delphi können keine Komponenten installiert werden.

Mfg
FAlter

[wp_xxyyzz]

Hallo

Mit beigefügtem Code erstelle ich unter D7 ein VistaMenu zur Laufzeit und füge Items hinzu. Allerdings wird der ausgewählte Menüstil nicht angezeigt - vielleicht kann JuliaBecks da helfen:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FVistaMenu : TVistaMenu;
    procedure MenuFileOpen(Sender:TObject);
    procedure MenuFileQuit(Sender:TObject);
    procedure MenuEditCut(Sender:TOBject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  item, item1 : TMenuItem;
begin
  FVistaMenu := TVistaMenu.Create(self);
  FVistaMenu.MenuStyle := msVistaOrange;

  // File
  item := TMenuItem.Create(self);
  with item do begin
    Caption := 'File';
  end;
  FVistaMenu.Items.Add(item);
  item1 := TMenuItem.Create(self);
  with item1 do begin
    Caption := 'Open';
    OnClick := MenuFileOpen;
  end;
  item.Add(item1);
  item1 := TMenuItem.Create(self);
  with item1 do begin
    Caption := 'Quit';
    OnClick := MenuFileQuit;
  end;
  item.Add(item1);

  // Edit
  item := TMenuItem.Create(self);
  with item do begin
    caption := 'Edit';
  end;
  FVistaMenu.Items.Add(item);
  item1 := TMenuItem.Create(self);
  with item1 do begin
    Caption := 'Cut';
    OnClick := MenuEditCut;
  end;
  item.Add(item1);

  // etc.
end;

procedure TForm1.MenuFileOpen(Sender:TObject);
begin
  ShowMessage('File / Open clicked');
end;

procedure TForm1.MenuFileQuit(Sender:TObject);
begin
  Close;
end;

procedure TForm1.MenuEditCut(Sender:TObject);
begin
  ShowMessage('Edit / Cut clicked');
end;


end.

[JuliaBecks]

hi, also normalerweise dürfte es keine Probleme geben.
ich werde mir aber die Zeit nehmen und dem Sachverhalt auf den Grund gehen.

[Garfield]

Die Lösung ist wahrscheinlich nicht sauber, aber es funktioniert:

Änderung von

Delphi-Quellcode:

  protected
    procedure Loaded; override;

nach

Delphi-Quellcode:

  public
    procedure Loaded; override;

sowie Aufruf von
  FVistaMenu.Loaded; nach der Erstellung des Menues.

[bigben37]

Super, es funktioniert.

[MCXSC]

Die Idee ist super und nett aussehen tut das Menü auch!

Aber eine kleine Frage am Rande: Ist es möglich, das Menü auch als Popup zu bekommen?

[RWarnecke]

Zitat von MCXSC:

Die Idee ist super und nett aussehen tut das Menü auch!

Aber eine kleine Frage am Rande: Ist es möglich, das Menü auch als Popup zu bekommen?

Der Link könnte Dir vielleicht weiterhelfen.

[MCXSC]

Zitat von RWarnecke:

Der Link könnte Dir vielleicht weiterhelfen.

Ups, okay, danke.