یک باتون یا دکمه روی فرم گذاشتم و دابل کلیک اش کردم تا رویداد کلیکش باز شود.مجموع کد اضاقه شده و کد رویداد کلیک دکمه شد این:
C:
procedure TForm1.Button1Click(Sender: TObject);
var
buttonSelected : Integer;
begin
// Show a confirmation dialog
buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0);
// Show the button type selected
if buttonSelected = mrOK then ShowMessage('OK pressed');
if buttonSelected = mrCancel then ShowMessage('Cancel pressed');
end;
شرح کد:
یک قسمت var برای متغیرها ساختیم. داخلش یک متعیر صحیح ساختیم.
این متغیر صحیح . خروجی مسیج باکس را در خودش می گیرد.
باقی اش با شرط if بررسی محتوای اون متغیر است.
پس می بینید یک MessageDlg داریم و یک ShowMessage و طرز استفاده هر یک را می بینیم.
منبع:
در تاپیک دلفی این جوری داشتیم:
C:
MessageDlg ('You have clicked outside of the button', mtWarning, [mbOK], 0);
شباهتها و تفاوتهایی داره.
نمایش اجرای برنامه:
