Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
3-1144073895
Anton_beginer
2006-04-03 18:18
2006.05.28
XP и MDAC - не встает


2-1147070660
Dstr
2006-05-08 10:44
2006.05.28
Компеляция ресурсов


15-1146315761
GeserX
2006-04-29 17:02
2006.05.28
запись CD


1-1145263745
Экспериментатор
2006-04-17 12:49
2006.05.28
Что не так? Выдает Access Violation на 0000 0000


6-1138699189
Hij
2006-01-31 12:19
2006.05.28
Indy -->IdFTP системе не удается найти путь