Dynamiczne zdarzenia

[Legalnl]

Siemka. Mam takie pytanko. W jaki sposob podczas dzialania programu utworzyc label ze zdarzeniem OnClick?

Tworzenie np

 label1:= tlabel.create(nil);
label1.caption := 'HCP';

nie wiem czy dobrze, pisze z fona.
I teraz w jaki sposob przypisac do OnClick lub innego zdarzenia jakas procedure?

Pozdrawiam

 

[kanar123]

Choć tego na necie jest mnóstwo zrobiłem dla Ciebie:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure showlabel2(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure tform1.showlabel2;
var
label2 :Tlabel;
begin
label2:=Tlabel.Create(self);
label2.Parent:=self;
label2.Caption:='label2';
label2.Visible:=true;
label2.Enabled:=true;
label2.Top:=10;
label2.Left:=10;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
label1 :Tlabel;
begin
label1 := Tlabel.Create(self);
label1.Parent:=self;
label1.Caption:='label';
label1.Visible:=true;
label1.Enabled:=true;
label1.Top:=30;
label1.Left:=30;
label1.OnClick:=showlabel2;
end;

end.

 

[Legalnl]

O dziekuje bardzo

domyslam się ze w necie jest tego duzo no ale nie mam jak siedzieć na internecie

(tak na dłuzej i coś szukać)

pozdrawiam i dzieki