VPF::Помогите с Mouse.IsDragging - Форум программистов

Alcohol

Дата 28.11.2005, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 28.11.2005

Репутация: нет
Всего: нет

У меня WinXP и Delphi 6. Сделал обработчик события Button.OnStartDrag. Вот код:

Код


procedure TForm1.Button2StartDrag(Sender: TObject;
  var DragObject: TDragObject);

begin
while Mouse.IsDragging do begin
 Button2.Left:=Mouse.CursorPos.X-Form1.Left;
 Button2.top:=Mouse.CursorPos.y-Form1.Top;
 end;
end;

Во время драгинга в цикл оно почему-то не заходит, т.е. в момент начала дрэгинга Mouse.IsDragging=false. Кто виноват и что делать? Помогите плиз.

Snowy

Дата 28.11.2005, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Я так понимаю, что имеется ввиду это:

Код


procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Button1.BeginDrag(true);
  while Mouse.IsDragging do begin
    Button1.Left:=ScreenToClient(Mouse.CursorPos).X-X;
    Button1.top:=ScreenToClient(Mouse.CursorPos).y-Y;
    Application.HandleMessage;
  end;
end;

Alcohol

Дата 28.11.2005, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 28.11.2005

Репутация: нет
Всего: нет

Спасибо, все понял. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »