1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

ааа помогите

Тема в разделе "Вопросы новичков и не только", создана пользователем JayD, 13 сен 2009.

  1. JayD

    JayD Гость

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

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