Delphi'deki Menü Çubuğuna Nasıl Bir TLabel Eklerim?

Question

Beyond Compare (harika bir program) kullanıyorum ve Menü Çubuğunda "Yeni Sürüm Kullanılabilir" etiketi görüntülendiğinde çok etkilendim. Üzerine tıkladım, bir yükleme yeni sürüm kutusu açıldı, yüklü, program kendini yeniden başlattı ve yeni sürüm ve daha fazla etiket yoktu.

Bunun harika bir özellik olduğunu düşündüm. Etiket, kullanıcının bunu özleyemeyeceği menü çubuğunda belirgin bir şekilde var. Güncelleme prosedürünü zaten aldım, bu yüzden tek yapmam gereken etiketi eklemekti. Bu kolay olmalı. The Label Where I Want It http://www.beholdgenealogy.com/img/tlabel.jpg

... Yanlış:

İşte onu istiyorum etiketli. Orada etiket ekleyemedim. Menü çubuğu ve üstündeki kontrol alanı görsel bileşenler için kapalı alan gibi görünüyor. Orada bir tane yerleştiremedim.

Ama bunu yapabileceğimi biliyorum, çünkü Beyond Compare bir Delphi programıdır.

Menü Çubuğuma bir TLabel koymak veya en azından Menü Çubuğunda doğru konumda görünmesini sağlamak için ne yapmam gerektiğini söyleyen var mı?

Başvuru için, ben Delphi 2009.

---

Sonuç kullanın: Christopher doğru Ötesi yapan insanları karşılaştırın anladım gibi görünüyor. Menü öğesini uygulamaya karar verdim, ancak onun "sahip olunan" çözümünün özelleştirilmesi olmadan. Bu yüzden mavi kalın alt çizgi köprüsünü alamıyorum, ama aynı zamanda sahibinin atladığı tüm otomatik şeyleri (Vista stili gibi) kaybetmiyorum.

Menü öğesini sağa kaydırmak için, "" altyazısı "" olan ve devre dışı bırakılan "Yardım" dan sonra bir öğe ekledim.

Teşekkürler, Christopher. Bir Etiket olmalı diye düşünmüştüm ama bunu gördün.

Answer 1

Bunun bir etiket olduğundan emin misiniz?

Programı kullanmamıştım, ancak bir menü öğesi olabilir, 'sahip olun' olarak ayarlanmış ve bir bağlantıya benzeyecek şekilde boyanmış olabilir. (Delphi 7 yapılır)

http://sirmonkeys.com/images/updatelink.png
sonra

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; 

ve ya sahip bir ImageListMainMenu1.Images atanmış veya true için MainMenu1.OwnerDraw ayarlayın. Karşılaştırmanın Ötesi Uygulaması'nın gerçekte bir TLabel olması,

Answer 2

. Araç Çubuğu 2000'i menülerimiz ve araç çubuklarımız için kullanıyoruz, bu nedenle menüde bir kontrolün doğrudan yerleştirilmesi (doğru bir arka plan ile) destekleniyor ve sağa dayalı menü öğelerini desteklemesi avantajına sahip.