Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Сервис для компонентов



Вернуться к списку функций
 Получение родительской формы компонента

 Прислал: VID (Махачкала) ( 27 марта 2003 г. )
©  VID
 Описание:
Функция возвращает TForm который является родительской формой передаваемого в функцию компонента.

 Зависимости:
classes

 Ограничения:
d5, win2000

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Получение родительской формы компонента

Функция возвращает TForm который является родительской формой передаваемого в функцию компонента.

Зависимости: classes
Автор:       VID, snap@iwt.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        27 марта 2003 г.
***************************************************************** }

Function GetParentForm(Component:TComponent):TForm;
Var C:TComponent;
begin
  Result := nil;
  IF Component = nil then exit;
  C:=Component;
  REPEAT
    Component := C;
    try C:=Component.Owner except C:=Component; end;
  until (C is TForm) or (C=Component);
  IF C is TForm then Result := C as TForm;
end;

 Пример использования:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetParentForm(Sender as TComponent).Name);
end;


Вернуться к списку функций

Наверх ▲