CAD支援ソフト探索2

プリント基板設計CAD(P-CAD/AltiumDesigner)にSolidoworksを併用

スポンサーサイト

--:-- ...Posted

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

スクリプトフォームの前面表示 その2

スクリプトフォームを常に前面に表示する方法に関して特に回避方法がなかった
のでスクリプトの最後のEND;の前に

Close;

を配置して解決しました。
これでスクリプトが終了するので再度設定したショートカットなどで
スクリプトを再実行することになります。




フォームの表示位置はフォーム(名前:Formの時)にそのフォームを
クリックして
Procedure TForm.FormShow(Sender: TObject); をいう項目を作成します。

後は下記のようにフォームの左上の座標(100,100)を記載すれば表示位置を
指定できます。

************************************************
Procedure TForm.FormShow(Sender: TObject);

Begin

Left := 100;
Top := 100;

End;
************************************************



真ん中に表示させたい場合は下記のように記述します。

************************************************
Procedure TForm.FormShow(Sender: TObject);

Begin
Form.Position:=poScreenCenter

End;
************************************************
スポンサーサイト

Post comment

管理者にだけ表示を許可する

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。