POPUP MENÜ KAPATMA

[CesuR]

Merhaba, dbgrid üzerinde popup menü ile ekle sil menülerini gösteriyorum.  Eğer dbgrid boş ise (veya ilgili data ) popup menudeki SIL kısmını kullanılamaz yapmak istiyorum. Fakat bir türlü bulamadım.
Dbgridin onmouse down olayına mı yazılmalı ?

[mrmarman]

PopUpMenu'nün onpopup eventinde çalışın. Orada dbgrid kontrolü yapıp ABORT komutu ile geçersiz kılabilirsiniz.

Ayrıca menuitemi de enable true false ederek açıldığındaki hale müdahale etme imkanı da bulursunuz.

[MuhammedYasir]

(30-05-2021, Saat: 23:02)CesuR Adlı Kullanıcıdan Alıntı: Merhaba, dbgrid üzerinde popup menü ile ekle sil menülerini gösteriyorum.  Eğer dbgrid boş ise (veya ilgili data ) popup menudeki SIL kısmını kullanılamaz yapmak istiyorum. Fakat bir türlü bulamadım.
Dbgridin onmouse down olayına mı yazılmalı ?

Şu şekilde kullanmışım:

procedure TFSatis.DBGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
 var Handled: Boolean);
begin
 if (DMAlisSatis.SatisDetayIBQ.RecordCount > 0) Then
   SatrSil1.Visible := true
 else
   SatrSil1.Visible := false;

end;

[bydelphi]

(30-05-2021, Saat: 23:34)MuhammedYasir Adlı Kullanıcıdan Alıntı:

(30-05-2021, Saat: 23:02)CesuR Adlı Kullanıcıdan Alıntı: Merhaba, dbgrid üzerinde popup menü ile ekle sil menülerini gösteriyorum.  Eğer dbgrid boş ise (veya ilgili data ) popup menudeki SIL kısmını kullanılamaz yapmak istiyorum. Fakat bir türlü bulamadım.
Dbgridin onmouse down olayına mı yazılmalı ?

Şu şekilde kullanmışım:

procedure TFSatis.DBGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
 var Handled: Boolean);
begin
 if (DMAlisSatis.SatisDetayIBQ.RecordCount > 0) Then
   SatrSil1.Visible := true
 else
   SatrSil1.Visible := false;

end;

 Merhabalar,

 Üstteki aynı kod tek satırda şöyle de  yazılabilir ;

procedure TFSatis.DBGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin

  SatrSil1.Visible :=  DMAlisSatis.SatisDetayIBQ.RecordCount > 0 ;

end;