Главная страница
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.033 c
4-1141399908
Handle
2006-03-03 18:31
2006.05.28
Как завершить системныЙ процесс?


9-1130581983
VolanD666
2005-10-29 14:33
2006.05.28
Octree. Как сохранить в файл?


15-1146726507
Серебров Евгений Леонидович
2006-05-04 11:08
2006.05.28
Delphi 7


2-1146835049
AlexanderMS
2006-05-05 17:17
2006.05.28
Всплывающая подсказка в ListBox


15-1146566297
DelphiN!
2006-05-02 14:38
2006.05.28
Как сделатиь перехватчик фатальных ошибок в программе