Mega Code Archive

 

Categories / Delphi / Forms

 

[] Mesajlar

//yardım belirlenebilecek mesaj MessageDlgPosHelp('ok',mtError,[mbyes,mbNo,mbHelp],1,10,20,'C:\help.HLP'); //KENDİ MESAJINI KENDİN YAP - MÜTHİŞ BİR ÖZELLİK var MSG:TForm; begin MSG:=CreateMessageDialog('Program kapatılacak',mtConfirmation,[mbyes,mbno]); MSG.Color := $0087ACC0; MSG.Caption :='UYARI'; MSG.Showmodal; if MSG.ModalResult = mryes then CLOSE; //KOORDİNAT BELİRLEYEBİLECEĞİNMESAJ MessageDlgPos('Are you there?',mtConfirmation, mbYesNoCancel, 0, 200, 200);