|
Registriert seit: 30. Jan 2012
Ort: Welt, bevorzugt Pokemon Island wie mein Vater zu sagen pflegte
33 Beiträge
Delphi 2005 Personal
|
AW: Server Problem
30. Jan 2012, 14:31
Die Prozedur des Schliessen Buttons von Form 2 ,
procedure TFrmServer.Button1Click(Sender: TObject);
begin
//hier soll sich dieses Formular schliessen
//Befehl (??)
TMain.BtServerErzeugen.Enabled := True;
end;
Die Prozedur die Formular 2 wieder öffnen soll,
procedure TMain.BtServerErzeugenClick(Sender: TObject);
begin
FrmServer := TFrmServer.Create (Self);
FrmServer.Top := 5;
FrmServer.Left := 900;
FrmServer.Show;
end;
BtServerErzegen ist hierbei noch Disabled erst wenn man Form 2 durch den Button1 schliesst soll halt dieser Button Enabled werden , das ist um zu verhindern das 2 mal das gleiche Formluar offen ist...
|