witam
wlacze dzisiaj z pozoru prostym problemem. chce podpiac obsluge guzika dla dynamicznie utworzonego komponentu. problem polega na tym ze jesli stworze sobie nowy projekt i dodam tam ten kod to dziala ok natomiast jesli przeniose ten sam kod do innej aplikacji (ma pare tysiecy lini kodu) to juz nie dziala bo dostaje blad:
[Error] Main.pas(2323): Incompatible types: 'System.TObject' and 'Main.TObject'
kod jest taki
deklaracja w TfrmMain w private:
procedure RecentFilesMenuClick(Sender: TObject);
definicja w TfrmMain:
procedure TfrmMain.RecentFilesMenuClick(Sender: TObject);
begin
//
end;
kod w innej funkcji:
var tmpEdit: TEdit;
...
tmpEdit:= TEdit.Create(frmMain);
tmpEdit.OnClick := self.RecentFilesMenuClick; // tutaj jest blad
dodam jeszcze tylko ze jak wpisze tmpEdit.OnClick i wlacze sobie dopelniania to na liscie nie ma ani jednej procedury pomimo ze sa ich dzisiatki w tej klasie z odpowiednimi parametrami (Sender: TObject).
dzieki za pomoc
pozdrawiam
marcin