TDBComboBox mit FindVCLWindow ermitteln?

[Angel4585]

Hi

ich habe

Delphi-Quellcode:

var
wc : TWinControl;
begin
wc:=FindVCLWindow(Mouse.CursorPos);
TDBComboBox(wc).enabled:=false;
end;

das habe ich in der onClick Methode der DBComboBox drin, allerdings wenn ich darauf klicke dann passiert nichts, obwohl die Komponente eigentlich disabled werden sollte. Hat jemand ne Erklärung warum?
Hab dasselbe mal nur mit TDBEdits gemacht und da funktioniert es tadellos.

[marabu]

Wäre das hier nicht einfacher?

Delphi-Quellcode:

procedure TMainForm.DBComboBoxClick(Sender: TObject);
begin
  with Sender as TDBComboBox do
    Enabled := false;
end;

marabu