Bazı Delphi Komutları 'APPLICATION' - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 18:22 Çevrimiçi

APPLICATION

Tanimlama : degisken:=application.messagebox('hata msj','uyari',butonlar+hata resmi); Bu mesajin özelliklerinden biride yukarisindaki uyari mesajini,mesajin yanindaki resmi,hangi butonlar gelecegini biz ayarliyoruz. Bazi butonlari mb_ yazdiktan sonra ctrl+space tus kombinasyonunu kullanarak 'da daha detayli bir sekilde görülür.
örnek butonlar : Ok, Yes, No, Cancel, Help ...

Code:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
a:integer;
begin
a:=application.MessageBox('Programdan Çikmak Istiyormusunuz ?','Çikis',mb_yesno+mb_iconexclamation);
if a=idyes then close;
end;

NOT : Butonlarda ki yazilari isletim sisteminin diline göre alir.

07-12-07, 18:22 Çevrimiçi	#1
ares Genel Mesajlar: 6.379 Teşekkür etti: 764 Teşekkür edildi: 2.101 RepForum Gücü: 500 Forum Puanı:43140	Bazı Delphi Komutları 'APPLICATION' APPLICATION Tanimlama : degisken:=application.messagebox('hata msj','uyari',butonlar+hata resmi); Bu mesajin özelliklerinden biride yukarisindaki uyari mesajini,mesajin yanindaki resmi,hangi butonlar gelecegini biz ayarliyoruz. Bazi butonlari mb_ yazdiktan sonra ctrl+space tus kombinasyonunu kullanarak 'da daha detayli bir sekilde görülür. örnek butonlar : Ok, Yes, No, Cancel, Help ... Code: procedure TForm1.BitBtn2Click(Sender: TObject); var a:integer; begin a:=application.MessageBox('Programdan Çikmak Istiyormusunuz ?','Çikis',mb_yesno+mb_iconexclamation); if a=idyes then close; end; NOT : Butonlarda ki yazilari isletim sisteminin diline göre alir.

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder