Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c