[GeG]

Код:

procedure TForm3.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var Point: Tpoint;
      Index: Integer;
      z:real;
  begin
Point.X := X;
Point.Y := Y;
Index := ListBox1.ItemAtPos(Point,true);
end;

как мне теперь досать это значение в поле едит1 ??

[lmikle]

Ну и вопросики вы задаете. Ты же получил индекс итема... по нему и доставай:

Код:

Edit1.Text := ListBox1.Items[Index];

[GeG]

спасибо
(глюки бывают )