ListBox, вопрос...

[CrazyJohn]

Вообщем нужно сделать так, чтобы меню небольшой программки выводилось при помощи функции ListBox. Не понятно одно - как заставить реагировать прогу на выбор пунктов в меню. То есть как вывести из функции значение того поля, которое в данный момент активно. Желательно с хорошим примером. Заранее спасибо.

[Jeni]

Если я правильно понял, то нужно просто обрабатывать событие OnClick для ListBox. Список элементов можно записать в ListBox и на этапе разработки, и во время работы программы. Код ниже выводит название текущего пункта в заголовок формы.

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Caption := ListBox1.Items[ListBox1.ItemIndex];
end;

Что можно еще посоветовать, так это установить у ListBox свойство Style равным lbOwnerDrawFixed, тогда можно увеличить значение ItemHeight, чтобы строки лучше отделялись друг от друга.

[CrazyJohn]

Не фига не понял. Замучался уже искать в инете и качать учебники. Большинство учебников рассказывает, как создавать приложения с помощью компонентов, а мне нужно с помощью API. Если кто сможет посоветовать учебник, который описывает работу с Делфи + АПИ, то буду очень благодарен. Так как дурацких вопросов, думаю, ещё будет много, но делать нечего.

ListBox:=CreateWindowEx
(0,'LISTBOX', ' ', WS_CHILD or LBS_STANDARD, 500,150,120,100,
mainmix,
BTN_TEXT_0,hInstance,0);
  Line[0]:='Добавить';
  n:=SendMessage(ListBox,LB_ADDSTRING,0,Longword(Line[0]));
  Line[1]:='Удалить';
  n:=SendMessage(ListBox,LB_ADDSTRING,0,Longword(Line[1]));
  Line[2]:='Сортоировка';
  n:=SendMessage(ListBox,LB_ADDSTRING,0,Longword(Line[2]));
  ShowWindow(ListBox,SW_SHOW);

Значит, например, есть такой код. Нужно вывести в переменную значение того поля, которое в данный момент активно в списке (то есть выделено мышкой). Либо как-то ещё заставить реагировать на выбор пункта в меню.

Есть мысль сделать кнопку ОК под менюшкой на основе ListBox, но это крайний вариант. Препод может докапаться.

Надеюсь объяснил понятно, заранее спасибо за помощь.