FormIcon disable, how?

[McLion]

FormIcon disable, how to do that?

Thx

[howardpc]

Code: [Select]

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:=bsSizeToolWin;
end;


[McLion]

My BorderStyle is already set.

Code: [Select]

BorderStyle:=bsSingle;


[typo]

If you set BorderStyle to one other than Sizeable and Single, the icon does not appear on caption bar.

[McLion]

Is that maybe the other way?

[typo]

I don't think so.

[rvk]

Is using a blanc application-icon an option?

And there is an option to use another (blanc) icon other than the application icon per form.
(i.e. You could try assigning a blanc icon to Self.Icon of your form)

See code below (however it would be more flexible to use a resource instead of icon-file but this is just to illustrate it is possible):

Code: [Select]

procedure TForm1.FormCreate(Sender: TObject);
var
  MyBlancIcon: TIcon;
begin
  MyBlancIcon := TIcon.Create;
  try
    MyBlancIcon.LoadFromFile('c:\temp\blanc.ico');
    Self.Icon.Assign(MyBlancIcon);
  finally
    MyBlancIcon.Free;
  end;
end;

(Note: This just disables the visible part of the formicon. It doesn't disable the formmenu. If you want that you should take extra steps.)