|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как определить нажатие и отпускание кнопки tbuttonededit
Доброго времени суток!
Как определить событие нажатия и отпускание кнопки tbuttonededit? |
#2
|
||||
|
||||
А разве родные события MouseDown, MouseUp не работают?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
они работают, если кликать на тексте, а не на кнопке
|
#4
|
||||
|
||||
А RightButtonClick и LeftButtonClick не подойдут? Зачем вообще потребовалось эти события отдельно там обрабатывать?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
|||
|
|||
Цитата:
надо перехватить нажатие и пока кнопка нажата сделать действие, а по отпусканию, сделать другое действие |
#6
|
||||
|
||||
ну если не ползти в дебри, то можно свойству RightButton.DropDownMenu прицепить менюшку TPopupMenu. событие OnPopup менюшки будет срабатывать на нажатие мышки, а событие OnRightButtonClick едита на отпускание мышки. но правильней ползти в дебри
Пишу программы за еду. __________________ |
#7
|
|||
|
|||
Цитата:
|
#8
|
||||
|
||||
так я и говорю, сообщение WM_LBUTTONDOWN уже обрабатывается внутри
Код:
procedure TEditButton.TGlyph.WndProc(var Message: TMessage); Пишу программы за еду. __________________ |
#9
|
|||
|
|||
Все это не то.
Вот что я хотел: Код:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, System.ImageList, Vcl.ImgList; type TForm1 = class(TForm) ButtonedEdit1: TButtonedEdit; ImageList1: TImageList; Label1: TLabel; ButtonedEdit2: TButtonedEdit; procedure FormCreate(Sender: TObject); private { Private declarations } procedure onMess(var Msg: TMsg; var Handled: Boolean); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.onMess(var Msg: TMsg; var Handled: Boolean); begin if (Msg.message=WM_LBUTTONDOWN)then begin Label1.Caption := IntToStr(Msg.hwnd); end; Handled := False; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := onMess; end; end. Теперь осталось определить по Msg.hwnd имя компонента. Пока не знаю как... |
#10
|
||||
|
||||
предложенный способ на 100% решает вопрос темы. события нажатия и отпускания мыши прекрасно отлавливаются.
Пишу программы за еду. __________________ |
#11
|
|||
|
|||
Цитата:
|
#12
|
|||
|
|||
Вот нашел:
Control := FindDragTarget(Msg.pt, True); Получили контрол, и из него можно узнать все. Получается сам с собой поговорил, сам себе ответил. Вопрос закрыт. Все спасибо. |