我使用如下代码将一个记事本的标题栏隐藏了:
SetWindowLong (notepadExe.HWND, GWL_STYLE,
GetWindowLong (notepadExe.HWND, GWL_STYLE) AND NOT WS_CAPTION);
但是我使用如下代码却不能把他的标题栏设置回来,
SetWindowLong (notepadExe.HWND, GWL_STYLE,
GetWindowLong (notepadExe.HWND, GWL_STYLE) AND WS_CAPTION);不知道怎么回事,是否需要经过其他的操作才可以恢复,高手能帮帮忙吗?
SetWindowLong (notepadExe.HWND, GWL_STYLE,
GetWindowLong (notepadExe.HWND, GWL_STYLE) AND NOT WS_CAPTION);
但是我使用如下代码却不能把他的标题栏设置回来,
SetWindowLong (notepadExe.HWND, GWL_STYLE,
GetWindowLong (notepadExe.HWND, GWL_STYLE) AND WS_CAPTION);不知道怎么回事,是否需要经过其他的操作才可以恢复,高手能帮帮忙吗?
Form1: TForm1;
var s:dword;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
s:=GetWindowLong (handle, GWL_STYLE);
SetWindowLong(handle, GWL_STYLE,
s AND NOT WS_CAPTION);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowLong (handle, GWL_STYLE,s);
end;
我的notepadExe.HWND指的是另一个程序的主窗体句柄,不是当前程序的窗体句柄
procedure TForm1.Button1Click(Sender: TObject);
begin
s:= GetWindowLong (notepadExe.HWND, GWL_STYLE)
SetWindowLong (notepadExe.HWND, GWL_STYLE,
s AND NOT WS_CAPTION);end;procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowLong (notepadExe.HWND, GWL_STYLE,s);
end;