Нет, это просто кошмар какой-то! 
Сначала начиналось всё хорошо.... Меня интересуют только события мыши, точнее три этих события, которые покрываю, по-моему, все "мышиные" задачи:
| Код |
procedure TfmMain.DelegateReturn_MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
MouseUp(Button, Shift, X + (Sender as TControl).Left, Y + (Sender as TControl).Top);
end;
procedure TfmMain.DelegateReturn_MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
MouseDown(Button, Shift, X + (Sender as TControl).Left, Y + (Sender as TControl).Top);
end;
procedure TfmMain.DelegateReturn_MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
MouseMove(Shift, X + (Sender as TControl).Left, Y + (Sender as TControl).Top);
end;
|
По какой-то неведомой мне причине, все события у TControl-ов засунуты в protected секцию!
предположу, что это потому, что наборы событий у различных наследником разный. Потому просто так пробежаться по Components, устанавливая им соответствующие события, не получилось, - приходится вручную перебирать все возможные типы :(
| Код | procedure TfmMain.SetDelegateReturnMousesEvents;
var i: integer; CurrComponent: TComponent;
begin
for i := 0 to ComponentCount - 1 do
begin
CurrComponent := Components[i];
if CurrComponent is TImage then
begin
(CurrComponent as TImage).OnMouseDown := DelegateReturn_MouseDown;
(CurrComponent as TImage).OnMouseUp := DelegateReturn_MouseUp;
(CurrComponent as TImage).OnMouseMove := DelegateReturn_MouseMove;
end
else if CurrComponent is TButton then
begin
(CurrComponent as TButton).OnMouseDown := DelegateReturn_MouseDown;
(CurrComponent as TButton).OnMouseUp := DelegateReturn_MouseUp;
(CurrComponent as TButton).OnMouseMove := DelegateReturn_MouseMove;
end
else if CurrComponent is TCheckBox then
begin
(CurrComponent as TCheckBox).OnMouseDown := DelegateReturn_MouseDown;
(CurrComponent as TCheckBox).OnMouseUp := DelegateReturn_MouseUp;
(CurrComponent as TCheckBox).OnMouseMove := DelegateReturn_MouseMove;
end
....
end;
end;
|
всё работает на ура, но это же полный трындец!
вот и закончилась идея о "красоте"... на досуге почитаю о хуках... |