刚学这个,编写了个窗口,前几次运行都可以.后来不知道怎么运行的时候 就是闪一下.unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13)then
Perform(WM_NEXTDLGCTL,0,0)
else if(Key=#27)then
close;
end;end.
还有一个问题.在关闭 delphi 情况下 打开编写好的程序 不能运行 那个运行 按扭和F9 都没用 必须先打开delphi在打开程序才可以
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13)then
Perform(WM_NEXTDLGCTL,0,0)
else if(Key=#27)then
close;
end;end.
还有一个问题.在关闭 delphi 情况下 打开编写好的程序 不能运行 那个运行 按扭和F9 都没用 必须先打开delphi在打开程序才可以
生成exe后,双击就可以运行
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;//这行代码是不是删除了?
end.
闪一下运行 的都是一个 Borland\Delphi7\Projects\Projects1.exe 文件
而不是我编辑的文件,我选我编辑的文件 F9 不能运行 那个 运行按扭 的下拉 菜单 上总是Borland\Delphi7\Projects\Projects1.exe 这个应该怎么解决 就算 我什么都不打开 运行 也是那个东西 该如何操作