| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2446 人关注过本帖
标题:delphi 7 运行 程序闪一下就没了 怎么解决
只看楼主 加入收藏
supperren
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-5-15
收藏
 问题点数:0 回复次数:5 
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-05-15 18:16
supperren
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-5-15
收藏
得分:0 
人呢!?
2008-05-15 22:07
sz319
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-11-30
收藏
得分:0 
把断点设置在 “if(Key=#13)then ”这句试试,只有这个事件有“close”方法。
2008-05-16 13:59
supperren
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-5-15
收藏
得分:0 
是不是 因为没有将当前程序设置为主运行程序。
怎么设置 我不会....
2008-05-17 15:24
sz319
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-11-30
收藏
得分:0 
是主窗口吧,工程文件源码中有一下代码
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); //这个就是主窗口
  Application.Run;
2008-05-17 23:33
supperren
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-5-15
收藏
得分:0 
谢谢楼上,我去试下~~
2008-05-25 00:49
快速回复:delphi 7 运行 程序闪一下就没了 怎么解决
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012296 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved