"Unit1.cpp" Dosyası

#include <vcl\vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma resource "*.dfm"
TForm1 *Form1;

//-------------------------------------------------------------------------


//-------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner)
{
}
//-------------------------------------------------------------------------


//-------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

HRGN OvalForm;
OvalForm = CreateRoundRectRgn(5, 5, 400, 300, 50, 50);
SetWindowRgn(Form1->Handle, OvalForm, true);

}
//-------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{

Application->Terminate();

}
//-------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{

HRGN DaireForm;
DaireForm = CreateEllipticRgn(125, 80, 300, 250);
SetWindowRgn(Form1->Handle, DaireForm, true);

}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{

HRGN NormalForm;
NormalForm = CreateRoundRectRgn(0, 0, Form1->Width, Form1->Height, 0, 0);
SetWindowRgn(Form1->Handle, NormalForm, true);

}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{

HRGN PoligonForm;
TPoint Nokta[10];

Nokta[0] = Point(0,0);
Nokta[1] = Point(20,0);
Nokta[2] = Point(100,180);
Nokta[3] = Point(150,80);
Nokta[4] = Point(200,180);
Nokta[5] = Point(290,0);
Nokta[6] = Point(310,0);
Nokta[7] = Point(200,220);
Nokta[8] = Point(150,120);
Nokta[9] = Point(100,220);

PoligonForm = CreatePolygonRgn(Nokta, 10, ALTERNATE);
SetWindowRgn(Form1->Handle, PoligonForm, true);

}
//---------------------------------------------------------------------------

////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////

"Unit1.h" Dosyası

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include &winuser.h>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TButton *Button3;
TButton *Button4;
TButton *Button5;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);

private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////

PROGRAMIN EKRAN GÖRÜNTÜLERİ

NORMAL FORM

KÖŞELERİ OVAL FORM

YUVARLAK FORM

W ŞEKLİNDE FORM