我想动态除去窗体标题栏左上角的图标，请问如何用代码实现，谢谢

您好: 我以下這篇您參考看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=69735

簡單作法，同意 Supman 兄。 就如同 BorderStyle 改為 bsSizeToolWin或者更改 BorderIcons。 不過不管怎麼變，勢必會影響 視窗放大縮小等按鈕(會不見)。    若只單單要遮蔽左上角圖示，再不影響Style 情況下。 可利用一透空圖示去取代原圖示。 如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  IconInfo : TIconInfo;
  MaskBMP :TBitmap;
  TransIcon :TIcon;
begin
  MaskBMP := TBitmap.Create;
  Try
    With MaskBMP do
    begin
      Width  := GetSystemMetrics(SM_CXSMICON);
      Height := GetSystemMetrics(SM_CYSMICON);
      Canvas.Brush.Color := clBlack and $FFFFFF;
      Canvas.FillRect(Rect(0, 0,Width,Height));
    end;
    TransIcon := TIcon.Create;
    Try
      With IconInfo do
      begin
        fIcon := true;
        xHotspot := 0;
        yHotspot := 0;
        hbmMask  := MaskBMP.MaskHandle;
        hbmColor := MaskBMP.Handle;
      end;
      TransIcon.Handle := CreateIconIndirect(IconInfo);          SendMessage(Handle, WM_SETICON, 1, TransIcon.Handle);
    Finally
      TransIcon.Free;
    end;
  Finally
    MaskBMP.Free;
  end;
end;

僅提供參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～