Форум: "Компоненты";
Текущий архив: 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.44 MB
Время: 0.01 c