Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.28;
Скачать: 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 вся ветка

Текущий архив: 2002.11.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
3-92945
BSD
2002-11-12 11:21
2002.11.28
Проблема с VCLIB50.bpl


14-93207
Akhmadey
2002-11-08 16:09
2002.11.28
Где взять рабочие компоненты


4-93281
daan_m
2002-10-12 12:16
2002.11.28
Как можно скрыть процес


14-93243
Фикус
2002-11-11 09:33
2002.11.28
помогите реанимировать


1-93142
kull
2002-11-15 17:11
2002.11.28
Вопрос по MS Word...