pop up menünün istediğim yerde çıkması

csyasar · Mesaj gönderen **csyasar** » 30 Kas 2004 02:15

arkadaşlar;

bir pop up menüyü formdaki butonun hemen üstünde göstermek istiyorum ama olmuyor.

benim kullanıdığım yok şu:

Kod: Tümünü seç

pop_yazdir.Popup(yazdir.Top-5,yazdir.Left);

bu şekilde butonun formdaki yerine göre atama yapıyor. biraz üstünde çıkıyor ama ekran çözünürlüğü filan değiştiğinde olmuyor. bana göre yazdir isimli butonun screen'deki yerini bulmam gerekiyor ama bulamıyorum. nasıl yaparım

Mesaj gönderen **mussimsek** » 30 Kas 2004 02:22

daha önce benzer bir kodu foruma atmıştım yani ve her zaman

Kolay gelsin.

csyasar · Mesaj gönderen **csyasar** » 30 Kas 2004 02:35

bulamadım ama...

Mesaj gönderen **Fatih!** » 30 Kas 2004 02:40

PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);

csyasar · Mesaj gönderen **csyasar** » 30 Kas 2004 02:45

FaoSoft yazdı:PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);

bu fonksiyonu ben de biliyorum ama programda adam isterse F10 tuşuyla da yazdırma yapabiliyor. mouse ekranın en üstünde olduğunu farzet. F10 yaptığında menu en üstte çıkar.

Mesaj gönderen **mussimsek** » 30 Kas 2004 02:48

csyasar yazdı:bulamadım ama...

çok detaylı bakmadım ama ben de bulamadım. Ama attığımı hatırlıyorum. Neyse arşivime bakıp bulabilirsem tekrar atıyim.

Kolay gelsin.

mikser · Mesaj gönderen **mikser** » 30 Kas 2004 03:33

delphi bilmiyorum kod da hata olabilir...

formun yeri degisse bile popupmenu button1 in hemen altinda acilir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
TP : TPoint;
begin
    TP := Button1.ClientToScreen(Point(0,0));
    PopupMenu1.Popup(TP.X, (TP.y + Button1.Height +1));
end;

csyasar · Mesaj gönderen **csyasar** » 30 Kas 2004 03:40

çalıştı sağolun

Mesaj gönderen **mege** » 30 Kas 2004 03:52

Kod: Tümünü seç

PopupMenu1.Popup( Form1.Left+Button1.Left+5,
                  Form1.Top+Button1.Top+Button1.Height+20);