Показать сообщение отдельно
  #2  
Старый 10.03.2017, 11:44
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

c:\>______
Цитата:
procedure TShape.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FMoving := ssLeft in Shift;
if not FMoving then Exit;
FdX := X;
FdY := Y;
TControl(Sender).Parent.Parent := FDrag;
FDrag.Show;
FDrag.Left := Mouse.CursorPos.X - FdX;
FDrag.Top := Mouse.CursorPos.Y - FdY;
SetCapture(TControl(Sender).Parent.Handle);
end;

procedure TShape.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if not FMoving then Exit;
FDrag.Left := FDrag.Left + X - FdX;
FDrag.Top := FDrag.Top + Y - FdY;
end;

procedure TShape.MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
msg(2340);
if not FMoving then Exit;
ReleaseCapture;
FMoving := False;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием