請問各位大大, delphi如何去除視窗標題列 小弟用ktop搜尋, 只看到bcb有用api的方法 DWORD style=0; style = GetWindowLong(this->Handle,GWL_STYLE); SetWindowLong(this->Handle,GWL_STYLE,(style&(~WS_CAPTION))); 但小弟想將它轉為delphi卻不會用, 小弟是這樣寫的, 不知那裏出錯, 都沒作用. procedure TForm1.Button1Click(Sender: TObject); var style:word; begin style:=0; style := GetWindowLong(application.Handle,GWL_STYLE); SetWindowLong(application.Handle,GWL_STYLE,style); end; 另外除了用api的方法外, 是否有其他方法隱藏視窗標題列(From.caption) 或者有什麼函數可以使用的, 謝謝.

你好：
  你該傳 Form 的 Handle 而不是 Application 的
請參考下面範例    >    < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
        

謝謝ha0009大大 不過, 這語法若用在button 則會當在那裏 procedure TForm1.Button1Click(Sender: TObject); var style : DWORD; begin style := GetWindowLong(Handle,GWL_STYLE); SetWindowLong(Handle,GWL_STYLE,(style WS_CAPTION)); end; =========================== 沉思, 再沉思! 學習, 再學習! 生活隨喜, 簡單自在^^ ===========================

若要在已秀出的 form 上執行的話, 請試試,    

procedure TForm1.Button1Click(Sender: TObject);
var
  style : DWORD;
begin
  self.Visible := false;
  style := GetWindowLong(Handle,GWL_STYLE);
  SetWindowLong(Handle,GWL_STYLE,(style   WS_CAPTION));
  self.Visible := true;
end;