Delphi-Quellcode:
for ICtrl := 0 to FParentObj.ComponentCount - 1 do
begin
Ctrl := FParentObj.Components[ICtrl];
If (Ctrl = TComboBox) or
(Ctrl = TComboBoxEx) or
(Ctrl = TDBLookupCombo) or
(Ctrl = TDriveComboBox) then
begin
CtrHwnd := FindWindowEx(FParentObj.Handle, 0, PChar(Ctrl.ClassName), nil);
end;
Und falls auch die Nachfahren der Kombonenten mit erwischt werden sollten, dann
is
statt
=
.
PS:
Zitat:
PWideChar
FindWindowEx + PChar + String
oder
FindWindowExW + PWideChar + WideString/UnicodeString
PSS:
FindControl macht aus einem HWND ein TWinControl (aber nur in der eigenen Anwendung!)