Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Как изменить оконную процедуру для TForm?

Как изменить оконную процедуру для TForm?

Переопределите в подклассе TForm оконную процедуру WinProc класса. В примере оконная процедура переопределяется для того чтобы реагировать на сообщение WM_CANCELMODE, показывающее, что выполняется messagebox или какой-либо еще диалог.
Пример:

type
    TForm1 = class(TForm)
        Button1: TButton;
        procedure WndProc (var Message: TMessage); override;
        procedure Button1Click(Sender: TObject);
    private
        {Private declarations}
    public
        {Public declarations}
end;

var
    Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WndProc (var Message: TMessage);
begin
    if Message.Msg = WM_CANCELMODE then
        begin
            Form1.Caption := 'A dialog or message box has popped up';
        end
    else
        inherited  // <- остальное сделает родительская процедура
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage('Test Message');
end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru