Aktives Control farbig hinterlegen

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

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Datenbanken" nach "VCL-Komponenten und Controls" verschoben.
Ist eher eine VCL-Frage als eine zum Thema Datenbanken ;-)

[Sharky]

Zitat:

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;