• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы dima_lamo
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

dima_lamo

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

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]
Код:
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.
 
D

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;


ничего не происходит
 
S

Silver Wind

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


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

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


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

dima lamo

Какую? название скажи... Просто я уже скачивал оч много учебников, книг, и так далее но качество ужесное...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!