怎样加上图标?

Question

Delphi中的Form的BorderStyle的属性bsDialog生成的程序不带Icon而VC++和VB的都带
怎样使它带上图标呢?

Answer 1

BorderStyle := bsSingle;
BorderIcons := [biSystemMenu];

Answer 2

Project|Options|Application----Load Icon
不知道是不是要實現這樣的目的

Answer 3

我指的是的运行界面上的图标,Project|Options|Application----Load Icon只是给程序加上图标,不是给界面加上的图标

Answer 4

在你的FORM上加一ImageIcon放图标，然后在程序中如下设置：
procedure TForm.FormCreate(Sender: TObject);
var
  TheBitmap : TBitmap;
begin
  TheBitmap := TBitmap.Create;
  TheBitmap.Height := application.icon.Height+2;
  TheBitmap.Width := application.icon.Width+2;
  TheBitmap.Canvas.Draw(0, 0, application.Icon);
  ImageIcon.Picture.Bitmap :=thebitmap;
end;

Answer 5

但是vc和vb不用这样就可以带图标啊!

Answer 6

标题栏上控制菜单处图标:
可以设置在Object Inspector栏的Properties栏里设置窗体的Icon为你指定的图标
如果是要生成EXE文件后显示的图标就要这样来设置:
Project菜单下Options菜单项Application选项卡里面的Load Icon按钮,载入ICON就是了

Answer 7

这样如果是bsdialog类型的就没有图标