TnetPopupMenu

Modified on 08/04/2010 16:07 by CPATRD Categorized as Plattform
{s:KompHeader|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.

<code pascal>
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;

</code>

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


[imageleft|Pop Up Menü|{UP}popup.jpg]











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


<code pascal>
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;
</code>


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

[imageauto|Event des ersten Eintrages|{UP}popup2.jpg]
CP Wiki

Navigation¶

TnetPopupMenu
