может я конечно как то криво думаю, сам новичек, но попробуй сначала определить класс компонента - сам рабочий стол, это можно сделать так:
Используй свойство PopupComponent компонента PopupMenu для определения компонента, на котором была нажата правая клавиша мыши.
Код:
procedure TForm1.PopupItem1Click(Sender: TObject);
begin
Label1.Caption := PopupMenu1.PopupComponent.ClassName;
end;
Можно использовать свойство формы ActiveControl, но компонент, вызвавший контекстное меню, не обязательно может быть активным элементом управления.