А есть еще в designer/designer.pp такие процедуры
procedure MouseDownOnControl(Sender: TControl; var TheMessage: TLMMouse);
procedure MouseMoveOnControl(Sender: TControl; var TheMessage: TLMMouse);
procedure MouseUpOnControl(Sender: TControl; var TheMessage:TLMMouse);
они ...
Найдено 3 результата
- 06.12.2018 15:27:00
- Форум: Lazarus
- Тема: Перетаскивание объектов по форме
- Ответы: 8
- Просмотры: 6909
- 06.12.2018 09:48:29
- Форум: Lazarus
- Тема: Перетаскивание объектов по форме
- Ответы: 8
- Просмотры: 6909
Re: Перетаскивание объектов по форме
wadman писал(а):У TApplication есть OnMessage. В нем можно фильтровать сообщения таскаемым контролам.
Да нету там такого.
- 05.12.2018 14:57:06
- Форум: Lazarus
- Тема: Перетаскивание объектов по форме
- Ответы: 8
- Просмотры: 6909
Перетаскивание объектов по форме
Сделал перетаскивание объектов по форме, классический вариант:
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Panel1: TPanel;
procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: ...
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Panel1: TPanel;
procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: ...