Сообщение:
Цитата:
|
Incompatible types: 'method pointer and regular procedure'
|
Если же сделать так:
Код:
procedure TForm1.First1Click(Sender: TObject);
begin
///
end;
a[Length(a)-1].OnClick:=First1Click;
Где First1Click - событие какой-нибудь кнопки, то я не знаю, как обращаться с Sender'ом...