Aktives Control farbig hinterlegen

[Sharky]

Zitat von jedi:

Hallo,
ich suche eine Möglichkeit, das jeweils aktive Eingabefeld auf einem Formular farbig darzustellen, ohne für jedes Feld eine einzelne Abfrage zu gestalten.

Hai jedi,

wenn Du eine Procedure für OnEnter und OnExit schreibst und diese dann allen Edit-Feldern zuweiss kannst Du das z.B. so machen:

Delphi-Quellcode:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  if (Sender is TEdit) then
  begin
    (Sender as TEdit).Color := clblue;
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if (Sender is TEdit) then
  begin
    (Sender as TEdit).Color := clWindow;
  end;
end;