Mist!
Jetzt hab ich grad festgestellt, dass ich ein anderes Problem habe:
Jasocul hat mir geraten das Close wegzumachen. Aber das ist ja schlecht, denn das Dialogfenster soll sich ja schließen, wenn in alle Felder etwas eingetragen ist. Es soll nur dann offen bleiben, wenn in irgendeinem der Felder nichts drin steht.
Hab ich das Close im Code, schließt das Fenster immer, hab ich es nicht dring, schließt es gar nicht (bei Klick auf OK).
Nochmal den Code:
Delphi-Quellcode:
procedure TFormIdentPunktEingabe.BitBtnOKClick(Sender: TObject);
begin
TimerSec.Enabled:=false;
Label2.Visible:=false;
LabelSekunden.Visible:=false;
Label4.Visible:=false;
try
if (EditIdentPunkt.Text = '
')
then
begin
MessageDlg('
Bitte Ident Punkt eingeben!', mtWarning, [mbOk], 0);
EditIdentPunkt.SetFocus;
end
else if (EditEIP.Text = '
')
then
begin
MessageDlg('
Bitte eigene IP-Adresse eingeben!', mtWarning, [mbOk], 0);
EditEIP.SetFocus;
end
else if (EditFIP.Text = '
')
then
begin
MessageDlg('
Bitte fremde IP-Adresse eingeben!', mtWarning, [mbOk], 0);
EditFIP.SetFocus;
end
else if (EditSubnet.Text = '
')
then
begin
MessageDlg('
Bitte Subnetmask-Nummer eingeben!', mtWarning, [mbOk], 0);
EditSubnet.SetFocus;
end
else if (EditGateway.Text = '
')
then
begin
MessageDlg('
Bitte Gateway Nummer eingeben!', mtWarning, [mbOk], 0);
EditGateway.SetFocus;
end
else
IdentPunkt:=EditIdentPunkt.Text;
IP_CRS:=EditEIP.Text;
IP_SPS:=EditFIP.Text;
Subnet_CRS:=EditSubnet.Text;
Gateway_CRS:=EditGateway.Text;
NurTNR:=Label11.Caption;
Close; <---------------------------------------<<
except
MessageDlg('
Bitte Programm neu starten und alle Felder ausfüllen!', mtWarning,[mbOk], 0);
end
end;