Work 1.3.1

:: Download ::

procedure TForm1.Button1Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม Show Your Name
begin
ShowMessage('Hello I! My Name is Attawat') //แสดงข้อความตามที่กำหนด
end;

procedure TForm1.Button2Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม Show Your Information
begin
MessageDlg('My School is CUD',MtWarning,[MbYes,MbNo,MbHelp],1) //แสดง Dialog Box ตามที่กำหนด
end;

procedure TForm1.Button3Click(Sender: TObject); // ป้อนคำสั่งในปุ่ม Show Time
begin
MessageDlg('Now Time is....'+TimetoStr(now),MtError,[MbOK,MbCancel,MbHelp],1) //แสดง Dialog Box ตามที่กำหนด และ แสดงเวลาปัจจุบัน
end;