ааа помогите

  • Автор темы JayD
  • Дата начала
J

JayD

#1
у меня после нажатия кнопки создаются 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;