Simular ToolButton com SpeedButton ?

Delphi

02/09/2005

Gostaria de simular o DropDown com o SpeedButton,
abrir o PopupMenu com o botao esquerdo do mouse ao invés do direito

alguem sabe como fazer isso ?


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Fabiano Góes

Fabiano Góes

02/09/2005

E ai galera ninguem ? :cry:

apenas abrir o popupMenu do SpeedButton com o click Esquerdo do mouse ao invés do direito (que é normal)

:roll: :idea:


GOSTEI 0
Rômulo Barros

Rômulo Barros

02/09/2005

Evento OnMouseDows do SpeedButton:


procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    If(Shift = [ssLeft])Then
    Begin
       PopupMenu1.Popup(Y,X);
    End;
end;



GOSTEI 0
POSTAR