Скачать: CL | DM;

procedure WMLButtonDown(var Msg : TMessage); message WM_LBUTTONDO   Найти похожие ветки 

← →
MyVeryShortLogin ©   (2002-08-13 15:13) [0]

Вот такая проблема, не могу определить реакцию на сообщение, вот кусок кода и сообщение об ошибке:
type
{$IFDEF KOL_MCK}
{$I MCKfakeClasses.inc}
PForm1 = ^TForm1;
TForm1 = object(TObj)
Form: PControl;
{$ELSE not_KOL_MCK}
TForm1 = class(TForm)
{$ENDIF KOL_MCK}
KOLProject1: TKOLProject;
KOLForm1: TKOLForm;
private
{ Private declarations }
procedure WMLButtonDown(var Msg : TMessage); message WM_LBUTTONDOWN;
->public
{ Public declarations }
end;
Errors:
Undeclared identifier: "public";
";" expected but "END" found;

---

← →
Gandalf   (2002-08-13 17:47) [1]

Для этого есть OnMessage.

---

← →
MyVeryShortLogin ©   (2002-08-13 18:38) [2]

Сенкс, заработало...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c