Главная страница
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.02 c
1-93518
Pantera111
2004-01-18 17:12
2004.01.29
Запуск моей программы через


1-93580
_Dmitry_
2004-01-16 11:17
2004.01.29
TWebBrowser


1-93562
frost
2004-01-17 14:22
2004.01.29
String в URL?


1-93435
IronHawk
2004-01-16 15:13
2004.01.29
Приветствую Мастеров! Как сделать проверку, что в строке ДАТА?


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