помогите чайнику

Guest · 02.12.2004

я чайник!!!прошу подсказать как в делфи можно ПЛАВНО передвигать обьекты с места на место!!! очень надо!!! :lol:

Barmutik · 02.12.2004

Какие конкретно объекты? Визуальные контролы или нарисованные Вами элементы внутри TPaintBox?

Vagor.ini · 03.12.2004

Дабы не нарушать копирайты...

Скрыто от гостей

Guest · 04.12.2004

большое пасибо за ссылки, ато прочитал несколко учебников а эта тема почему-то не попалась!!!

ZENsan · 04.12.2004

Код:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
(Sender as TWinControl).Tag:=X shl 16+Y;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
(Sender as TWinControl).Tag:=0;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with (Sender as TWinControl) do
 if Tag<>0 then
  begin
   Left:=Left+x-(Tag shr 16);
   Top:=Top+Y-(Tag and $FFFF);
  end;
end;

Vmesto buttona, ljuboj drugoj control