Panel als ShowModal?

[DeddyH]

Du könntest doch im OnExit des Panels prüfen, ob
- ein Wert verändert wurde
- ActiveControl gesetzt ist
- dessen Parent gesetzt ist
- dieser Parent Dein Panel ist

Wenn die ersten Punke zutreffen und der letzte nicht, kannst Du ja ActiveControl auf das Panel oder eins der Edits setzen.

Delphi-Quellcode:

procedure TFormTest.Panel1Exit(Sender: TObject);
begin
  if FChanged then //FChanged wird bei Änderung eines Edits gesetzt
    if Assigned(ActiveControl) and Assigned(ActiveControl.Parent) and
      (ActiveControl.Parent <> Panel1) then
      ActiveControl := Edit1; //erstes Edit auf dem Panel
end;

Nur so eine Idee.

[OrNEC]

Ob die Werte sich verändert haben prüfe ich wie folgt:

Delphi-Quellcode:

procedure TForm1.VornameEditKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  OkBitBtn.Visible := True;
  CancelBitBtn.Visible := True;
end;

Wie weit kann damit Dein Vorschlag reduziert werden?

Wie wäre es mit: in OnExit des Panels prüfen, on die Buttons sichtbar sind und entsprechend eine Meldung ausgeben, ob die Werte übernommen werden sollen oder nicht? Ist doch auch eine Möglichkeit, oder?

[DeddyH]

Es ist zwar nicht sonderlich elegant (bezgl. Trennung von Logik und Oberfläche), aber so sollte es auch gehen, ja.