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

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

Tanimlama : Degisken:=messagedlg('mesaj',icon,dügme,0); Kullaniciya seçme sansi veren pencereler açmak için kullanilan bir methottur. Birden fazla buton yerlestirilecegi için basilan dügmenin numarasinin aktarilacagi tam sayi tipli bir degiskene ihtiyaç vardir. Bazi butonlari mr_ yazdiktan sonra ctrl+space tus kombinasyonunu kullanarak 'da daha detayli bir sekilde görülür.
örnek butonlar : Ok, Yes, No, Cancel, Help,Abort, Ignore...

Hata Resmi Kodu

>> mtWarning

>> mtEror

>> mtInformation

>> mtConfirmation

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=MessageDlg('Programdan Çikmak  Istiyormusunuz?',mtConfirmation,[mbYes,mbNo],0);
if a=idyes then close;
end;

07-12-07, 18:37 Çevrimiçi	#1
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Bazı Delphi Komutları 'MESSAGEDLG' Tanimlama : Degisken:=messagedlg('mesaj',icon,dügme,0); Kullaniciya seçme sansi veren pencereler açmak için kullanilan bir methottur. Birden fazla buton yerlestirilecegi için basilan dügmenin numarasinin aktarilacagi tam sayi tipli bir degiskene ihtiyaç vardir. Bazi butonlari mr_ yazdiktan sonra ctrl+space tus kombinasyonunu kullanarak 'da daha detayli bir sekilde görülür. örnek butonlar : Ok, Yes, No, Cancel, Help,Abort, Ignore... Hata Resmi Kodu >> mtWarning >> mtEror >> mtInformation >> mtConfirmation Code: procedure TForm1.Button1Click(Sender: TObject); var a:integer; begin a:=MessageDlg('Programdan Çikmak Istiyormusunuz?',mtConfirmation,[mbYes,mbNo],0); if a=idyes then close; end;

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