Buttonda Dropup menü? ve alan referansı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
CinAnka
Üye
Mesajlar: 84
Kayıt: 03 Nis 2006 11:27
Konum: İstanbul

Buttonda Dropup menü? ve alan referansı

Mesaj gönderen CinAnka »

Merhaba;

İnternet üzerinden sms gönderen bir program yazdım. Kullanıcı, mesaj gönderilecek numaraları ve mesajı giriyor sonra da mesaj gönder butonuna tıklayınca mesajı gönderiliyor. sorularım şunlar:

1. programda bir kişi listesi var. kişi listesine bilgiler veritabanından geliyor. bazı alanlarım:
Ad
Soyad
Gsm_No
Adres
Sehir
Dogum_Gunu

vs...

Yapmak istediğimse şu:
Kullanıcı mesaj yazarken, mesaj kısmının altında "alan ekle" diye bir butonum var. Bu butona tıklanınca, yukarı doğru açılan bir liste çıksın, ve bu listede yukarıda belirtmiş olduğum veritabanındaki alanlar gelsin (Ad,Soyad,Gsm_no,vs). bunlardan biri seçilince de, mesaja ilgili bilgi eklensin.

örneğin:
Ali Arman Adında bir kişiye sms gönderiyorum: Sayın Ali Arman yarın sabah toplantıya bekleniyorsunuz.

bunu: Sayın [Ad] [Soyad] yarın sabah toplantıya bekleniyorsunuz.

bu mesaj da kişiye şu şekilde gitmeli:
Sayın Ali Arman yarın sabah toplantıya bekleniyorsunuz.

bu tür referans işlemlerini nasıl yaptırabilirim. Butona açılan menü nasıl ekleyebilirim??

Biraz kazık ve uzun bir soru oldu, ben de uzun fakat kolay cevaplar bekliyorum...
Güçlü olan haklı değil, haklı olan güçlüdür!
Kullanıcı avatarı
CinAnka
Üye
Mesajlar: 84
Kayıt: 03 Nis 2006 11:27
Konum: İstanbul

Mesaj gönderen CinAnka »

arkadaşlar;

cevap yok mu?
Güçlü olan haklı değil, haklı olan güçlüdür!
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:

Mesaj gönderen vkamadan »

Merhaba ,

[Ad] [Soyad] şeklinde sembolize ederek oluşturacağınız taslaklarda mesaj içeriğini oluşturma aşamasında StringReplace fonksiyonunu kullanabilirsiniz örneğin,

Kod: Tümünü seç

MesajMetni := 'Sayın [Ad] [Soyad] ....';
MesajMetni := StringReplace(MesajMetni,'[Ad]',Table1.FieldByName('ad').Asstring,[rfReplaceAll]);
MesajMetni := StringReplace(MesajMetni,'[Soyad]',Table1.FieldByName('soyad').Asstring,[rfReplaceAll]);
gibi , kolay gelsin.
Volkan KAMADAN
www.polisoft.com.tr
Kullanıcı avatarı
gkimirti
Admin
Mesajlar: 1956
Kayıt: 02 Eyl 2003 04:44
Konum: İstanbul

Mesaj gönderen gkimirti »

jedi icinde jvSpeedButton un DropDownMenu ozelligine bir Popupmenu ekleyerek bahsettiginiz sekilde kullanabilirsiniz.
ÜŞENME,ERTELEME,VAZGEÇME
shadowmann
Üye
Mesajlar: 508
Kayıt: 30 Oca 2004 10:49

Mesaj gönderen shadowmann »

Aynı şeyi develepor expressde de var. Buton tipini drop down yapıp bir popup menü gösteriyorsunuz. Hepsi bu.
Kullanıcı avatarı
CinAnka
Üye
Mesajlar: 84
Kayıt: 03 Nis 2006 11:27
Konum: İstanbul

Mesaj gönderen CinAnka »

Jedi ya da developer express bileşenlerini projeme nasıl dahil edeceğim?? Drop up menü nasıl yapacağım anlayamadım?! :( :oops:
Güçlü olan haklı değil, haklı olan güçlüdür!
shadowmann
Üye
Mesajlar: 508
Kayıt: 30 Oca 2004 10:49

Mesaj gönderen shadowmann »

Forma bir tane cx button koyun DropDownMenu de Popup menuyu seçin.
Kind dan da drop down button u seçin. Hepsi bu.
Kullanıcı avatarı
CinAnka
Üye
Mesajlar: 84
Kayıt: 03 Nis 2006 11:27
Konum: İstanbul

Mesaj gönderen CinAnka »

ya çook ilginç, çoook ilginç:((((

arkadaşlar, bir drop up menü yaptım (standart bileşeninde varmış zaten :oops: ). bu menüde bir alana tıklayınca (ad, soyad gibi), memo1 alanıma ilgili değer geliyor. örneğin:

sayın [##ad##] şeklinde.. Problem, her alaqn eklemesi yapışımda, curser memonun başına gidiyor. bunu engellemek için bir kod var mı????
Güçlü olan haklı değil, haklı olan güçlüdür!
Kullanıcı avatarı
CinAnka
Üye
Mesajlar: 84
Kayıt: 03 Nis 2006 11:27
Konum: İstanbul

Mesaj gönderen CinAnka »

merhaba;

popup menüyü yaptım ama fare ile sağ click yapınca açılıyor. ben butona sol click yapınca açılmasını istiyorum. nasıl yapabilirim?? özellikler penceresinde öyle birşey göremedim.
Güçlü olan haklı değil, haklı olan güçlüdür!
ikut

sol clikte poup kodu

Mesaj gönderen ikut »

bunu butonun on clik ine yazmalısın

Popup1.Popup(Left+butonadi.Left,Top+Butonadi.Top+butonadi.Height+30);

butonun buykse ayarlarsınona gore
Kullanıcı avatarı
CinAnka
Üye
Mesajlar: 84
Kayıt: 03 Nis 2006 11:27
Konum: İstanbul

Mesaj gönderen CinAnka »

:)

peki curser'ı yazdığım yazının en sonuna almak için bir kod war mı??
Güçlü olan haklı değil, haklı olan güçlüdür!
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

Kod: Tümünü seç

edit1.selstart:= edit1.lenght-1;
bu selstart'a ne değeri verirsen stringde oraya gidiyo.
Cevapla