[GeG]

Код:

1 2 3 4 5 6 7 8 9 10

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]

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

Код:

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

[GeG]

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