создать компонент

[димах]

у меня после нажатия кнопки создаются label(их количество опредиляется количеством item в combobox или можно количеством линий в мемо))) потом я нажимаю на любой из label и он присваевает edit1.text тот текст каторий в линии мемо нумеруется так же как и label(допустим нажав label3 выбирается 3-я строка в мемо) пожалуйста пишите все что можете ))не могу зделать аш башня кипит))
уже4 час в нети вишу и нечего))) надежда токо на вас!!!

Добавлено через 2 минуты
вот если что код(s уже описана как интеджер):\

procedure TForm1.c(offset: integer);
var edit: tlabel;
begin
edit := tlabel.Create(form1);
edit.Parent := scrollbox1;
edit.Left:= 20;
edit.Top := 30 * offset;
edit.Visible := true;
edit.Name := 'Labe'+inttostr(offset);
edit.Caption:= 'сообщение'+ inttostr(offset);
edit.OnClick:=Label1click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
c(z);
z:=z+1;
end;

[SalasAndriy]

Здравствуйте!

Вот! Держите и разбирайтесь)) Набросал небольшой проектик... может поможет мой пример чем-то...

[Stilet]

Не открывал предидущий пример, но на всякий случай свой предложу:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var l:TLabel;i:integer;
begin
 for i:=0 to Memo1.Lines.Count-1 do begin
 with TLabel.Create(self) do begin
  name:='l'+IntToStr(i);
  tag:=i;
  OnClick:=Label1Click;
  Parent:=Panel1;
  Align:=alTop;
  Caption:=Memo1.Lines[i];
  Show;
 end;
 end;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
 caption:=Memo1.Lines[TLabel(sender).tag];
end;

end.

[JAy_D]

аааа я крычу )))Чуваки спс вам)))