相关疑难解决方法(0)

VCL风格的另一个奇怪的故障:

更改表单的图标仅更新其任务栏按钮,除非您使用RecreateWnd,否则标题中的图标不会更新.(使用VCL样式时)

ImageList3.GetIcon(0,Form1.Icon);

有没有办法解决它而不必使用RecreateWnd？(实际上可以创建其他问题)

我有一个有2个表格的申请表,每个表格和申请表都有单独的图标.在Form1BitBtn1.Click Form2上显示 - 非模式和Form1BitBtn2.Click Form1已关闭.在Form2BitBtn1.Click Form2已关闭,Form2BitBtn2.Click Form1已关闭.它工作正常.但问题是在Windows 7任务栏中,Form1图标是模糊的,另一个问题是当使用Form1BitBtn1显示Form2时.单击该应用程序仅显示Form1图标但不显示Form2图标.请帮我.

这是我的项目文件的下载链接是" http://hotfile.com/dl/140219264/04ce49c/Delphi_XE2_Form_Handler.7z.html "

我的代码如下:

unit KoushikHalder01;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls,
  Vcl.ComCtrls;
type
  TForm01 = class(TForm)
    BitBtn01: TBitBtn;
    BitBtn02: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure BitBtn01MouseEnter(Sender: TObject);
    procedure BitBtn02MouseEnter(Sender: TObject);
    procedure BitBtn01MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn02MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn01MouseLeave(Sender: …