应该是一个PopMenu (示例)
procedure TLJHForm.Label1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
pt: TPoint;
begin
GetCursorPos(pt);
PopMnu.Popup(ljhform.left,ljhform.top+ControlBar1.Height);
end;
因我曾作过一个仿“金山快译”的工具条软件。