Четверг, 28.03.2024
Просто сайт
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Программирование » Borland Delphi 7 » Перетаскивание компонентов при выполнении 2 (Компоненты)
Перетаскивание компонентов при выполнении 2
demenevДата: Понедельник, 22.02.2010, 14:17 | Сообщение # 1
Группа: Удаленные





var
TForm1:TForm;
xx,yy:integer;
bool:boolean;
......

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
xx:=panel1.left;
yy:=panel1.top;
bool:=true;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if bool then begin
panel1.left:=panel1.left+x-xx;
panel1.top:=panel1.top+y-yy;
end;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bool:=false;
end;

 
Форум » Программирование » Borland Delphi 7 » Перетаскивание компонентов при выполнении 2 (Компоненты)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024
Создать бесплатный сайт с uCoz