鼠标点在FormCreate过程里就不会画线了,而且Delphi2009的自动begin end匹配在这里也有问题,比如输入完Proc := procedure按回车它会出现一个"end;"
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TProc = reference to procedure;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
var
Proc: TProc;
begin
Proc := procedure
begin
end;
end;
end.
[ 本帖最后由 wqyfavor 于 2008-12-29 16:10 编辑 ]
|