Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2009, 19:09   #1
Maxs
Заблокирован
 
Регистрация: 06.04.2009
Сообщений: 130
По умолчанию Ограниченное перетаскивание формы

Как сделать чтобы форму можно было перетаскивать только вверх/вниз. Форма растянута по экрану.

Последний раз редактировалось Maxs; 24.10.2009 в 20:55.
Maxs вне форума Ответить с цитированием
Старый 24.10.2009, 21:05   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

моно по таймеру, но некрасиво и дергаться будет... лучше отрабатывать события движения-взятия:
Код:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var _p: TPoint;
begin
 if (Shift = [ssLeft]) then begin
  _p:= ClientToScreen(Point(X, Y));
  SetBounds(0,OrgP.Y + (_p.Y - OrgXY.Y), Width, Height);
 end
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OrgP := Point(Left, Top);
 OrgXY:= ClientToScreen(Point(X, Y))
end;
пример внизу...
Вложения
Тип файла: zip форма up-down.zip (188.2 Кб, 10 просмотров)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перетаскивание формы Nester Общие вопросы Delphi 2 24.07.2009 12:35
Перетаскивание формы при BorderStyle := bsNone lexaltd Общие вопросы Delphi 3 25.03.2009 14:57
Перетаскивание формы. IVANSour Общие вопросы Delphi 2 03.02.2009 22:06
Перетаскивание формы за любой объект,находящийся на ней Романнн Общие вопросы Delphi 2 04.11.2007 16:00
Перетаскивание формы s-force Общие вопросы Delphi 13 07.09.2007 15:38