各位先進好! TOpenDialog顯示位置靠上,我想有沒有辦法控制TOpenDialog顯示位置,看了 Dialogs.pas仍沒有找到解決方法,所以向大家請教,希望給予指引. 謝謝！ 發表人 - mathewzhao 於 2004/06/03 17:36:14

在 TOpenDialog 的 OnShowEvent 中動作試試:

procedure TForm1.OpenDialog1Show(Sender: TObject);
var
  R: TRect;
begin
  GetWIndowRect(GetParent(OpenDialog1.Handle ), R);
  MOveWindow(GetParent(OpenDialog1.Handle), 
             10, 
             10, 
             R.Right - R.Left,
             R.Bottom - R.Top, 
             True);
  Abort;
end;