Для этого необходимо обработать сообщение WMQUERYOPEN. Однако обработчик сообщения необходимо поместить в секции private - т.е. в объявлении TForm.

Code:

procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;

 

Реализация будет выглядеть следующим образом:

 

procedure WMQueryOpen(var Msg: TWMQueryOpen);

begin

Msg.Result := 0;

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить