Пятница, 24.11.2017
Деменёв Александр
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Программирование » Borland Delphi 7 » Перетаскивание компонентов при выполнении 2 (Компоненты)
Перетаскивание компонентов при выполнении 2
demenevДата: Понедельник, 22.02.2010, 14:17 | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 427
Репутация: 1
Статус: Offline
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;


http://minecraft-pvp-gs.ru
 
Форум » Программирование » Borland Delphi 7 » Перетаскивание компонентов при выполнении 2 (Компоненты)
Страница 1 из 11
Поиск:

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