几句话的小程序段除了一点问题，大家帮一下忙！

Question

interface//这是你的窗口定义
class Tform1=..
...
public 
//加入
procedure makechess(t:integer);
...
end;implementation...
procedure form1.makechess(t:integer);
begin
...
end;

Answer 1

procedure tform1.makechess(t:integer);
bigchess[s]:=tedit.create(nil);
bigchess[s].top:=300;
bigchess[s].left:=300+t*20;
bigchess[s].parent:=form1;
bigchess[s].visible:=true;
动态创建要在form1.onclose事件中加edit1.free;

Answer 2

self是指一个对象中的实例，你的原程序中的Procedure是在对象外的，self当然没有定义了。看看讲对象的书吧。

Answer 3

>> keyz(keyz):不行啊，那样调试时出的错误更多：）

Answer 4

你的bigchess[s]有没有声明啊。老大。
比如
var
  bigchess[s] :Tedit;

Answer 5

我只是指出你的Self出错的问题。至于其他问题，你再具体具体处理了。

Answer 6

你这个函数应该是写在一个纯单元文件里吧？ 如果是这样这个self当然不行了，如果是这样就要自己传递过去了