TCollection = not TCollection ?

[himitsu]

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!)

[Namenloser]

Zitat von himitsu:

Delphi-Quellcode:

      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then

Wie wo wat? Das geht doch nicht! Das eine ist ein Objekt, das andere eine Klasse. Wenn schon Ctrl.Classtype=... . is ist aber sauberer imo.

[EWeiss]

Zitat von NamenLozer:

Zitat von himitsu:

Delphi-Quellcode:

      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then

Wie wo wat? Das geht doch nicht! Das eine ist ein Objekt, das andere eine Klasse. Wenn schon Ctrl.Classtype=... . is ist aber sauberer imo.

Hab ich was verpasst?
Um was geht's ?

Ich bekomme bei meiner abfrage das korrekte Handle.

und das geht gar nicht.

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;

Dann müßte ich nämlich die Controls bzw.. dazugehörige Units mit einbinden.
Ich befinde mich in einer DLL und die Controls in der Anwendung.


gruss