AÇIKLAMA

C++ Builder 6 ile uyumludur. Birden fazla formla işlem yapılması gerektiğinde ve bir form açıldığı takdirde diğer formlara geçilmesini engellemek isterseniz bu projeden faydalanabilirsiniz. Programda Form2 açıldıktan sonra kapanmadan Form1 veya gerekli kodlar yazılarak daha fazla form için diğer formlara geçiş önlenmektedir.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt 

Program Kodu:

Unit1.cpp

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->WindowState=wsMaximized;
}
//---------------------------------------------------------------------------
 

Unit2.cpp

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm2::FormShow(TObject *Sender)
{
Form1->Enabled=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Form1->Enabled=true;
}
//---------------------------------------------------------------------------