Скачать: CL | DM;

Перетаскивание Image a по Image у   Найти похожие ветки 

← →
LongIsland ©   (2002-11-16 17:04) [0]

В программе понадобилось сделать сабж. Для перетаскиваемого делаю так:

procedure TfmMain.imAuxiliaryMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Down:=True;
LeftPos:=X;
TopPos:=Y;
end;

procedure TfmMain.imAuxiliaryMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if Down then
begin
imAuxiliary.Left:=X-LeftPos;
imAuxiliary.Top:=Y-TopPos;
end;
end;

procedure TfmMain.imAuxiliaryMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Down then
begin
imAuxiliary.Left:=X-LeftPos;
imAuxiliary.Top:=Y-TopPos;
end;
Down:=False;
end;

Но сам рисунок жестоко плющит, его то и дело срывает обратно, мигает:-( В обчем, не хочет он нормально себя вести, несмотря на то, что Parent.DoubleBuffered:=False; у обоих:-(

Как поступить? СПАСИБО ЗАРАНЕЕ!!!

---

← →
MBo ©   (2002-11-16 17:29) [1]


procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Down:=True;
LeftPos:=X;
TopPos:=Y;
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Down then
begin
image2.Left:=image2.Left+X-LeftPos;
image2.Top:=image2.Top+Y-TopPos;
end;
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Down then
Down:=False;
end;


---

← →
LongIsland ©   (2002-11-16 17:35) [2]

> MBo © (16.11.02 17:29)

СПАСИБО АААААГРОМНОЕ!!!

Кстати, Parent.DoubleBuffered:=True; Наврал я здесь:-)

---

← →
TTCustomDelphiMaster ©   (2002-11-16 17:37) [3]

imAuxiliary.Left:=imAuxiliary.Left+X-LeftPos;
imAuxiliary.Top:=imAuxiliary.Top+Y-TopPos;

---

← →
LongIsland ©   (2002-11-16 17:50) [4]

Еще раз спасибо всем!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c