Kleiner Wicht
Mitglied
Hab ma wieder ein Riesen-Problem.
Nun bin ich fix und fertig mit den Nerven.
Also ich habe ein Button der sitzt im Form1.
Wenn man nun den Button betätigt öffnet sich ein 2tes Fenster,
in diesem 2ten Fenster befindet sich wiederum ein Button,
dieser soll das Fenster wieder schliessen.
Und genau da weiß ich nix weiter.
Wäre schön wenn jemand weiß wie man das 2te über den Button "Close" wieder schliest, und man dann ganz normal weiterarbeiten kann.
Hier ma der Code:
Nun bin ich fix und fertig mit den Nerven.
Also ich habe ein Button der sitzt im Form1.
Wenn man nun den Button betätigt öffnet sich ein 2tes Fenster,
in diesem 2ten Fenster befindet sich wiederum ein Button,
dieser soll das Fenster wieder schliessen.
Und genau da weiß ich nix weiter.
Wäre schön wenn jemand weiß wie man das 2te über den Button "Close" wieder schliest, und man dann ganz normal weiterarbeiten kann.
Hier ma der Code:
Code:
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
TButton* Button;
Button=new TButton(this);
Button->Parent=(this);
Button->Caption=AnsiString("OPEN");
Button->Name= "BTN";
Button->Top= 15;
Button->Left=20;
Button->Width=50;
Button->OnClick = Zeige_Fenster2;
}
void __fastcall TForm1::Zeige_Fenster2(TObject *Sender) //Declaration in der Klasse TForm1
{
TForm *Fenster;
Fenster = new TForm(this);
Fenster->Caption = "sss";
Fenster->Name = "MEIN_FESNTER";
Fenster->Width = 345;
Fenster->Position = poMainFormCenter;
Fenster->BorderStyle = bsNone;
Fenster->Color = clRed;
TButton* Button;
Button=new TButton(this);
Button->Parent=Fenster;
Button->Caption=AnsiString("Close");
Button->Name= "BTN_2";
Button->Top= 10;
Button->Left=10;
Button->Width=50;
Fenster->ShowModal();
ShowMessage("Alles Pallett");
delete Button;
delete Fenster;
}