Créer un composant à l'execution

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs,StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure Klick(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var
Form1: TForm1;
KButton:TButton;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
KButton := TButton.Create(self);
KButton.parent := Form1; //Parent du composant crée
KButton.Name := 'Button1';
KButton.Caption := 'Knopf 1';
KButton.SetBounds(20,20,80,40); // taille/position du composant
KButton.OnClick := Klick;
end;

procedure TForm1.Klick(Sender: TObject);
begin
KButton := TButton(Sender);
KButton.caption := 'Knopf2';
end;
end.
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 798 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur