直接上代码。 procedure TForm1.btn2Click(Sender: TObject); var    hWndClose: HWND;    str: String;  begin    str := inputBox('提示', '请输入应用程序窗口标题：', '');    if str <> '' then &

系统虽然预置了几个窗口位置，但有时我们需要自定义它的摆放位置，就只能代码控制了。 在oncreat中写下： begin      Self.Position := poDesigned;      Self.SetBounds(nLeft,nTop,nWidth,nHeight);   end;