Hallo
hier ist mein Code
Es wird damit ein Button erzeugt, möchte ich aber danach einen Code in MyButton einbauen:
Delphi-Quellcode:
procedure TForm1.Label1Click(Sender: TObject);
var MyButton : TButton;
begin
MyButton := TButton.Create( Self );
MyButton.Parent := Self;
MyButton.Caption:='Gerade geboren :)';
MyButton.Left:=150;
MyButton.Top:=10;
MyButton.Width := 100;
MyButton.Height := 25;
MyButton.TabOrder := 11;
MyButton.Name := 'MyButton';
end;
procedure TForm1.MyButtonClick(Sender: TObject);
begin
showMessage('hallo');
end;
Wenn ich aber auf mein MyButton anklicke, wird keine Message erscheinen !