Selamlar 
Bir TCategoryButtons nesnesine MouseDown ile sağ click olayından hangi butona tıkladığını yakalamak istedim bir kaç yol denedim ama erişemedim

procedure CategoryButtons1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
R: TRect;
p: TPoint;
begin
   with Sender as TCategoryButtons do
      begin
          ShowMessage( Categories.Items[0]....);
      end;
*
*
*
*

(23-06-2017, Saat: 15:00)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSelamlar 
Bir TCategoryButtons nesnesine MouseDown ile sağ click olayından hangi butona tıkladığını yakalamak istedim bir kaç yol denedim ama erişemedim

procedure CategoryButtons1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
R: TRect;
p: TPoint;
begin
   with Sender as TCategoryButtons do
      begin
          ShowMessage( Categories.Items[0]....);
      end;
*
*
*
*

procedure TForm1.CategoryButtons1MouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Kategori : TButtonCategory;
Dugme : TButtonItem;
begin
Kategori := TCategoryButtons(Sender).GetCategoryAt(X, Y);
Dugme := TCategoryButtons(Sender).GetButtonAt(X, Y, Kategori);

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

   if (Dugme is TButtonItem) then
   begin
     ShowMessage(Dugme.Caption);
   end;
 end;
end;

Teşekkürler oldu bu