| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY 
共有 602 人关注过本帖
标题:delphi 7 运行 程序闪一下就没了 怎么解决
收藏  订阅  推荐  打印
supperren
Rank: 1
等级:新手上路
帖子:4
积分:144
注册:2008-5-15
delphi 7 运行 程序闪一下就没了 怎么解决

刚学这个,编写了个窗口,前几次运行都可以.后来不知道怎么运行的时候 就是闪一下.

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在打开程序才可以
搜索更多相关主题的帖子: delphi  TEdit  TLabel  运行  
2008-5-15 18:16
supperren
Rank: 1
等级:新手上路
帖子:4
积分:144
注册:2008-5-15

人呢!?
2008-5-15 22:07
sz319
Rank: 1
等级:新手上路
帖子:16
积分:260
注册:2006-11-30

把断点设置在 “if(Key=#13)then ”这句试试,只有这个事件有“close”方法。
2008-5-16 13:59
supperren
Rank: 1
等级:新手上路
帖子:4
积分:144
注册:2008-5-15

是不是 因为没有将当前程序设置为主运行程序。
怎么设置 我不会....
2008-5-17 15:24
sz319
Rank: 1
等级:新手上路
帖子:16
积分:260
注册:2006-11-30

是主窗口吧,工程文件源码中有一下代码
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); //这个就是主窗口
  Application.Run;
2008-5-17 23:33
supperren
Rank: 1
等级:新手上路
帖子:4
积分:144
注册:2008-5-15

谢谢楼上,我去试下~~
2008-5-25 00:49
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.054932 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved