Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.24;
Скачать: 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 вся ветка

Текущий архив: 2008.08.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
6-1192283286
user666
2007-10-13 17:48
2008.08.24
IdSMTP. Отправка почтового сообщения с специфическим аттачем


2-1215876002
Zhekson
2008-07-12 19:20
2008.08.24
Перевернуть изображение


15-1215459610
Артур Пирожков
2008-07-07 23:40
2008.08.24
Как обмениваться информацией между офисом и пр-ом?


15-1215488789
Slider007
2008-07-08 07:46
2008.08.24
С днем рождения ! 8 июля 2008 вторник


15-1215033148
Германн
2008-07-03 01:12
2008.08.24
Стоит ли серьёзно относится к исходникам, где встречается