1

我曾经在我的 PC 上使用 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.

我希望你们能帮助我，任何帮助都是apprechiated :D

4

0 回答 0