用trime控件同一时间取鼠标键值
解决方案 »
- 工作效率问题
- 函数的引用问题
- 关于RICHEDIT控件输入全角文字出错的问题?????????????????????????????
- 11月18日的Borland开发者大会2003,有谁去啊?
- 急!!!foxpro 数据库数导出问题据,解决马上结贴,100分,在线等待,不够再给!!
- 如何禁止用户编辑Edit的内容?
- 那位兄弟有做过库存方面的源程序给我参考一下
- 可用分超過3100散分
- 急:一拨号就死机!
- 创建一个对象以后,不把它free掉,或者释放掉,对程序有什么影响呢?
- fastreport的一个简单问题,你可不能错过的,如何定义变量aft_st_sd(浪子)请进
- MM在线等候~~进来啊~~
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
FLeftButton: Boolean;
FRightButton: Boolean;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then FLeftButton := True;
if Button = mbRight then FRightButton := True;
if FLeftButton and FRightButton then begin
FLeftButton := False;
FRightButton := False;
ShowMessage('试试看');
end;
end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FLeftButton := False;
FRightButton := False;
end;