Конечно мне этот TCustomControl решив проблемы с фокусом создал много других проблем. Ему нельзя задать Popumenu. Как создать это свойство у него?
Прописал ему событие OnMouseDown, но без координат.
У меня :
Код:
procedure TForm1.MyComponent1MouseDown(Sender: TObject);
а должно быть соответствено:
Код:
procedure TForm1.MyComponent1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
как добавить x,y, button ?