Архив Категории ‘Советы’

Как “заставить” форму не разворачиваться из иконки?

Для этого необходимо перехватить сообщение “WM_QUERYOPEN”. Для этого необходимо
объявить соответствующую процедуру в private-области.


{ объявление процедуры в классе TMainForm }
procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;
 

Read the rest of this entry »

Как скрыть форму при старте приложения?

К сожалению при создании окна приложения ни в одном из первых событий (OnCreate,
OnShow, OnActivate) нет доступа к свойству Visible. Использование функции
ShowWindow с параметром SW_HIDE в OnActivate-событии решает проблему (но
при этом не избежать кратковременного мерцания окна перед “исчезновением”):

procedure TForm1.OnActivate(Sender: TObject);
begin
  ShowWindow(Handle, SW_HIDE);
end;

чтобы сделать окно опять видимым необходимо вызвать ту же функцию, но уже
с другим параметром:

  ShowWindow(Handle, SW_SHOW); Read the rest of this entry »
8
июня

Как скрыть свойства объекта?

   Автор: admin   в Советы

Как скрыть свойства объекта?

В иерархии VCL в большинстве случаев существует уровень объектов-”предшественников”
(TCustomXXXX), в которых многие свойства скрыты. Для унаследованных от таких
“предшественников” объектов можно “открывать” на выбор те или иные свойства.
А как можно сокрыть свойства, которые объявлены в published-области
от Object Inspector’а, но при этом оставить возможность доступа во время
работы программы? Решение состоит в объявлении свойства “по новой” в public-области.
В примере скрытым будет у объекта TMyControl свойство Height.

TMyControl = class(TWinControl) Read the rest of this entry »

Как вывести главное окно справочной системы?

В 16-битных версиях справочной системы необходимо было вызывать начальное
(главное) окно помощи с параметром HELP_CONTENTS в комманде HelpCommand.
В 32-битном варианте это осуществляется следующим образом:

Read the rest of this entry »

Как вызвать подсказку к подсказке?

В Delphi-приложении можно вызвать помощь в пользовании системой помощи следующим
образом:


Application.HelpCommand(Help_HelpOnHelp, 0);
Page 3 of 8«12345»...Last »