1

以前は PC で Delphi 7 を使用していましたが、MacBook (Mid 2012 - OSX Mountain Lion) を購入したので、Pascal でプログラミングを続け、同様のインターフェイスを使用したいと考えました。Lazarus は私が望んでいたもののほとんどを提供してくれるようですが、最も単純なアプリケーションでさえもコンパイルすると、多くのエラーが発生するようです! それをテストするために、単純な「Russian Roulette」アプリケーションを楽しみのために作成しましたが、プログラムを起動したり、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

4

0 に答える 0