обработка событий динамического объекта.

[Dima DDM]

Я пытаюсь назначить событие динамически созданному объекту,но компилятор пишет
"Incompatible types: 'Parameter lists differ"
Что делать?

// в public
  procedure Execute_VirtualCreateFrame(Sender: TObject);
    { Public declarations }
  end;


procedure Execute_VirtualCreateItem(Sender:Tobject;caption:string;);
begin
MainF.sFrameBar1.Items.Add;
Mainf.sFrameBar1.Items.Items[MainF.sFrameBar1.Items.Count-1].Caption:=caption;
Mainf.sFrameBar1.Items.Items[MainF.sFrameBar1.Items.Count-1].OnCreateFrame
:=MainF.Execute_VirtualCreateFrame; // Вот тут ошибка
end;


procedure TMainF.Execute_VirtualCreateFrame(Sender: TObject);
var
Frame: TCustomFrame;
OwnFrame:TFrame;  // сам фрэйме
begin
  Frame := OwnFrame.Create(nil);
  Frame := Frame;
end;

[veniside]

> Что делать?

делать то, что и обычно:

1) понять, что означает сообщение об ошибке
2) исправить

применительно к вашему случаю:

1) "несовместимые типы: список параметров не совпадает"
2) посмотреть, какие параметры ожидаются в OnCreateFrame() и сделать их такими же в TMainF.Execute_VirtualCreateFrame()

[Dima DDM]

Спасибо, справился.