Komponenten
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 |