Textfelder auf Änderung prüfen?

[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;