unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
private
PROCEDURE BUTO_APRETAT(Sender: TObject);
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
VAR BUTO:TButton ;
begin
BUTO:=TButton.CREATE(SELF) ;
BUTO.Parent:=PANEL1;
BUTO.Top:=2;
BUTO.Left:=4;
BUTO.CAPTION:='BAGA';
BUTO.OnClick:= BUTO_APRETAT;
end;
PROCEDURE TForm1.BUTO_APRETAT(Sender: TObject);
BEGIN
TBUTTON(SENDER).Caption:='APRETAT';
END;