Showmodal fonksiyonu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ibrahim_kocak
Üye
Mesajlar: 8
Kayıt: 19 Ağu 2005 03:13

Showmodal fonksiyonu

Mesaj gönderen ibrahim_kocak »

S.a.
Arkadaşlar Showmodal fonksiyonu geriye ne tür bir değer döndürür,proje içerisinde geriye dönen değer nerelerde kullanılır.
Kolay gelsin.iyi çalışmalar...
Kullanıcı avatarı
lazio
Moderator
Mesajlar: 1527
Kayıt: 11 Tem 2003 04:55
Konum: İstanbul

Mesaj gönderen lazio »

ModalResult döndürür..
Bknz..http://delphi.about.com/od/beginners/l/aa071503a.htm
yada
Delphi Help
DeveloperToolKit

..::|YeşilMavi|::..
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

modalresult ile formdan nasıl çıkıldığını (mrok, mrcancel,..) kontrol ederek yönlendirme yapabilirsiniz...
ibrahim_kocak
Üye
Mesajlar: 8
Kayıt: 19 Ağu 2005 03:13

Mesaj gönderen ibrahim_kocak »

procedure TMagazaProgramiF.bpaketekleClick(Sender: TObject);
var islem2: integer;
BelgeNo: integer;
Miktar: real;
begin
if trim(yardimedenk.Text) = '' then begin showmessage('Yardım Alanı Giriniz!'); exit; end;
if yardimkararik.LookupValue = '' then begin showmessage('Yardım Kararı Giriniz!'); exit; end;

depocikispaketekleF := tdepocikispaketekleF.create(anaformF);
islem2 := depocikispaketeklef.ShowModal;
if islem2 > 0 then
begin....

Yalnız verdiğim kodda adım adım gidip islem2 nin aldığı değere bakınca 5111 gibi integer bir değer veriyor.
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

If form1.Showmodal=Mrok Then Begin.........

yada

Form1.ShowModal;
If (Form1.ModalResult=Mrcancel) And (..........) Then Begin.......

şeklinde kullanabilirsiniz
Cevapla