Savedialogのwindowを画面の中央に出るようにしたい。

解決

---

アプリを画面の下のほうに隠していて、つい「X」を押して、closeできなくなります。

これを避けるために、Savedialogのwindowを画面の中央に出るようにしたいのですが、

オブジェクトインスペクタを見てもよく分かりません。

どこを見らたいいのか、分かる人がいたら教えてください。

よろしくお願いします。

編集 削除

---

どちらかかな


procedure TForm1.SaveDialog1FolderChange(Sender: TObject);
var
    H: HWND;
    R: TRECT;
    L,T: Integer;
begin
    H := FindWindow (nil,'名前を付けて保存');
    GetWindowRect(H,R);
    L := (Screen.Width  - R.Width ) div 2;
    T := (Screen.Height - R.Height) div 2;
    SetWindowPos (H,0,L,T,R.Width,R.Height,SW_SHOW);
end;

----------------------------------------------------------------

Timer1.Interval = 1

procedure TForm1.SaveDialog1Show(Sender: TObject);
begin
  Timer1.Enabled  := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
    H: HWND;
    R: TRECT;
    L,T: Integer;
begin
    H := FindWindow (nil,'名前を付けて保存');
    GetWindowRect(H,R);
    L := (Screen.Width  - R.Width ) div 2;
    T := (Screen.Height - R.Height) div 2;
    SetWindowPos (H,0,L,T,R.Width,R.Height,SW_SHOW);
    Timer1.Enabled := False;
end;

編集 削除

---

ありがとうございました。

時間がなくて見るのが遅くなりました。

また、よろしくお願いします。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。