| Код | //unit2.h - заголовочный файл второй формы
class TForm2 : public TForm
{
__published: // IDE-managed Components
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm2(TComponent* Owner);
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_USER+100, TMessage, OnWMUSER100)
END_MESSAGE_MAP(TForm)
void __fastcall OnWMUSER100(TMessage& msg);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
//unit2.cpp
...
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
PostMessage(Handle,WM_USER+100,0,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::OnWMUSER100(TMessage& msg)
{
for(int i=0;i<100000;i++)
{
Form1->Label1->Caption=i;
Application->ProcessMessages();//это чтобы програма не "подвисла"
if(ModalResult!=mrNone)//это чтобы эта форма закрылась сразу, если был нажат крестик, например
break;
}
Close();//закрываем сразу
}
//--------------------------------------------------------------------------- |
Ну а показываем Form2 чкак обычно, через ShowModal |
