Текущий архив: 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.44 MB
Время: 0.007 c