Главная страница
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.04 c
15-1146041741
Delpi basic
2006-04-26 12:55
2006.05.28
отчет Crystal Peports из Delphi


4-1141659727
webpauk
2006-03-06 18:42
2006.05.28
RCDATA


15-1146112390
Карелин Артем
2006-04-27 08:33
2006.05.28
Нужны программисты в Самаре на полный день.


2-1147448103
kester
2006-05-12 19:35
2006.05.28
Двумерный массив в константе


2-1147474989
Призрак
2006-05-13 03:03
2006.05.28
Synchronize