Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Conectar-se

Esqueci minha senha

Parceiros

CategoryButton no Delphi xe2

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

CategoryButton no Delphi xe2

Mensagem por semaj semay em Qui Jul 05, 2012 8:02 am

Olá Pessoal.

Tenho um aplicativo funcionando com CategoryButtons.
Estou tentando setar um ButtonItem do ButtonCategory como selectedItem
e alterar sua cor através do botão direito do Mouse.

Só que por default o método MouseDown da classe TCategoryButtons trabalha somente
com TMouseButton = mbLeft.

Estou tentando fazer um esquema no evento MouseDown, mas não está funcionando.

Se alguém puder me ajudar eu agradeço muito.

Ai vai o código:

Código:

procedure TfrmGIPClient.ctTasksMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
DownCategory : TButtonCategory;
DownButton : TButtonItem;
begin
DownCategory := TCategoryButtons(Sender).GetCategoryAt(X,Y);
DownButton := TCategoryButtons(Sender).GetButtonAt(X,Y,DownCategory);

if Button = mbRight then
begin
if DownButton <> nil then
begin
if (not Focused) and CanFocus then
Winapi.Windows.SetFocus(Handle);

if (DownButton is TButtonItem) then
begin
ShowMessage(DownButton.Caption);
TCategoryButtons(Sender).SelectedButtonColor := $00FFD5AA;
TCategoryButtons(Sender).UpdateButton(DownButton);
end;
end;
end;

end;

semaj semay
Membro
Membro

Mensagens : 1
Data de inscrição : 05/07/2012

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum