Change nur bei Sender=?

[Sharky]

Hai mandumoal,

du könntest einfach das OnChange ereigniss beim "betreten" des Edits entfernen und beim verlassen wieder verbinden:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);  //OnChange für das Edit
begin
 //Mache was
end;

procedure TForm1.Edit1Enter(Sender: TObject);  //Edit erhält den Focus
begin
 (Sender As TEdit).OnChange := nil;
end;

procedure TForm1.Edit1Exit(Sender: TObject);  //Edit verliert den Focus
begin
 (Sender As TEdit).OnChange := Edit1Change;
end;