Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

message   Найти похожие ветки 

 
DillerXX ©   (2003-11-21 16:08) [0]

Что-то я ничё не понимаю. Вот пишу:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure fdf(var msg:TMessage);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.fdf(var msg:TMessage);
begin
if msg.Msg=BM_CLICK then
ShowMessage("");
end;

end.


И ничего не ловится


 
Игорь Шевченко ©   (2003-11-21 16:25) [1]

И не будет ловится.
procedure xxx (var Message : TMessage); message BM_CLICK;


 
jack128 ©   (2003-11-21 17:08) [2]

и еще не забудь inherited поставить..



Страницы: 1 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
9-93317
inc-viz
2003-07-13 14:15
2004.01.29
Delphix - вывод спрайтов


14-93624
Думкин
2004-01-09 07:15
2004.01.29
С днем рождения! 9 января.


1-93507
Марат
2004-01-19 06:16
2004.01.29
DBGrid


3-93393
Centurion
2003-12-30 13:48
2004.01.29
Прерывание запросов


1-93492
Карелин Артем
2004-01-12 12:54
2004.01.29
Минимизация модальных окон.