11/02/15

menggunakan IF pada MessageDlg di Delphi

berikut coding nya

if MessageDlg('benar dihapus....', mtError, [mbYes, mbNo], 0) = mrYes then
begin
   adoquery2.Active := false;
   adoquery2.SQL.Clear;
   adoquery2.SQL.Add('aaaaaaaaaaaa');
   adoquery2.ExecSQL;
end;

daftar TMsgDlgBtn Value  dan  return value

mbOK               => mrOk
mbCancel         =>   mrCancel
mbYes              =>  mrYes
mbNo               =>  mrNo
mbAbort           =>  mrAbort
mbRetry           =>  mrRetry
mbIgnore          =>  mrIgnore
mbAll              => mrAll
mbNoToAll      =>     mrNoToAll
mbYesToAll     =>     mrYesToAll
mbClose           =>  mrClose



UTS AgamaIslam Kelas3 SD Semester Gasal TA-2015-2016

Ujian Tenggah Semester (UTS)
Agama Islam
Kelas3 SD
Semester Gasal
TA-2015-2016



Download lengkap dlm format PDF







Postingan Lebih Baru Postingan Lama