Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: francesco - Ottobre 28, 2023, 02:48:34 pm

Titolo: item in a popup
Inserito da: francesco - Ottobre 28, 2023, 02:48:34 pm

io volevo copiare una voce di un popup ( compreso l'evento ) in un altro popup.

Codice: [Seleziona]

   popupmenu1.Items(10).add(popupmenu3.items(1);   

lo volevo copiare in fondo e utilizzare l'evento di popupmenu3

grazie

Titolo: Re:item in a popup
Inserito da: quack - Ottobre 28, 2023, 05:02:41 pm

Cosi non stai creando una copia della voce ma stai assegnando la stessa vode a due PopupMenu. Per copiarla ne devi create una nuova e poi copiare gli attributi;

Codice: [Seleziona]

var
  NewItem: TMenuItem;
begin
  NewItem         := TMenuItem.Create(nil);
  NewItem.Caption := PopupMenu1.Items[0].Caption;
  NewItem.OnClick := PopupMenu1.Items[0].OnClick;

  PopupMenu2.Items.Add(NewItem);
end;

Io farei qualcosa del genere, no so se c'è modo più efficace.