Açılır menüye sahip bir düğme nasıl oluşturulur?

Question

IE/Firefox Geri düğmesi stili, açılır menü butonunu göstermenin bir yolu var mı?

Answer 1

Tabi. Sayfaya bir araç çubuğu koyun. Araç çubuğunu sağ tıklayın, bir düğme ekleyin. Düğmenin stilini tbsDropDown olarak ayarlayın. Sayfada bir PopupMenu koyun. Menü öğelerini tanımlamak için PopupMenu'ya çift tıklayın. Ardından, oluşturduğunuz düğmeye geri dönün ve yeni oluşturduğunuz PopupMenu'ya işaret etmek için DropdownMenu özelliğini ayarlayın. Bir araç çubuğunu kullanmak istemiyorsanız

Answer 2

, raize (www.raize.com) ve ekspres editörler (www.DevExpress.com) kütüphaneler yapabilirsiniz bileşenlere sahiptir.

Answer 3

Sana tıklandığında bir menü aşağı düşer bir düğme anlamına varsayıyorum.

Ayrıca sadece manuel altında bir TPopupMenu aşağı düşmesi için düğmeye tıklayın kod.

Örnek: Formunuzdaki bir TClickEvent (belki bir TButton) ve bir TPopupMenu ile bir şey düşürün. Bazı menü öğelerini ekle. Sonra aşağıdaki OnClick olay işleyicisini ekleyin:

procedure TForm86.Button1Click(Sender: TObject); 
var 
    button: TControl; 
    lowerLeft: TPoint; 
begin 
    if Sender is TControl then 
    begin 
    button := TControl(Sender); 
    lowerLeft := Point(button.Left, button.Top + Button.Height); 
    lowerLeft := ClientToScreen(lowerLeft); 
    PopupMenu1.Popup(lowerLeft.X, lowerLeft.Y); 
    end; 
end; 

Ve viyola! Tıpkı sihir gibi. Yeniden kullanmayı planlıyorsanız, bir bileşeni tamamıyla paketleyebilirsiniz. Belki de çevrimiçi olarak satarım.

Not: Bir gecikme istiyorsanız, sonra başka yöntemde bu kodu ayıklamak ve daha sonra bir zamanlayıcı OnClick ayarlayabilir ve OnMouseLeave zamanlayýcýsý çevirin. Daha sonra zamanlayıcı patlarsa, ayıklanan yöntemi çağırabilirsiniz. Bir klavye tıklamasıyla nasıl yapacağınızdan emin değilsiniz. Firefox, vb. Bunu destekliyor mu bilmiyorum.

Answer 4

Jim cevabı harika ama ilk başta benim için oldukça işe yoktu. ClientToScreen, yalnızca doğrudan formda olduğunda doğru olan Form86'nın yöntemini kullanır.

procedure TForm86.Button1Click(Sender: TObject); 
var 
    button: TControl; 
    lowerLeft: TPoint; 
begin 
    if Sender is TControl then 
    begin 
    button := TControl(Sender); 
    lowerLeft := Point(0, button.Height); 
    lowerLeft := button.ClientToScreen(lowerLeft); 
    PopupMenu1.Popup(lowerLeft.X, lowerLeft.Y); 
    end; 
end; 

Bu düğme nerede olursa olsun çalışır: Şöyle, denir düğmenin ClientToScreen yöntem olmalıdır.