Главная страница
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.016 c
7-93702
msgipss
2003-11-14 11:17
2004.01.29
Как программно настроить аудит на конкретный файл


6-93610
Sam Stone
2003-11-22 21:53
2004.01.29
ICQ


3-93361
Vi0let
2003-12-30 14:15
2004.01.29
Как прокручивать TGrid колесом мыши?


7-93715
Ertong
2003-11-09 09:39
2004.01.29
Программирование в двоичных кодах.


14-93695
strong
2004-01-06 14:45
2004.01.29
Delphi 8