edit-feld-color on enter bzw. on leave farbe verändern

[Sharky]

Zitat von tylix:

...oder wie mach ich das? mit dem gleichen onedit / onexit.

So

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 To Pred (ControlCount) do
  begin
    if ((Controls[ndx]) IS TEdit) then  // Alle TEdits berücksichtigen
    begin
      (Controls[ndx] As TEdit).OnEnter := EditEnter;  // OnEnter-Methode zuweisen
      (Controls[ndx] As TEdit).OnExit := EditExit;  // OnExit-Methode zuweisen.
    end;
  end;
end;

procedure TForm1.EditEnter(Sender: TObject);  // OnEnter
begin
  (Sender As TEdit).Color := clAqua;  // Sender auswerten
end;

procedure TForm1.EditExit(Sender: TObject);  // OnExit;
begin
  (Sender As TEdit).Color := clWhite;
end;

Anstelle es im OnCreat der Form zu machen kannst Du natürlich auch allen TEdits das OnEnter im ObjectInspector zuweisen.