Kako dobiti parent (Sender)

Vse kar vas zanima glede komponent.
Odgovori
Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Kako dobiti parent (Sender)

Odgovor Napisal/-a Fortuna » 13.08.2011 20:04:51

Npr:
Tole mam v

PMjezik: TPopupMenu;



Koda: Izberi vse

label1.PopupMenu:=PMjezik;
Ko dam desni klik na label1 bi rad dobil sender od label1

Koda: Izberi vse

procedure TS.PMjezikPopup(Sender: TObject);
begin
FjezikSHOW(Sender); //<------           tuki bi rad boli sender od Label1  Dobim pa sender od  TPopupMenu;
end;  
Kako bi dobil seneer od tistega, ki je PopupMenu klical.

Hvala

Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Re: Kako dobiti parent (Sender)

Odgovor Napisal/-a Fortuna » 13.08.2011 23:28:15

Sem rešil problem

Koda: Izberi vse

procedure TS.BitBtn1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  s.FjezikSHOW(Sender);
end;  

Koda: Izberi vse

 for yy := 0 to FormV.ComponentCount - 1 do
  begin
    if FormV.Components[yy] is TLabel then
    begin

    TLabel(FormV.Components[yy]).PopupMenu:=PMjezik;
    TLabel(FormV.Components[yy]).OnContextPopup:=@S.BitBtn1ContextPopup;
    end


     else if FormV.Components[yy] is TButton  then
    begin
          TButton(FormV.Components[yy]).PopupMenu:=PMjezik;
           TButton(FormV.Components[yy]).OnContextPopup:=@S.BitBtn1ContextPopup;
    end

else if FormV.Components[yy] is TBitBtn  then
    begin
          TBitBtn(FormV.Components[yy]).PopupMenu:=PMjezik;
          TBitBtn(FormV.Components[yy]).OnContextPopup:=@S.BitBtn1ContextPopup;
    end;

  end;                     


ervins
Prispevkov: 86
Pridružen: 03.12.2004 15:49:24

Re: Kako dobiti parent (Sender)

Odgovor Napisal/-a ervins » 17.08.2011 09:18:56

Take stvari me kar malo pogrejejo, ko si programerji niti osnovnih propertijev ne pogledajo .

TPopupmenu ima property PopupComponent

Koda: Izberi vse

(Sender as TPopupMenu).PopupComponent
LP, Ervin

Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Re: Kako dobiti parent (Sender)

Odgovor Napisal/-a Fortuna » 18.08.2011 09:47:58

ervins napisal/-a:TPopupmenu ima property PopupComponent

Koda: Izberi vse

(Sender as TPopupMenu).PopupComponent
LP, Ervin
Hvala deluje.

Tvoja rešitev je boljša ker, vse componente nimajo OnContextPopup.
lp.

Odgovori