Delphi - Richiamare il Tag di un oggetto

Forum - Delphi - Richiamare il Tag di un oggetto

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 11:27
Venerdì, 06/04/2012

Salve,

ho un piccolo problema, in pratica creo una serie di oggetti tipo TRectangle e poi gli associo un PopupMenu che dovrebbe semplicemente richiamarne il Tag associato all'oggetto. Per fare ciò, nel PopupMenu uso

Codice sorgente - presumibilmente Delphi

[CODE]ShowMessage(IntToStr((Sender as TRectangle).Tag));[/CODE]

Ma, invece di restituirmi i dati relativi al TRectangle, mi restituisce quelli del PopupMenu. Come faccio a richiamare quelli dell'oggetto da cui è partita l'apertura del Menu.

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 12:32
Venerdì, 06/04/2012

L'unico modo che mi viene in mente è quello di risale a ritroso le chiamte dei vari oggetti, dunque tenuto conto che a te serve il tag del TRectangle, che è legato al popup, che a sua volta è legato al MenuItem la dinastia dovrebbe essere:
ShowMessage(IntToStr(TRectangle(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent).Tag);

NB: lascio a te il cast in manienra ordinata :asd:

Ibis redibis non morieris in bello

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 14:38
Venerdì, 06/04/2012

mi da errore sulla proprietà:

Codice sorgente - presumibilmente Plain Text

.GetParentMenu

io uso FireMokey e non le VCL

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 16:42
Venerdì, 06/04/2012

Per giocare ho aperto XE2 ...
e l'ho risolto così:

devi ricordarti di assegnare all'item la proprietà PopUpMenu per poi ritirarla fuori

Codice sorgente - presumibilmente Delphi

procedure TForm19.MenuItem1Click(Sender: TObject);
Var oItem: TMenuItem;
    oPopUp: TCustomPopupMenu;
begin
  oItem := (Sender as TMenuItem);
  oPopUp := oItem.PopupMenu;
  ShowMessage('Show '+IntToStr(oPopUp.PopupComponent.Tag));
end;

Ibis redibis non morieris in bello

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 11:16
Sabato, 07/04/2012

grazie tante,

Codice sorgente - presumibilmente Delphi

ShowMessage(IntToStr(TRectangle(TPopupMenu((Sender as TMenuItem).PopupMenu).PopupComponent).Tag));