Форум: "Компоненты";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

DblClick и Dragging   Найти похожие ветки 

← →
_Seldon_   (2005-11-11 18:13) [0]


unit T;

interface

uses
 SysUtils, Classes, Controls, Dialogs, Forms;

type
 TT = class(TCustomControl)
 private
   { Private declarations }
 protected
   procedure DblClick; override;
   procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
 public
   { Public declarations }
 published
   { Published declarations }
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents("Samples", [TT]);
end;

{ TT }

procedure TT.DblClick;
begin
 inherited;
 ShowMessage("");
end;

procedure TT.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
 Y: Integer);
begin
 inherited;
 BeginDrag(false);
end;

end.


Нужно при нажатии запускать Drag, а при двойном клике показывать Messagebox. Проблема в том, что после показа мессаги dragging всё ещё действует. И даже вызов EndDrag после ShowMessage не помагает.

---

← →
Igorek ©   (2005-11-12 19:32) [1]

Попробуй перекрыть обработчики сообщений мыши (клик и двойной клик).

---

← →
_Seldon_   (2005-11-18 03:07) [2]

а собственно это и делается в вышеприведённом коде...

---

← →
Igorek ©   (2005-11-18 10:21) [3]

> а собственно это и делается в вышеприведённом коде...

нет

---

Страницы: 1 вся ветка

Форум: "Компоненты";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c