Wie füge ich ein TLabel zur Menüleiste in Delphi hinzu?

Question

Ich benutze Beyond Compare (ein großartiges Programm), und war sehr beeindruckt, als es eine "New Version Available" -Label auf seiner Menüleiste angezeigt. Ich habe darauf geklickt, eine neue Install-Version-Box gepoppt, es installiert, das Programm neu gestartet und da war die neue Version und kein Label mehr.

Ich dachte, das war ein großartiges Feature. Das Etikett ist dort prominent in der Menüleiste, wo der Benutzer es nicht verpassen kann. Ich habe bereits das Update-Verfahren, also musste ich nur noch das Label hinzufügen. Das sollte einfach sein.

Hier ist das Label, wo ich es will: The Label Where I Want It http://www.beholdgenealogy.com/img/tlabel.jpg

... Falsch. Ich konnte nicht herausfinden, wie man dort ein Label hinzufügt. Die Menüleiste und der darüber liegende Kontrollbereich erscheinen als Freihandbereich für visuelle Komponenten. Ich konnte dort keinen platzieren.

Aber ich weiß, dass es getan werden kann, denn Beyond Compare ist ein Delphi-Programm.

Kann mir jemand sagen, was ich tun muss, um ein TLabel in meine Menüleiste zu setzen oder es zumindest über der Menüleiste in der richtigen Position erscheinen zu lassen?

Als Referenz benutze ich Delphi 2009.

---

Fazit: Christopher scheint richtig gedacht zu haben, was das Jenseits Menschen vergleichen tat. Ich habe mich entschieden, den Menüeintrag zu implementieren, aber ohne die Anpassung seiner Lösung "Owner Draw". So bekomme ich nicht den blauen fett unterstrichenen Hyperlink-Look, aber ich verliere auch nicht alle automatischen Dinge (wie der Vista-Stil), die der Besitzer überspringt.

Um den Menüeintrag nach rechts zu platzieren, habe ich ein Element nach der "Hilfe" mit der Beschriftung "" hinzugefügt und ist deaktiviert.

Danke, Christopher. Ich dachte, es müsste ein Label sein, aber du hast es gesehen.

Answer 1

Sind Sie sicher, dass es ein Etikett ist?

Ich habe das Programm nicht benutzt, aber es könnte nur ein Menüelement sein, auf 'Besitzer zeichnen' gesetzt und so gemalt, dass es wie ein Link aussieht?

http://sirmonkeys.com/images/updatelink.png
(done in Delphi 7)

procedure TForm1.MYITem1DrawItem(Sender: TObject; ACanvas: TCanvas; 
    ARect: TRect; Selected: Boolean); 
begin 
    acanvas.Font.Style := [fsUnderline,fsbold]; 
    acanvas.Font.color := clblue; 
    acanvas.Brush.Style := bsClear; 
    acanvas.TextOut(arect.left+1,arect.top+1,'Link to Update...'); 
end; 

procedure TForm1.MYITem1MeasureItem(Sender: TObject; ACanvas: TCanvas; 
    var Width, Height: Integer); 
begin 
    width := 100; 
end; 

und dann entweder a haben eine ImageList zugewiesen MainMenu1.Images oder MainMenu1.OwnerDraw zu true gesetzt.

Answer 2

Beyond Compare Implementierung ist eigentlich ein TLabel. Wir verwenden Toolbar 2000 für unsere Menüs und Symbolleisten, so dass ein Steuerelement direkt in das Menü eingebettet wird (mit einem korrekten Hintergrund), und es hat den Vorteil, dass es rechtsbündige Menüelemente unterstützt.