小编Kou*_*der的帖子

我的表格TForm1有5 TEdit和2 TBitBtn.

我还需要程序,以便在输入数字数据后Edit1和Edit2上BitBtn1Click,Edit1和Edit2值将相加,并会显示在Edit3.

我有一个应用程序,可以使用该HOSTS文件Windows\System32\drivers\etc夹中的文件.但是,我不想硬编码路径C:\Windows\System32,因为Windows可能没有安装在驱动器C:上.

我尝试过使用%WinDir%\system32\drivers\etc\hosts,但是当我在代码中的变量中使用它时,它不会被扩展.

我如何使用文件%WinDir%\system32\drivers\etc\hosts的路径,hosts所以我不必硬编码路径？

另一个问题是,在成功编译时,我收到了一个警告

[DCC警告] ApplicationWizard01.pas(67):W1002符号'TFileAttributes'特定于平台.

代码显示在这里的答案中

这是我的新代码:

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)
    Label01: TLabel;
    Edit01: TEdit;
    Edit02: TEdit;
    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: …

我有一个有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: …

我有一个应用程序,其中一个TEdit应用程序运行时被禁用.经过一些计算后,它将被启用.我的要求是Font.Color将此禁用设置TEdit为Blue instaed of Gray(禁用字体颜色).

我有一个应用程序有一个TTF资源,包括"字体".我希望在FormCreate事件中使用此字体作为Fomr Font.我不愿意将此字体提取到目录并从那里加载.我无法帮助我.我学习,请不要问我的代码.

我使用了"字体资源ID 13"和"字体名称AmarBangla.ttf".我尝试了以下代码,但是发生了错误.以下是这些代码:

第一 :

procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (LPCTSTR lpszFontName));
    Form01.font := 13;
end;

第二个 :

 procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (Hinstance, MakeIntResource(13));
    Form01.font := 13;
 end;