Главная страница
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.028 c
14-93696
Night Cold
2004-01-06 16:06
2004.01.29
Как автоматически в Memo выделять определенные слова как в редакт


1-93499
pASkdua
2004-01-16 18:14
2004.01.29
Как напечатат все содержимое SrcollBox-а?


14-93672
DimKa Nevidimka
2004-01-05 11:09
2004.01.29
И снова в бой....


6-93620
johny
2003-11-21 08:36
2004.01.29
Заполнение формы загруженной в webbrowser


1-93486
-=Sash=-
2004-01-15 14:04
2004.01.29
Создать свою форму