Как узнать имя формы в которой лежит контрол

← →
Hollywood (2003-08-28 18:24) [0]

Например контрол TTreeView лежит в TPanel, а TPanel, в свою очердь лежит в TPageControl и т.д.
procedure TForm1.OnDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin inherited; Accept:= False; if Source is TTreeView then if TTreeView(Source).Parent is TForm2 then if not (TTreeView(Source).Selected = nil) then Accept:= True; end;

TTreeView(Source).Parent, в данном случае возвращает TPanel.
А как же узнать форму в которой он находится?

← →
Skier (2003-08-28 18:26) [1]

GetParentForm(...)

← →
Hollywood (2003-08-28 18:31) [2]

Спасибо.
Век живи..... а дурачком и помрешь! :-)

Как узнать имя формы в которой лежит контрол Найти похожие ветки