Hmmm...
es hat sich doch noch ein Problem ergeben...
Und zwar:
Delphi-Quellcode:
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
var
ok : BOOLEAN;
begin
ok := true;
if (ModalResult=mrOK) then begin
// Editfelder die Standard-Windowfarbe verpassen
Edit1.Color := clWindow;
Edit2.Color := clWindow;
Edit3.Color := clWindow;
F_Message.Caption := '';
ok := true;
if length(Edit1.Text) < 2 then begin
F_Message.Caption := F_Message.Caption +
'-> Der Name muss mindestens 2 Zeichen lang sein.'#13#10;
Edit1.Color := clYellow;
ok := false;
end;
if length(Edit2.Text) < 5 then begin
F_Message.Caption := F_Message.Caption +
'-> Die Geräte-Adresse muss mindestens 5 Zeichen lang sein.'#13#10;
Edit2.Color := clYellow;
ok := false;
end;
if length(Edit3.Text) < 7 then begin
F_Message.Caption := F_Message.Caption +
'-> Der Befehl muss mindestens 7 Zeichen lang sein. ';
Edit3.Color := clYellow;
ok := false;
end;
end;
end;
ist der Code, wenn der Benutzer den "übernehmen"-Button anklickt und das Formular geschlossen wird.
Nun sollen ja dort die eingaben überprüft werden.
Wie bewirke ich denn, dass bei falschen Eingaben das Formular geöffnet bleibt?