Listbox, как сделать чтоб при нажатии на кнопку, выделенная строка зап

Тема в разделе "Delphi - Система", создана пользователем dima_lamo, 29 янв 2008.

Статус темы:
Закрыта.
  1. dima_lamo

    dima_lamo Гость

    ListBox, как сделать чтоб при нажатии на кнопку, выделенная строка записалась в перменную?
    И ещё, как сделать чтоб при нажатию на строку в ListBox, записалось в перменную значение строки, и автоматически выполнился какой-либо коД
     
  2. Silver Wind

    Silver Wind Гость

    <!--QuoteBegin-dima_lamo+29:01:2008, 10:11 -->
    <span class="vbquote">(dima_lamo @ 29:01:2008, 10:11 )</span><!--QuoteEBegin-->ListBox, как сделать чтоб при нажатии на кнопку, выделенная строка записалась в перменную?
    [snapback]95502" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Код (Text):
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if ListBox1.ItemIndex>=0
    then Label1.Caption:=ListBox1.Items[ListBox1.ItemIndex]
    else Label1.Caption:='Ничего не выбрано';
    end;
    <!--QuoteBegin-dima_lamo+29:01:2008, 10:11 -->
    <span class="vbquote">(dima_lamo @ 29:01:2008, 10:11 )</span><!--QuoteEBegin-->И ещё, как сделать чтоб при нажатию на строку в ListBox, записалось в перменную значение строки, и автоматически выполнился какой-либо коД
    [snapback]95502" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    В принципе тот же самый код но в обработчике OnMouseDown у ListBox.
     
  3. dima_lamo

    dima_lamo Гость

    Пасиб, +те, всё суепР!

    Хым, прописываю так:


    procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    begin
    if ListBox1.ItemIndex>=0
    then Label1.Caption:=ListBox1.Items[ListBox1.ItemIndex]
    else Label1.Caption:='Ничего не выбрано';
    end;


    ничего не происходит
     
  4. Silver Wind

    Silver Wind Гость

    А что должно происходить?


    procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;

    Может все дело в этом?


    З.Ы. Купи себе книжку по Delphi чтоли.
     
  5. dima lamo

    dima lamo Гость

    Какую? название скажи... Просто я уже скачивал оч много учебников, книг, и так далее но качество ужесное...
     
  6. dima_lamo!

    dima_lamo! Гость

    Удаленно модератором
     
  7. root

    root Гость

    Для: dima lamo
    а не скачай и пусть она у тебя на столе лежит
     
Загрузка...
Статус темы:
Закрыта.

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