紧急求救----有关Delphi4.0编程问题-----高手请进!!!
zyb 2000-04-11 10:00:00 *********************************
E_mail: wxlzyb@263.net,请踊跃解答!
*********************************
现在的104键键盘中都设有2个WINDOWS快捷键和1个鼠标右键快捷键,
有一Delphi4.0程序,含有2个窗体form1(timer1,timer2),form2,代码如下:
定义一全局变量var bl : boolean ;并初始化为false
procedure TForm1.FormShow(Sender : TObject) ;
begin
timer1.Interval := 1 ;
timer1.Enabled := true ;
Form2.Show ;
timer2.Interval := 10000 ;
timer2.Enabled := true ;
end ;
procedure TForm1.Timer1Timer(Sender : TObject) ;
begin
timer1.Enabled := false ;
self.Hide ;
end ;
procedure TForm1.Timer2Timer(Sender : TObject) ;
begin
timer2.Enabled :=false ;
//**********************************************
self.Show ;
SetCursorPos(Form1.Left+50,Form1.Top+50) ;
//*********************************************
//问题就在这里!!!!!!!!!!!!!!
end ;
问题:假设在self.Show前,鼠标点在资源管理器中
的某个文件上,此时按下键盘上的鼠标右键快捷键,
会弹出“打开方式...”类似的弹出菜单;那么如何
实现:self.Show后利用SetCursorPos()函数不但将
鼠标位置移动到指定的form1中的某个位置,同时
鼠标移动后再次按下键盘上的鼠标右键快捷键,此时
弹出的应该是form1的弹出菜单,而不是原来的
“打开方式...”类似的菜单呢?