[Apophis]

if (в боксе выделено значение "X") then ...
как написать?

[Dux]

Сообщение от Apophis

if (в боксе выделено значение "X") then ...
как написать?

Для ListBox. В обработчике ListBox1.OnClick пишем:

Код:

procedure TForm1.ListBox1Click(Sender: TObject);

begin

if listbox1.selected[ListBox1.Itemindex] then  

begin
{действие}
end;


end;

[Apophis]

и ежу понято, вопрос не в том... кстате LictBox и ComboBox одно и тоже!

[Rosenkrantz]

Сообщение от Apophis

if (в боксе выделено значение "X") then ...
как написать?

Если под "X" имеется в виду строковое значение, то так:

Код:

if ComboBox1.ItemIndex := ComboBox1.Items.IndexOf("X") then...

Но это если вы уверены, что "X" точно есть в списке комбо-бокса. Если не уверены, то можно, например так:

Код:

var
  i: Integer;
begin
  ..
  i := ComboBox1.IndexOf("X");
  if (i <> -1) and (ComboBox.ItemIndex = i) then...

[Apophis]

во, спасибо