我把五子棋的开始下子写在棋盘背景的onMouseDown中,即人类先走时就可开始.
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//里面为下子的语句
end;但是如果我要让电脑先走不知该怎么办,我本来想在单N6(让电脑先走)中直接调用
Image1MouseDown 如下:procedure TForm1.N6Click(Sender: TObject);
begin
Image1MouseDown(Sender,button,Shift,1,1);
end;可是总不能成功,我刚学delphi,也不知道是不是语法有错,总不能通过编译.
请问如何解决?谢谢!
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//里面为下子的语句
end;但是如果我要让电脑先走不知该怎么办,我本来想在单N6(让电脑先走)中直接调用
Image1MouseDown 如下:procedure TForm1.N6Click(Sender: TObject);
begin
Image1MouseDown(Sender,button,Shift,1,1);
end;可是总不能成功,我刚学delphi,也不知道是不是语法有错,总不能通过编译.
请问如何解决?谢谢!
解决方案 »
- Google Code 了一个在线升级系统,大家用用看,欢迎任何反馈信息
- 旅行社ERP项目招聘.net/Delphi程序员
- 请教高手,这条语句这样写正确吗?form1.query1.fields[2].asfloat:=form1.query3.fields[0].value
- 帮忙把下面的这段翻译成delphi,THANKS
- ATT AT< Group 4位图文件 用什么软件打开? 100分啊
- procedure mm;写在什么位置才能被其他的单元调用?
- 怎么总是在闪?
- 请问ODBC,ADO,BDE,SQL有什么区别?急,详细讲解
- Shell编程---如何判断一目录是否共享?
- 为什么出错(在线等候)?
- 看看这个Delphi内嵌入汇编的解决办法?!
- 一个关于票据打印的问题?
Image1MouseDown(Sender,[],[],1,1);
------>>>>Image1MouseDown(image1,mbleft,[],1,1);