OnEnter - должен быть методом класса TForm
Код:
procedure TForm1.OnEnterr(Sender: TObject);
begin
ShowMessage('hello');
end;
соответственно его нужно объявить в описании класса TForm1
и не
Цитата:
|
...@(Components[i] as TTabSheet).OnEnter := @OnEnterr;...
|
а
Код:
...(Components[i] as TTabSheet).OnEnter := OnEnterr;...