Текущий архив: 2003.09.11;
Скачать: 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 вся ветка
Текущий архив: 2003.09.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.016 c
