Forum: Programmieren allgemein
by himitsu,
6. Jul 2011
Es handelt sich doch um Komponenten einer Form der eigenen Anwendung?
Wenn ja, dann siehe PSS in #11.
PS: Von Delphi automatisch erzeugt form haben immer Application als Owner, weswegen sie sich auch über Application.Components finden lassen.
Alle anderen delphieigenen TopLevel-Forms sind nochmal über Screens.Forms aufzufinden.
Ach ja, die Variante über den ClassType hat noch den...
Forum: Programmieren allgemein
by himitsu,
6. Jul 2011
usp, ja
Ctrl.ClassType = TIrgendwas or Ctrl is TIrgendwas
PS: Nur weil Klassen den gleichen Namen haben, müssen sie nicht die selben Klassen-Deklarationen besitzen.
Geh mal raus und frage so lange, bis du einen "Frank" gefunden hast ... mit etwas Glück bin ich das.
Forum: Programmieren allgemein
by himitsu,
6. Jul 2011
for ICtrl := 0 to FParentObj.ComponentCount - 1 do
begin
Ctrl := FParentObj.Components;
If (Ctrl = TComboBox) or
(Ctrl = TComboBoxEx) or
(Ctrl = TDBLookupCombo) or
(Ctrl = TDriveComboBox) then
begin
CtrHwnd := FindWindowEx(FParentObj.Handle, 0, PChar(Ctrl.ClassName), nil);