я дополнил свой предыдущий ответ 

Сообщение от
kazer_xxx
А мне именно надо было передать параметp на функцию
Я вам посоветовал бы записать этот параметр куда нибудь. Я тоже сталкивался с такой необходимостью, но пока решения не нашёл, надо точно смотреть как создаётся в DS код события чтоб "подстроиться" под него(там на самом деле не всё так просто как я написал выше). Но я вышел из положения другим путём.
код у меня был такой:
PHP код:
set_event($ConfigEditor->HideNoExecute->self, 'OnClick', 'OnClickCEAllCB');
set_event($ConfigEditor->HideCubicFiles->self, 'OnClick', 'OnClickCEAllCB');
set_event($ConfigEditor->HideSizeNoChange->self, 'OnClick', 'OnClickCEAllCB');
set_event($ConfigEditor->HideSizeChange->self, 'OnClick', 'OnClickCEAllCB');
set_event($ConfigEditor->HideCompressionNotChange->self, 'OnClick', 'OnClickCEAllCB');
......
Function OnClickCEAllCB($oid)
{
GLOBAL $ConfigEditor;
$obj = c($oid);
SWITCH($obj->name)
{
Case 'HideCubicFiles':
Case 'HideNoExecute':
OnShowConfigEditor(False, True, False);
Break;
Case 'HideSizeNoChange':
If($obj->checked && $ConfigEditor->HideSizeChange->checked)
{
$ConfigEditor->HideSizeChange->checked = False;
Return;
}
OnShowConfigEditor(False, True, False);
Break;
....
}
}
Ещё можно например так:
PHP код:
function lol($oid)
{
alert(c($oid)->MyOwnMegaParameterForLolFunc);
}
$btn = new TMImage( c("Form1"));
$btn->parent = c("Form1");
$btn->loadFromFile("noavatar1.png");
$btn->w = $btn->h = 300;
$btn->onMouseDown = "lol";
$btn->onMouseUp = "lol";
$btn->MyOwnMegaParameterForLolFunc = 234;
$btn->x = $btn->y = 0;
$btn1 = new TBitBtn( c("Form1"));
$btn1->parent = c("Form1");
$btn1->onMouseDown = 'lol';
$btn1->MyOwnMegaParameterForLolFunc = 777;