|
|
|
DERS ANLATIMI FRAME |
|
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 Resimleri |
Kodu |
 |
mtWarning |
 |
mtEror |
 |
mtInformation |
 |
mtConfirmation |
|
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=MessageDlg('Programdan Çikmak
Istiyormusunuz?',mtConfirmation,[mbYes,mbNo],0);
if a=idyes then close;
end; |
|
|
|
|
|
