Konu: Kısa yollarda menü
Bu kod haser adres proğramından sağ tıklandığında çalışan kisayol() metodunda çalışıyor.
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "\-"
DEFINE BAR 2 OF shortcut PROMPT "< Kayıt >" Style "B" Color RGB(255,255,255,128,128,255), RGB(255,255,255,128,128,255)
DEFINE BAR 3 OF shortcut PROMPT "\-"
DEFINE BAR 4 OF shortcut PROMPT "\<Kayıt Düzenle"
DEFINE BAR 5 OF shortcut PROMPT "\-"
DEFINE BAR 6 OF shortcut PROMPT "\<Adrese Yakınlaş" Skip For AllTrim(Liste.Adres) = ""
DEFINE BAR 7 OF shortcut PROMPT "\<Nota Yakınlaş" Skip For AllTrim(Liste.Notlar) = ""
DEFINE BAR 8 OF shortcut PROMPT "\-"
DEFINE BAR 9 OF shortcut PROMPT "\<e-Posta Gönder" Skip For AllTrim(Liste.ePosta) = ""
DEFINE BAR 10 OF shortcut PROMPT "\<Web Adresine Bağlan" Skip For AllTrim(Liste.Web) = ""
DEFINE BAR 11 OF shortcut PROMPT "\-"
DEFINE BAR 12 OF shortcut PROMPT "Telefon \<1'i Ara" Skip For AllTrim(Liste.Tel1) = ""
DEFINE BAR 13 OF shortcut PROMPT "Telefon \<2'i Ara" Skip For AllTrim(Liste.Tel2) = ""
DEFINE BAR 14 OF shortcut PROMPT "Telefon \<3'i Ara" Skip For AllTrim(Liste.Tel3) = ""
DEFINE BAR 15 OF shortcut PROMPT "\-"
DEFINE BAR 16 OF shortcut PROMPT "Şehir \<Düzenle"
DEFINE BAR 17 OF shortcut PROMPT "Ülke Dü\<zenle"
DEFINE BAR 18 OF shortcut PROMPT "\-"
DEFINE BAR 19 OF shortcut PROMPT "\<Izgara Ayarları"
DEFINE BAR 20 OF shortcut PROMPT "\-"
ON SELECTION BAR 4 OF shortcut Do Form Form\Hesaplar
ON SELECTION BAR 6 OF shortcut Do Form Form\Yakinlas With "Adres"
ON SELECTION BAR 7 OF shortcut Do Form Form\Yakinlas With "Notlar"
ON SELECTION BAR 9 OF shortcut ShellExecute(0, "Open", "mailto:" + AllTrim(Liste.ePosta), "", "", 0)
ON SELECTION BAR 10 OF shortcut Shellexecute(0, "Open", AllTrim(Liste.Web), "", "", 0)
ON SELECTION BAR 12 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel1), '', '','')
ON SELECTION BAR 13 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel2), '', '','')
ON SELECTION BAR 14 OF shortcut tapiRequestMakeCall(AllTrim(Liste.Tel3), '', '','')
ON SELECTION BAR 16 OF shortcut Do Form Form\Sehir
ON SELECTION BAR 17 OF shortcut Do Form Form\Ulke
ON SELECTION BAR 19 OF shortcut AnaForm.grdOrta.Kisayol
ACTIVATE POPUP shortcut
şimdi sorum şu
1-bu kodda mesela 4 bardaki "kayıt" üstüne gelindiğinde yan tarafa yeni bir menü nasıl açarım
2-
ON SELECTION BAR 1 OF shortcut thisform.pagefarme1.page1.setfocus gibi bir komutu nasıl çalıştırırım. bu komut hata veriyor.
gibi bir komutu nasıl çalıştırırım. bu komut hata veriyor.
şimdiden herkese teşekkürler.