ในบทความนี้ จะเสนอถึงวิธีการสร้างฟอร์ม
ให้มีรูปร่างลักษณะเป็นรูป วงรี, สี่เหลี่ยมที่มีมุมโค้ง และรูปวงรี2วงต่อกัน
ซึ่ง คุณ
สามามารถที่จะนำไปดัดแปลง ประยุกต์ใช้กับโปรแกรมของคุณ ได้อย่างไม่ยาก เพื่อเป็นการไม่เสียเวลา
เรามาเริ่มต้นสร้างโปรแกรม กันเลยนะครับ....
1. ทำการสร้างโปรแกรมใหม่ โดยเลือกที่เมนู
File -> New Application
2. ทำการเลือก Button จากแท็ป
Standard ใน Component Palette มาวางบน ฟอร์ม 3 ปุ่ม โดยกำหนด Property Caption
เป็น Ellipse, Round Rec และ Complex ตามลำดับ ดังรูปด้านล่าง
3. ในส่วนโค้ด ให้ทำการประกาศ
type และ procedure ดังรูป (กด F12 เพื่อทำการสลับระหว่าง
หน้าต่างโค้ด และ ฟอร์ม)
4. ป้อนโค้ด ต่อไปนี้ ลงในส่วนของ
procedure TForm1.FormShape ดังนี้
procedure TForm1.FormShape(FormType:
TFormType);
var
FormRegion : THandle;
FormRegion2 : THandle;
begin
case FormType of
Ellipse :
FormRegion := CreateEllipticRgn(0,0,width, height);
RoundRec:
FormRegion := CreateRoundRectRgn(0,0,width, height,35,35);
Complex:
begin
FormRegion := CreateEllipticRgn(0,0,width-190, height-190);
FormRegion2 := CreateEllipticRgn(190,190,width, height);
CombineRgn(FormRegion, FormRegion, FormRegion2, RGN_OR);
end;
end;
SetWindowRgn(Handle, FormRegion,
True);
end;
|
5. กดปุ่ม F12 เพื่อไปที่หน้าต่างของฟอร์ม
เลือกปุ่ม button1 แล้วดับเบิ้ลคลิกที่ช่อง OnClick ในแท็ป Events บนหน้าต่าง
Object Inspector แล้วป้อนโค้ด ดังต่อไปนี้
procedure TForm1.Button1Click(Sender:
TObject);
begin
FormShape(Ellipse);
end; |
6. กดปุ่ม F12 เพื่อไปที่หน้าต่างของฟอร์ม
เลือกปุ่ม button2 แล้วดับเบิ้ลคลิกที่ช่อง OnClick ในแท็ป Events บนหน้าต่าง
Object Inspector แล้วป้อนโค้ด ดังต่อไปนี้
procedure TForm1.Button2Click(Sender:
TObject);
begin
FormShape(RoundRec);
end; |
7. กดปุ่ม F12 เพื่อไปที่หน้าต่างของฟอร์ม
เลือกปุ่ม button3 แล้วดับเบิ้ลคลิกที่ช่อง OnClick ในแท็ป Events บนหน้าต่าง
Object Inspector แล้วป้อนโค้ด ดังต่อไปนี้
procedure TForm1.Button3Click(Sender:
TObject);
begin
FormShape(Complex);
end; |
8. กดปุ่ม F9 เพื่อ สั่ง Run โปรแกรม
แล้วทำการทดสอบคลิกที่ปุ่มทั้ง 3 ทีละปุ่ม
|