smus811
type
TForm1 = class(TForm)
...
procedure LabelClick(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
...
Lbl : array of TLabel;
I:integer;
for I := Low(Lbl) to High(Lbl) do
begin
Lbl[I] := TLabel.Create(self);
Lbl[I].Parent := ScrollBox1;
Lbl[I].Tag:=i;
Lbl[I].OnClick := LabelClick;
end;
...
procedure TForm1.LabelClick(Sender: TObject);
begin
ShowMessage('Label ¹ '+IntToStr((Sender as TComponent).tag));
end;
Добавлено:
ShIvADeSt
Я писал свою функцию, потому что выводил текст из мемо на принтер и при этом конвертировал их так чтоб красивые рамочки получались в режиме текстовой печати.
Может, действительно извращение, зато "fully customizable"
type
TForm1 = class(TForm)
...
procedure LabelClick(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
...
Lbl : array of TLabel;
I:integer;
for I := Low(Lbl) to High(Lbl) do
begin
Lbl[I] := TLabel.Create(self);
Lbl[I].Parent := ScrollBox1;
Lbl[I].Tag:=i;
Lbl[I].OnClick := LabelClick;
end;
...
procedure TForm1.LabelClick(Sender: TObject);
begin
ShowMessage('Label ¹ '+IntToStr((Sender as TComponent).tag));
end;
Добавлено:
ShIvADeSt
Я писал свою функцию, потому что выводил текст из мемо на принтер и при этом конвертировал их так чтоб красивые рамочки получались в режиме текстовой печати.
Может, действительно извращение, зато "fully customizable"
