Combobox

[Sharky]

Hai ihr,

warum nicht allen Betroffenen Controls das selbe OnExit bzw. OnEnter Ereigniss zuweisen und dann dort die Farben setzen?

Delphi-Quellcode:

procedure TDemo_Form.AllCBOnEnter(Sender: TObject);
begin
  (Sender as TComboBox).Color := clRed;
end;

procedure TDemo_Form.AllCBOnExit(Sender: TObject);
begin
  (Sender as TComboBox).Color := clWindow;
end;

procedure TDemo_Form.FormCreate(Sender: TObject);
var
  ndx: Integer;
begin
  for ndx := 0 to Pred(self.ComponentCount) do
  begin
    if self.Components[ndx] is TComboBox then
    begin
      with self.Components[ndx] as TComboBox do
      begin
        OnEnter := AllCBOnEnter;
        OnExit  := AllCBOnExit;
      end;
    end;
  end;
end;

Dann ist es egal wie ein Control den Focus bekommen hat (Tastatur, Maus oder Programmgesteuert)