Popupmenu (Ortak)

[abdulkadir]

S.a
Arkadaslar herkese kolay gelsin.
eskiden her child formda bir popup menu kullanıyordum
biraz geliştirdim main forma bir tane popup menu koydum child formlarda kullanılan ortak ozellikler için

örnek her child formda dbgridi duzenle,yazdır,farklı kaydet gibi ortak işlemler var
her chilh formdaki dbgridin adını DBGrid_AS yaptım ve boylece aşagıdaki kod ile aktiv formdaki dbgride ulaşıp ortak ozellikleri kullanabiliyorum.

Kod: Tümünü seç

procedure TAnaF.GridOzelletir1Click(Sender: TObject);
var
ChildForm: TForm;
Grid : TDBGrid;
Form_name,Grid_name:String;
begin
 Form_name:='Form_Bulunamadı';
 Grid_name:='Grid_Bulunamadı';
  ChildForm:=ActiveMDIChild ;
  if Assigned(ChildForm)then
     Form_name :=ActiveMDIChild.Name;
      Grid :=(ChildForm.FindComponent('DBGrid_AS')as TDBGrid);
        if Assigned(Grid) then
           Grid_name:=Grid.Name;
 //---------İŞLEMİ UYGULA
    Lib_GridDuzenleRX(Form_name,Grid);
end;

Peki Sorun ne
child fordaki Dbgrid lerin sayısı artı kiminde 2 kiminde 3 tane olacak
child formdaki 3 dbgridinde popupmenu sünü main formdaki popup menu olarak ayarladım
popupmenu:=MainForm.PopupGrid;
ama hangi dbgride sag tıklandı tespit edemiyorum.
Ne dersiniz olacak şeymi...

[Lost Soul]

Kod: Tümünü seç

procedure TAnaF.GridOzelletir1Click(Sender: TObject);
var
ChildForm: TForm;
Grid : TDBGrid;
Form_name,Grid_name:String;
begin
 Form_name:='Form_Bulunamadı';
 Grid_name:='Grid_Bulunamadı';
  ChildForm:=ActiveMDIChild ;
  if Assigned(ChildForm)then
     Form_name :=ActiveMDIChild.Name;
      Grid :=(ChildForm.FindComponent('DBGrid_AS')as TDBGrid);
        if Assigned(Grid) then
           Grid_name:=Grid.Name;
 //---------İŞLEMİ UYGULA
    Lib_GridDuzenleRX(Form_name,Grid);
end;

burada ChildForm:=ActiveMDIChild ; yerine sender.parentform;
Grid :=(ChildForm.FindComponent('DBGrid_AS')as TDBGrid); yerine de sender.name;
kullanın;

[abdulkadir]

DCC error undeclared identifier:'parentform' Hatası veriyor
sender.parentform kullanılamıyor sender.name de aynı hata

[Lost Soul]

TButton(sender).parentform; olarak deneyin bi de

[abdulkadir]

olmadı maalesef....

[Battosai]

Aşağıdaki kod ile hangi kontrol üzerinde olduğunu öğrenebilirsin....Artık kendine göre düzenleme yaparsın...

Kod: Tümünü seç

function FindControlAtPos: TWinControl;
var
  Pt: TPoint;
begin
  GetCursorPos(Pt);
  Result := FindControl(WindowFromPoint(Pt));
end;

[abdulkadir]

Bu sekilde de olmadı yanlıs sonuclar veriyor.

Kod: Tümünü seç

function FindControlAtPos: TWinControl;
var
  Pt: TPoint;
begin
  GetCursorPos(Pt);
  Result := FindControl(WindowFromPoint(Pt));
end;

var
ChildForm: TCustomForm;
Grid : TWinControl;
Form_name,Grid_name:String;
begin
 Form_name:='Form_Bulunamadı';
 Grid_name:='Grid_Bulunamadı';

  ChildForm:=GetParentForm(Self);
  if Assigned(ChildForm)then   Form_name :=ActiveMDIChild.Name;
      Grid :=FindControlAtPos;
        if Assigned(Grid) then Grid_name:=Grid.Name;

           ShowMessage('F---'+Form_name+' ----G------'+Grid_name);

[Battosai]

-Global olarak bir tane kontrol değişkeni tanımla örneğin ctrl:Twincontrol;
-Pop-up menün onpopup event'ına

Kod: Tümünü seç

ctrl:=FindVCLWindow(Mouse.CursorPos);

yaz...hangi control olduğunu öğrendik...işlem yaptıracağın koda da aşağıdaki gibi bir kod ile çalıştır...

Kod: Tümünü seç

  if ctrl<>nil then
  if ctrl is TDBGrid then
    Begin
    .....
    ......
    .....
    End;

Kullanmış olduğun kodlara ihtiyaç yok bunlar yeterli...

[abdulkadir]

Tesekkür ederim biraz degişiklik ile sorun halloldu

Gridi düzenleyen procedure boyle

Kod: Tümünü seç

procedure Lib_GridDuzenleRX(F_name:string;Grid : TRxDBGrid);

Global tanım ve onpopup işleminden sonra Busekilde işlem tamam

Kod: Tümünü seç

procedure TAnaF.GridOzelletir1Click(Sender: TObject);
var
ChildForm: TForm;
Grid : TRxDBGrid;
begin
   ChildForm:=ActiveMDIChild;//Form ismine ihtiyacım var
  if ctrl<>nil then
  if ctrl is TRxDBGrid then  Begin
     Grid :=(ctrl as TRxDBGrid);
    Lib_GridDuzenleRX(ChildForm.Name,Grid);
    End;
end;

Tesekkür ederim...