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

Проблема с назначением процедуры кнопке (Lazarus/WinCE)   Найти похожие ветки 

← →
Дмитрий Пырин   (2007-10-20 13:02) [0]

Пытаюсь писать под WinCE на KOL без использования MCK
вот такой комплект установлен:
Lazarus-0.9.23-fpc-2.2.0-20071019-win32.exe
fpc-2.2.0.arm-wince.exe
kolce_rev194
--------------------------
сделал вот такую основу:

program project1;
uses
 windows,
 messages,
 kol;
var
Form,b1: PControl;


procedure start ;
begin
 MessageBox(0,  "Hello Mobile World", "", MB_OK);
end;


begin
Form:=NewForm(Applet,"Hello World");
b1:=NewButton(form,"Show") ;
b1.OnClick:= TOnEvent(MakeMethod(nil,@start));
Run(Form);
end.


при попытке компиляции выдаёт ошибку:

project1.lpr(19,5) Error: Illegal qualifier
project1.lpr(19,5) Hint: may be pointer dereference is missing
project1.lpr(19,5) Error: Illegal expression
project1.lpr(19,5) Fatal: Syntax error, ";" expected but "identifier ONCLICK" found


подскажите пожалуйста, как правильно назначать действия элементам.

---

← →
Дмитрий К ©   (2007-10-20 19:41) [1]

примерно так:

program project1;
uses
 windows,
 messages,
 kol;

var
 Form, b1: PControl;

procedure start(Dummy, Sender: PObj);
begin
 MessageBox(0,  "Hello Mobile World", "", MB_OK);
end;

begin
 Form:=NewForm(nil,"Hello World");
 b1:=NewButton(Form,"Show") ;
 b1.OnClick:= TOnEvent(MakeMethod(nil,@start));
 Run(Form);
end.

---

← →
Дмитрий К ©   (2007-10-20 19:51) [2]

Так, насколько я понял, Dummy не нужен.
т.е. procedure start(Sender: PObj);

---

← →
Yury Sidorov   (2007-10-20 21:08) [3]

Dummy нужен.
Но не забывайте включить режим совместимости с Delphi. Иначе нужно писать
b1^.OnClick
а не
b1.OnClick

---

← →
Дмитрий Пырин   (2007-10-20 21:37) [4]

Благодарю. разобрался.
я не знал про флаг совместимости с Дельфи в Лазарусе. Поставил его в опциях компилятора и всё нормально заработало

---

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

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



Память: 0.46 MB
Время: 0.017 c