Форум: "Основная";
Текущий архив: 2003.09.11;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c