| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DblClick и Dragging [D7, Win95/98, WinME, NT4, Win2k, WinXP]
_Seldon_ © (2005-11-11 18:13:00)
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-18 10:21:00) [1]
> а собственно это и делается в вышеприведённом коде...
нет
_Seldon_ (2005-11-18 03:07:00) [2]а собственно это и делается в вышеприведённом коде...
Igorek (2005-11-12 19:32:00) [3]Попробуй перекрыть обработчики сообщений мыши (клик и двойной клик).
| |
