ааа помогите

Тема в разделе "Pascal and Delphi", создана пользователем JayD, 13 сен 2009.

  1. JayD

    JayD Гость

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

Поделиться этой страницей