|

楼主 |
发表于 2010-8-6 11:14:23
|
显示全部楼层
下面的代码
procedure TMainForm.SystemExit1Execute(Sender: TObject);
begin
      if MessageBox(0,'确定退出程序?','提示',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2) = 1 then
                    Close;
end;
能否自动格式为
procedure TMainForm.SystemExit1Execute(Sender: TObject);
begin
      if MessageBox(0,'确定退出程序?','提示',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2) = 1 then
        Close;
end;
delphi 2010可以自动格式化为这种形式,不知道lazarus能否做到 |
|