Dilma писал(а):
Эдик, советую почаще просматривать элементы палитры:
code_9709.txt
Dilma, почему вот так
Add(MainForm,2953706,252,231)
{
}
Add(Button,7913403,252,273)
{
Left=215
Top=95
link(onClick,12083433:doPrint,[])
}
Add(FTCG_Tools,12083433,308,273)
{
}
BEGIN_SDK
Add(EditMultiEx,6444690,21,21)
{
WorkCount=#7:doPrint|
EventCount=#7:onPrint|
Width=475
Height=179
link(doPrint,14130509:doPrint,[(35,27)(35,69)])
}
Add(VisualInline,14130509,49,63)
{
Lines=#14:var t:integer;|5:begin|15: t := 50 + 90;|46: messagebox(0, pchar(int2str(t)), '', mb_ok);|4:end;|
Width=348
Height=113
link(onPrint,6444690:onPrint,[(447,69)(447,27)])
}
END_SDK
эта схема выдает ошибку
W:\Elements\delphi\code\hiFTCG_Tools_DD1C58.pas(80) Error: Expression expected but ')' found
и, собственно, то самое место в полученном коде
procedure TClassFTCG_Tools_DD1C58.event_doPrint(var Data:TData; index:word);
begin
printCode(data);
_hi_onEvent(THIFTCG_Tools(FParent).Events[0], ); //???
end;