2016年11月12日土曜日

Delphi でApple Scriptを使用する。

こんにちは、おひさしぶりやましょうです。


とはいいつつも師匠から、Apple scriptの使い方をと言われたので

こんな感じです。

あくまでも例:コンパイルもしていない。スペルミスもあるかも。。
uses
  Macapi.Foundation,
  Macapi.Helpers,


const STRINGSCR = 'Apple script Desc'+slineBreak;

procedure TForm1.ApplescrClick(Sender: TObject);
var
  Scr : NsAppleScript;
  Err : Pointer;
begin
  Err := nil;
  Scr := TNSAppleScript.Wrap(TNSAppleScript.Alloc.initWithSource(StrToNSStr(STRINGSCR)));
  Scr.executeAndReturnError(Err);
end;

こんな感じで動くと思います。
実際にはexecueAndReturnErrorはTryを使用した方が良いと思います。



Delphi でApple Scriptを使用する。

こんにちは、おひさしぶりやましょうです。


とはいいつつも師匠から、Apple scriptの使い方をと言われたので

こんな感じです。

あくまでも例:コンパイルもしていない。スペルミスもあるかも。。
uses
  Macapi.Foundation,
  Macapi.Helpers,


const STRINGSCR = 'Apple script Desc'+slineBreak;

procedure TForm1.ApplescrClick(Sender: TObject);
var
  Scr : NsAppleScript;
  Err : Pointer;
begin
  Err := nil;
  Scr := TNSAppleScript.Wrap(TNSAppleScript.Alloc.initWithSource(StrToNSStr(STRINGSCR)));
  Scr.executeAndReturnError(Err);
end;

こんな感じで動くと思います。
実際にはexecueAndReturnErrorはTryを使用した方が良いと思います。



2016年11月2日水曜日

Delphi fmx タイトルバー無し フルスクリーン 表示方法

こんにちは、 やましょうです。

delphiで、fmx のフルスクリーン方法です。


form1.FullScreen := true;

以上です。