[movnet]

Страдалецъ спасибо. а как теперь прокрутить ScrollBox спомощю мыши?

Пробывал так :

Код:

procedure TForm1.ScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 MoveScroll:=True;
 GetCursorPos(LastPoint);
end;

procedure TForm1.ScrollBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 MoveScroll:=False;
end;

procedure TForm1.ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
 var P : TPoint;
begin
 if not MoveScroll then
 Exit;
 GetCursorPos(P);
 ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position-(P.X-LastPoint.X);
 ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-(P.Y-LastPoint.Y);
 GetCursorPos(LastPoint);
end;

нечего не получается...

[nomen-nescio]

Вопрос таков: у меня есть панель RadioGroup, радиобатоны на ней переключает картинки на Image, все картинки загружаются из корневой папки программы путём Image1.Picture.LoadFromFile('ляля.jpg'). Помимо этого ещё загружается и сохраняется информация из мемо в тхт. Так вот после первого же сохранения из мемо в тхт на рабочий стол, картинки отказываются переключаться, выдавая ошибку, что, мол, на рабочем столе твоей ляля.jpg не обнаружено.

[KOOL]

Телепаты в отпуске, так что код в студию (в тегах!)
Возможная причина ошибки - меняется рабочая папка. Надо попробовать загружать так:

Код:

Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'file.jpg');

[nomen-nescio]

Спасибо) С таким вариантом пока всё гладко.