注册 登录
编程论坛 Delphi论坛

delphi 7 运行 程序闪一下就没了 怎么解决

supperren 发布于 2008-05-15 18:16, 2457 次点击
刚学这个,编写了个窗口,前几次运行都可以.后来不知道怎么运行的时候 就是闪一下.

unit Unit1;

interface

uses
  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在打开程序才可以
5 回复
#2
supperren2008-05-15 22:07
人呢!?
#3
sz3192008-05-16 13:59
把断点设置在 “if(Key=#13)then ”这句试试,只有这个事件有“close”方法。
#4
supperren2008-05-17 15:24
是不是 因为没有将当前程序设置为主运行程序。
怎么设置 我不会....
#5
sz3192008-05-17 23:33
是主窗口吧,工程文件源码中有一下代码
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); //这个就是主窗口
  Application.Run;
#6
supperren2008-05-25 00:49
谢谢楼上,我去试下~~
1