Ошибка в procedure ... message

← →
Dosian (2007-06-13 05:52) [0]

Помогите пожалуйста с проблемой!
То ли я туплю, то ли хрен его знает, что это такое!

Например пишу...
.....
private
procedure WMWindowPosChanging(var msg: TWMWindowPosChanging); message wm_WINDOWPOSCHANGING;
public
.....

Выдаёт ошибку : [Error] Unit1.pas(49): Undeclared identifier: "public"

Иными словами, после вставки message выдаёт ошибку синтаксиса!

← →
homm © (2007-06-13 05:55) [1]

Вопрос по КОЛ? Читать книгу и глупостей не спрашивать. Вомоему вовсех местах, где можно написано, что в КОЛ нет классов.

← →
=BuckLr= (2007-06-13 11:09) [2]

Да. А мессагу вешать на форму, к примеру

← →
MTsv DN © (2007-06-13 13:34) [3]

> Да. А мессагу вешать на форму, к примеру
Это вопрос??? Тогда:
function TForm1.Form1Messege(...): boolean; begin Result := false; if Msg.message = wm_WINDOWPOSCHANGING then begin ... Result := true; end; end;

И...читайте homm"a:
Вопрос по КОЛ? Читать книгу и глупостей не спрашивать. Вомоему вовсех местах, где можно написано, что в КОЛ нет классов.

← →
=BuckLr= (2007-06-13 13:42) [4]

> Это вопрос???

Нет, совет :)

← →
Vladimir Kladov (2007-06-13 20:51) [5]

Зачем же сразу книгу, это и в FAQ написано.

Ошибка в procedure ... message Найти похожие ветки