比如说:这是一个函数
int number;//装菜单项的编号
int find()
{
creatmenu();//创建了一个选择菜单
//add code这里添加消息处理代码等用户点击了菜单之后,如果没有选择菜单则始终等待
//函数就停在这里
return(number)} 
DELPHI里可以实现这个功能的代码如
while (用户没有做出选择=true) do
begin
 Application.ProcessMessages;//处理消息
 
 end; 谢谢~!