Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получение ссылки на экземпляр класса

Программисты ругаются:
- Типун тебе на модем!
- Эх ты, защёлка от дисковода!
- Не бита совести у тебя нет!

...мне также понадобилось в подпрограмме получить ссылку на дочернее MDI-окно без сообщения подпрограмме с каким конкретно классом MDI необходимо работать. Что я сделал: я передавал в виде параметров тип дочернего MDI-окна и ссылку как нетипизированную переменную и затем обрабатывал это в подпрограмме.

Вот пример. Эта подпрограмма работает с дочерним окном, которое может иметь только один экземпляр. Если оно не открыто, подпрограмма создаст его, если оно открыто, оно переместит его на передний план.


procedure FormLoader (FormClassType: TFormClass; var FormName);
begin
  if TForm(FormName) = nil then
  begin
    Application.CreateForm (FormClassType, FormName);
  end
  else
  begin
    TForm(FormName).BringToFront;
    TForm(FormName).WindowState := wsNormal;
  end;
end;

Вот как это вызывать:


procedure TfrmTest.sbOpenClick(Sender: TObject);
begin
  FormLoader (TfrmTest, frmTest);
end;

Проект Delphi World © Выпуск 2002 - 2004
Автор проекта: ___Nikolay