Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#11

Aw: Schön langsam mit Gefühl und über neuen Namen

  Alt 28. Okt 2013, 12:41
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    //...
  private
    { Private-Deklarationen }
    procedure NewButonOnClick(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.NewButonOnClick(Sender: TObject);
begin
  ShowMessage('Schön langsam mit Gefühl und über neuen Namen');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  newButton: TButton;
begin
  newButton := TButton.Create(self);
  newButton.Name := 'Testbutton';
  newButton.Parent := self;
  newButton.OnClick := NewButonOnClick;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  newButton: TButton;
begin
  newButton := TButton(FindComponent('Testbutton'));
  newButton.OnClick(nil);
end;
  Mit Zitat antworten Zitat