button ableitung funktioniert nur teilweise [solved]

[wbeppler]

hi

ich bau immer noch am selben problem rum, ich hab ne buttonclasse abgeleitet wie folgt:
procedure TMButton.Click;
begin
inherited;
MessageDlg('Hallo TMButton',mtInformation, [mbOK],0); // messagebox geht problemlos
FormKalenderJahr.EditNummer.Text := caption; // inhalt eines feldes der form beschreiben geht auch problemlos
// TFormKalenderJahr.Button1.click; // einen button klicken auf der form bringt fehler ????????
end;

die auskomentierte zeile geht nicht zu compilieren, es kommt immer
unit_kalenderjahr.pas(291,28) Error: Only class methods, class properties and class variables can be referred with class references

ich moechte mit click auf einen der selber per programm zur laufzeit erstellten TMbutton immer ein und die selbe aktion aussfuehren die ich anderweitig schon in der form habe.

was mache ich da falsch ? hab ich was nicht verstanden ? ich refenzier doch mit TFormKalenderJahr. (name meiner form)

danke vorab
w

[mse]

Code: Alles auswählen

 
procedure TMButton.Click;
begin
  inherited;
  MessageDlg('Hallo TMButton',mtInformation, [mbOK],0); // messagebox geht problemlos
  FormKalenderJahr.EditNummer.Text := caption;  // inhalt eines feldes der form beschreiben geht auch problemlos
//  TFormKalenderJahr.Button1.click; // einen button klicken auf der form bringt fehler ????????
  FormKalenderJahr.Button1.click;
end;
 

[wbeppler]

ich danke mse !
ich blindi, ich sollte nichht so viel mit cut-past machen, die fehlermeldung hatte ich bei meinen versuchen schon oefters

sänkjuh !