Главная страница
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.018 c
14-93206
OlegS Astana
2002-11-08 18:20
2002.11.28
Геодезия


3-92920
Ali2002
2002-11-11 17:14
2002.11.28
Как создать БД для нескольких пользователей


3-92941
Alexandr1
2002-11-06 10:11
2002.11.28
Фильтрация по дате (месяцу)


3-92845
Step[B.M.]
2002-11-12 12:10
2002.11.28
Может ли сервер IB делать автоматическое резервное копирование ?


4-93304
mifi
2002-10-18 00:33
2002.11.28
список расшаренных ресурсов