~Project 1.3.1~

~Download Here~

ในปุ่ม Show Your Name ซึ่งจะแสดงชื่อออกมาจะใช้Code ดังนี้

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('ใส่ชื่อของเราที่นี่') < เมื่อคลิกที่ปุ่ม Button1 แล้วจะแสดง message box ขึ้นมา แสดงชื่อ
end;

ส่วนปุ่ม Show Your Information จะใช้ code ดังนี้

procedure TForm1.Button2Click(Sender: TObject);
begin
MessageDlg('ใส่ข้อมูลที่ต้องการจะใส่', MtWarning, [MbYes, MbNo, MbHelp], 1) < เมื่อกดที่ button2 ให้แสดง Dialog Box Warning ที่มีตัวเลือก Yes และ No ขึ้นมา แสดงข้อความข้อมูลของตัวเรา

end;

ปุ่ม Show Time ใช้code ดังนี้

procedure TForm1.Button3Click(Sender: TObject);
begin
Messagedlg('Now Time is '+ Timetostr(now), MtError, [MbOK, Mbcancel, MbHelp], 1) < แสดงMessage Dialog Error แสดงเวลาในขณะนั้น โดยใช้คำสั่ง Timetostr(now) โดยแสดง ตัวเลือก Ok Cance; และ Help
end;