TnetPopupMenu

Komponenten

TnetPopupMenu

Zweck¶

Mit TnetPopupMenu können Sie das Popup-Menü definieren, das eingeblendet werden soll, wenn der Benutzer mit der rechten Maustaste auf ein Steuerelement klickt. Um ein Popup-Menü verfügbar zu machen, weisen Sie der Eigenschaft SkinPopupMenu eines Steuerelements das Objekt TnetPopupMenu zu.

Beispiel¶

Im folgenden Beispiel, fügen wir Einträge in einem Popup Menü hinzu, wenn der User die entsprechende Berechtigung hat und hinterlegen für diese Einträge Events.


procedure additem;
begin
   if CurrentUserHasPermission(53000) then
   begin
      popupDoku.ClearItems;
      popUpDoku.AddItem('MenuItem', 'Eintrag 1', ,1,1 );
      popUpDoku.AddItem('MenuItem2', 'Eintrag 2', ,1,1 );
      popUpDoku.AddItem('MenuItem3', 'Eintrag 3', '',1,1 );  
   end;
end;

Wenn der User diese Berechtigung hat, sieht er die neuen Einträge im PopUp Menü:

Pop Up Menü

Nun hinterlegen wir Ereignisse für die neu generierten Einträge:


procedure popUpDoku_OnItemClick(SenderName: string);
begin
  if CurrentUserHasPermission(53000) then
  begin
    if SenderName = 'MenuItem' then // Wird auf den ersten Eintrag geklickt, öffnet sich in diesem Fall eine Message_Box
    begin
      message_dlg('Eintrag1_Event');
    end;
     if SenderName = 'MenuItem2' then
    begin
      message_dlg('Eintrag2_Event');
    end;
     if SenderName = 'MenuItem3' then
    begin
      message_dlg('Eintrag3_Event');
    end;
  end;
end;

Wird nun auf den jeweiligen Eintrag geklickt, erscheint eine MessageBox:

Event des ersten Eintrages