Question

我以前在我的电脑上使用Delphi 7，但是现在我买了一台MacBook（2012年中期 - OSX Mountain Lion），我想继续使用Pascal进行编程并拥有类似的界面。 Lazarus似乎提供了我想要的大部分内容，但是在编译最简单的应用程序时似乎遇到了很多错误！为了测试它，我做了一个简单的“俄罗斯轮盘”应用程序，只是为了好玩，但程序只是冻结，启动时甚至在Lazarus内编译时。从命令行启动时，它显示以下错误：

TCarbonButton.SetFocus Error: SetKeyboardFocus  failed with result -30585

我认为我的编码不是问题，但我想我应该把它包括在内：

unit RussianRouletteUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Kugeln: TLabeledEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  Number: Integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Random(StrToInt(Kugeln.Text))+1 = 1 then
     begin
          Button1.SetFocus;
          Memo1.Color := clred;
          Memo1.Text := 'BOOM';
          Memo1.Lines.Add('HEADSHOT');
     end;
end;

initialization
randomize;
end.

我希望你们可以帮助我，任何帮助都会得到解决：D

Lazarus - Mac OSX调试错误

0 个答案: