t := tbutton.Create(Self); t.Parent := Self; v : = tlabel.Create(Self); v.Parent := Self;
t := tbutton.Create(Self); t.Parent := Self; t.OnClick := Button1Click; v : = tlabel.Create(Self); [N]v.Parent := Self;/B
TNotifyEvent = procedure(Sender: TObject) of Object;
Button : TButton; Label: TLabel;
private procedure Tartempion(Sender: TObject);
Button.OnClick := Tartempion;
procedure TForm1.Button1Click(Sender: TObject); begin form2: =tform1.create(self); form2.parent:=self; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMéthode = procedure of object
Interface TForm1 = class(TForm) /* */ private procedure Tartempion(Sender: TObject); end;
procedure TForm1.Tartempion(Sender: Tobject); begin end;