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

procedure TForm1.Button1Click(Sender: TObject);
begin
 if ListBox1.ItemIndex>=0
  then Label1.Caption:=ListBox1.Items[ListBox1.ItemIndex]
  else Label1.Caption:='Ничего не выбрано';
end;

В принципе тот же самый код но в обработчике OnMouseDown у ListBox.

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

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


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;


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

это не беда, зато у вас статус дошел до продвинутого

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


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

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


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

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

Удаленно модератором

Для: dima lamo

а не скачай и пусть она у тебя на столе лежит