1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

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

ааа помогите

Тема в разделе "Pascal and Delphi", создана пользователем 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;
     
Загрузка...
Похожие Темы - ааа помогите
  1. number27
    Ответов:
    0
    Просмотров:
    77
  2. Rina
    Ответов:
    0
    Просмотров:
    92
  3. maksiiimka
    Ответов:
    2
    Просмотров:
    90
  4. Ким
    Ответов:
    23
    Просмотров:
    611
  5. Sr233
    Ответов:
    2
    Просмотров:
    194

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