procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.Close;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Form1.Visible:= false;
Form1.Close;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin Form1.Show;
end;我做的这个是屏保!
其中键盘事件零的。 而鼠标的两个事件都不行。
Shift: TShiftState; X, Y: Integer);
begin
Form1.Close;
end;procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Form1.Visible:= false;
Form1.Close;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin Form1.Show;
end;我做的这个是屏保!
其中键盘事件零的。 而鼠标的两个事件都不行。
解决方案 »
- fastreport问题页脚的问题
- 两个窗口再重新显示主窗口的问题
- d7如何发送邮件
- 如何调用excel的排序功能?如何将sql server的查询语句作为一个参数传给存储过程?急急急啊……
- 怎样在单元文件中引用另一单元文件(注意不含工程文件)急!在线WAIT
- 谁有Wise Installation System 9的注册码?
- 请问如何更改标题栏的外观,就像金山词霸的效果一样?百分相赠!
- 帮帮忙 !!!
- 怎样读取文本文件的内容给文段赋值
- 新手求助-Intraweb做网页用了HTML模板,如何让网页局部刷新?
- 工具栏按钮边上的小箭头是怎么出来的?
- 请问如何在一个已存在的word文档中在最后再追加新的内容,而不是覆盖?
Form1.Visible:= false;
Form1.Close; 改成Form1.Close;Form1.Show; 改成Form1.close;
土了一把
Y: Integer);
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
都不灵啊!只有剩下的一个是灵的!