以前は 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