Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Программа и Интерфейс , Формы

Изменить оконную процедуру для 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
    Form1.Caption := 'A dialog or message box has popped up'
  else
    inherited // Oстальное сделает родительская процедура
end;

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

Статья Изменить оконную процедуру для TForm раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Формы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 17:34:35/0.035678148269653/2