Textfelder auf Änderung prüfen?

[sunnyandy]

Hallo!

Habe in meinem Fenster mehrere auszufüllende Textfelder. Möchte irgendwie überprüfen ob, sich ein Wert in einem Fenster geändert hat. Das gleiche gibt es ja auch bei jedem Schreibprogramm, wo eine Sicherheitsabfrage kommt, wenn man was geändert hat und das Fenster schließen möchte.

Bei mir habe ich aber viele Felder und da ist es ja sehr aufwändig, für jedes Change-Ereignis extra was zu schreiben, geht das nicht einfacher?

Danke!

[Hawkeye219]

Hallo,

warum ordnest du nicht allen Edit-Feldern über den Objektinspektor eine gemeinsame Behandlungsroutine für das OnChange-Ereignis zu?

Gruß Hawkeye

[sunnyandy]

Stimmt das könnte ich machen, daran habe ich gar nicht gedacht.

Wenn das der übliche Weg ist, wie man das realisiert, dann mach ich das mal. Dachte aber, es gibt dafür schon was vorgefertigtes...

[Lannes]

Hallo,

bei allen von TCustomEdit abgeleiteteten Komponenten kann man Modified nutzen.

Beispielsweise so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Modified := False;
  Edit1.Modified := False;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if (Memo1.Modified) or (Edit1.Modified) then
    showmessage('geändert!');
end;