Как передать событие?

← →
insmod © (2002-06-09 10:51) [0]

Такой вот вопрос у меня: Надо чтоб при запуске Формы2 из Формы1, Форме2 присваивалось событие OnDblClick например просто Close, ну и собственно при закрытии Формы2 он убиралось, но это только будет при запуске с Формы1. Вот. Такой вот изврат.

← →
Song © (2002-06-09 10:55) [1]

Form1.onDblClick:=CloseProc;

В CloseProc пишешь закрытие

При выходе Form1.onDblClick:=nil;

← →
MBo © (2002-06-09 10:57) [2]

формулировочки-то хромают...
form2.ondblclick:=form2.closeclick;

procedure form2.closeclick(Sender:TObject);
Close;

Нифига.
выделеяет строчку procedure form2.closeclick(Sender:TObject);
и пишет ";" expected but "." found

Как передать событие? Найти похожие ветки