Для этого необходимо перехватить сообщение “WM_QUERYOPEN”. Для этого необходимо
объявить соответствующую процедуру в private-области.
{ объявление процедуры в классе TMainForm }
procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;
{ ... и ее реализация }
procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);
begin
Msg.Result := 0;
end;
К сожалению при создании окна приложения ни в одном из первых событий (OnCreate,
OnShow, OnActivate) нет доступа к свойству Visible. Использование функции
ShowWindow с параметром SW_HIDE в OnActivate-событии решает проблему (но
при этом не избежать кратковременного мерцания окна перед “исчезновением”):
procedure TForm1.OnActivate(Sender: TObject); begin ShowWindow(Handle, SW_HIDE); end;
чтобы сделать окно опять видимым необходимо вызвать ту же функцию, но уже
с другим параметром:
ShowWindow(Handle, SW_SHOW); Прочитать остальную часть записи »
В иерархии VCL в большинстве случаев существует уровень объектов-”предшественников”
(TCustomXXXX), в которых многие свойства скрыты. Для унаследованных от таких
“предшественников” объектов можно “открывать” на выбор те или иные свойства.
А как можно сокрыть свойства, которые объявлены в published-области
от Object Inspector’а, но при этом оставить возможность доступа во время
работы программы? Решение состоит в объявлении свойства “по новой” в public-области.
В примере скрытым будет у объекта TMyControl свойство Height.
TMyControl = class(TWinControl) Прочитать остальную часть записи »
В 16-битных версиях справочной системы необходимо было вызывать начальное
(главное) окно помощи с параметром HELP_CONTENTS в комманде HelpCommand.
В 32-битном варианте это осуществляется следующим образом:
Application.HelpCommand(HELP_FINDER, 0);
Примечание: Для того, чтобы показывались “книжки” (или главные
темы) – необходимо создать .CNT-файл.
В Delphi-приложении можно вызвать помощь в пользовании системой помощи следующим
образом:
Application.HelpCommand(Help_HelpOnHelp, 0);