(Gast)
n/a Beiträge
|
Aw: Schön langsam mit Gefühl und über neuen Namen
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;
|
|
Zitat
|