如果不显示ICO???? 结贴率100%,回答完毕立即结贴!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``~~~```

Question

图一如下:这是显示ICO的程序
图二如下:这是不显示ICO的程序
请教如何像图二一样不显示ICO?

Answer 1

最简单的是: 把BorderStyle设成bsDialog

Answer 2

SendMessage(Handle, WM_SETICON, 1, -1);  这个就不太OK,呵呵,但有最大最小和关闭按钮

Answer 3

虽然你已结帖,但还是再给你一段代码,刚从Forms单元提取一部份加以修改而成,达到效果并有最大最小关闭按钮
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  BorderStyle:= bsSizeable;
  inherited CreateParams(Params);
  BorderStyle:= bsDialog;
  with Params do
  begin
    Style := Style or WS_POPUP or WS_CAPTION;
    ExStyle := WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;
  end;
end;end.