如何自定义窗体标题栏文字？？十万火急

[kalian]

在delphi中打开打印预览窗体，如何在程序中实现自定义预览窗体的文字，
如果有文字，如何去除？？

[goldwolf]

剑神一笑 说的差不远，但是我如何取得 该窗口句柄？？
最好给一段实例，谢谢拉

[kalian]

高人留步
可以给出源码么？？如goldwolf所说，
如何取得该窗体句柄？？
然后如何改变他的标题文字？？

[pingshx]

findwindow

[Zengqf_W]

findwindow
getwindow
SetWindowText

[pankun]

这样取吧 比如你的打印窗体的标题文字是 "打印" :
var
Hwnd: THandle;
begin
Hwnd := FindWindow(nil, '打印');
SetWindowText(Hwnd, '新的标题', 8);
end;

[kalian]

pankun 我试过了，你的办法可以，
但是，如果我是在后一个窗体中间要改变呢？？
也就是说，我在前面一个窗体获取后一窗体的句柄

[pankun]

你的后一窗体的标题是不定的么？还可以按类名取窗体句柄, FindWindow('类名', nil).
还有几个取窗体句柄的函数你参考一下吧，GetWindow, EnumWindow,GetWindow就可以实现取得下一个窗体的功能，不过我们放假啦，我在网吧，无法给你祥细的代码，不好意思啊，你自己试一下吧。

[pankun]

另：还有几个取窗体句柄的函数，希望对你有帮助
GetActiveWindow, GetNextWindow, GetTopWindow

[puma4993]

pankun(剑神一笑）:
您能否传授一下怎样创建一个空白窗体，烦您给附上原码。我请教过这个问题，您总是一笑而过。 我有2000分，专门另开帖给您，可否？

[puma4993]

to pankun(剑神一笑）:

盼！

[kalian]

pankun(剑神一笑)
可以了，上面问题已经解决，
另：可以用setwindowtext 变对话框的标题么？？

[kalian]

明天揭帖

[karach]

直接改Caption不行吗？难道你说的不是这个意思，那就是我的理解能力的问题了！！

[pankun]

TO:Kalian
可以用SetWindowText改对话框的标题

TO: puma4993

[pankun]

TO：puma4993
你的意思是用API建个空白窗体么？如果是这样的话，我转别人的一篇代码给你参考一下。

program Project1;

{$APPTYPE CONSOLE}

uses
windows,
messages;

// 回调函数
function AppWindowProc(
hWnd:HWND; uMsg:UINT;
wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;
begin
Result := 0;
case uMsg of
WM_DESTROY:begin
PostQuitMessage(0);
Exit;
end;
end;
Result :=
DefWindowProc(hWnd, uMsg, wParam, lParam);
end;


var
wc: TWndClass;
hWnd: Integer;
MSG: TMsg;

begin
{ TODO -oUser -cConsole Main : Insert code here }
// 程序从这里开始执行
wc.style := CS_VREDRAW or CS_HREDRAW;
wc.lpfnWndProc := @AppWindowProc;
wc.cbClsExtra := 0;
wc.cbWndExtra := 0;
wc.hInstance := HInstance;
wc.hIcon := LoadIcon(0, IDI_APPLICATION);
wc.hCursor := LoadCursor(0, IDC_ARROW);
wc.hbrBackground := (COLOR_BTNFACE+1);
wc.lpszMenuName := nil;
wc.lpszClassName := 'My App';
if RegisterClass(wc)=0 then Exit; //注册窗口
hWnd := CreateWindow( //建立窗口
wc.lpszClassName, 'TEST',
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT,
CW_USEDEFAULT, CW_USEDEFAULT,
0, 0, HInstance, nil);
if hWnd=0 then Exit;
ShowWindow(hWnd, SW_SHOWNORMAL);
while GetMessage(MSG, 0, 0, 0) do begin //开始消息循环
TranslateMessage(MSG);
DispatchMessage(MSG);
end;
Halt(MSG.wParam);
end.

[大地精灵]

变它的CAPTION不就行了吗

[pankun]

没大看明白，如果是要改自定义预览窗体的标题栏，取得这个窗口的句柄，再用SetWindowText就可以了.

[puma4993]

感谢剑神！我要好好啄磨啄磨。

[Cappuccino]

但是这样创建的窗体~~好像还必须借助于命令台控制程序生存
而窗体本身不能作为程序的主界面吗？
请作答~~~~：-）