Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sender: TObject Hakkınd
#1
Selamlar 
Bir TCategoryButtons nesnesine MouseDown ile sağ click olayından hangi butona tıkladığını yakalamak istedim bir kaç yol denedim ama erişemedim Smile

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;
*
*
*
*
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#2
(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 Smile

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;
Amatör Küme Bilgisayar Programcısı
WWW
Cevapla
#3
Teşekkürler oldu bu
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi