Code:
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if(Y==Form1->ClientHeight-1&&provera==1) //proverava da li se
{ // kurzor nalazi na donjoj ivici i da li je provera==1 (provera je 1 ako se forma josh nije prosirila a 0 ako jeste)
Form1->ClientHeight=Form1->ClientHeight+neki_br; //forma se produzuje
provera=0; // provera se postavlja na 0 da bi kasnije znali da je forma produzena
c_box1 = new TCheckBox(this);
c_box1->Parent=Form1; //postavljash ChackBox na formu pri chemu ChackBox ima ime c_box1
c_box1->Left=neki_br;
c_box1->Top=neki_br; //postavljash koordinate u na kojima ce se nalaziti c_box1
}
}
pri chemu provera i c_box1 moraju da budu definisani ovako
Code:
class TForm1 : public TForm
{
__published: // IDE-managed Components
void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
public:
int provera;
TCheckBox *c_box1; // User declarations
__fastcall TForm1(TComponent* Owner);
};
prosirivanje forme
