WINDOWS Startleiste

[Störtebeker]

Hi,

endlich aus dem Urlaub zurück und gleich die nächste Frage:

Das folgende Bild zeigt noch nicht viel, aber am unteren Bildrand, kann man ja eine schwarze Leiste sehen, auf der ziemlich links sone Art Logo ist. Nun möchte ich, dass wenn ich auf das Logo klicke, ähnlich wie bei WINDOWS sich ein Menü öffnet´.

Nun die Frage: Wie kann ich die Windows Startleiste am besten imitieren?

Thx.

[sirius]

Wie wärs mit nem Popupmenu?

[Störtebeker]

Is zwar ne idee. Aber momentan habe ich immer das problem, dass sich das Popup nur nach unten öffnet, nicht nach oben, also es würde dann wahrscheinlich am bildrand verschwinden und das zweite problem wäre, dass ich mit dem popup ziemlich wenige (wenn gar garkeine) designmöglichkeit habe.

[patti]

Einfach ein neues Formular machen: Beim Klick Fenster öffnen und beim Application.OnDeactivate das Fenster wieder schließen. Position und Design kann dann schön angepasst werden.

P@Tti

[Zacherl]

Genauso macht es Windows sogar auch Ist denke ich auch die flexibelste Lösung.

[patti]

Hab ich schon gemacht (unter anderem beim meiner Schnellstartleiste PLink). Funktioniert sehr gut und lässt sich vor allem schön designen. Einfach Buttons drauf (oder ähnliches) und schon kann man ein nettes Menü basteln Und es ist wirklich schön flexibel

P@Tti

[Störtebeker]

Danke für eure Antworten. Werde den Tipp gleich mal ausprobieren.

Thx.

[Störtebeker]

Also ist ein guter Tipp. Nun habe ich das Problem:

Dem Image habe ich folgendes zugewiesen:

Form2.show; und dem OnDeactivate Ereignis der zweiten Form:

Form2.close; nun möchte ich aber, dass sobald ich die zweite Form verlasse, diese auch verschwindet. Und nicht erst nach erneutem Mausklick.

Folgendes: (Form1 - OnMouseMove)

Form2.close; hat nicht gefunzt.

[inherited]

Wie wäre es mit OnMouseLeave?

[Störtebeker]

Bietet mir die Form nicht an. Das Label hat ne OnMouseLeave Funktion. Aber die Form eben nicht.

P.S.: D6 Enterprise

Müsste ich das also selber implementieren, oder?

Delphi-Quellcode:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VrControls, VrGradient;

type
  TForm2 = class(TForm)
    VrGradient1: TVrGradient;
    VrGradient2: TVrGradient;
    VrGradient3: TVrGradient;
    VrGradient4: TVrGradient;
    Label1: TLabel;
    procedure FormDeactivate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Form1MousLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
.
.
.

procedure TForm2MouseLeave(Sender: TObject);
begin
Form2.close;
end;
.
.
.
end.

so??