Здравствуйте, небольшая проблемка, точнее не проблемка, просто некрасиво как-то :)
Дело вот в чем. Есть грашкнопка и попапменю, к-ое вылезает по нажатию на кнопку ПКМ. Все хорошо. Решил сделать, чтоб оно вылезало еще и по ЛКМ. Написал так:
procedure TForm1.GRushButton1MouseDown(Sender: PControl; var Mouse: TMouseEventData);
var x,y:integer;
begin
if mouse.Button=mbleft then
begin
x:=form1.grushbutton1.Left+form1.form.Left+mouse.X-4;
y:=form1.grushbutton1.top+form1.form.Top+mouse.Y-34;
menu.Popup(x,y);
end;
end;
Меню всплывает. Только после того как нажал по какому-нибудь пункту из этого меню, кнопка вдавливается, чего не наблюдается при нажатии ПКМ.
Я как-то уже описывал похожее когда при нажатии на кнопку она становится невидимой а потом когда ее видимой сделаешь она вдавлена, мне предложили поправить KOLGrushControls.pas, так вот сейчас он у меня поправленный.
Спасибо.
Есть новые 
Нет новых [134431 +10][b:0][p:0.001]