Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#13

AW: Funktion in selbst erstellter Form

  Alt 30. Sep 2012, 03:24
Also nur um das mal klarzustellen

Wenn du im Kontext von einer Form ( oder egel welcher Klasse) eine Zuweisung machst:
Delphi-Quellcode:
procedure TForm1.CreateFormo( Sender : TObject );
begin
  MyButton := Tbutton.Create( myform );
  with MyButkton do
  begin
    ...
    OnClick := Button1Click;
    ...
  end;
end;
dann wird dem Button in deiner myform die Methode von Form1 zugeordnet und nicht der Methode aus myform!
Wenn du das möchtest, dann doch bitte so
Delphi-Quellcode:
procedure TForm1.CreateFormo( Sender : TObject );
begin
  MyButton := Tbutton.Create( myform );
  with MyButkton do
  begin
    ...
    OnClick := MyForm.Button1Click;
    ...
  end;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat