unit qqq;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=EDit1.Text;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('sssssssssss');
Edit1.Text:='1';
Edit2.Text:='333';
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('2222222');
end;
end.
這是測驗代碼 生成的EXE檔案在別的電腦上也無法顯示界面
uj5u.com熱心網友回復：
這個單元檔案沒問題，看看工程檔案。uj5u.com熱心網友回復：
你編譯檔案時，要帶庫檔案編譯。uj5u.com熱心網友回復：
UPUP
應該是缺少庫檔案。
搜索一下關于 完全編譯 的問題，應該可以解決
uj5u.com熱心網友回復：
應該不是編譯問題，如果是編譯問題，運行的時候會提示缺少相應 bpl 包。右鍵選單，以管理員身份運行試試。
uj5u.com熱心網友回復：
為什么會在FORMCREATE事件上寫EDIT控制元件的代碼，沒有彈出EXCEPTION就是奇怪的事情了應該在FORMSHOW上寫代碼
FORMCREATE事件中，EDIT控制元件還沒有創建好
FORMShow事件中，EDIT控制元件才算是創建好
uj5u.com熱心網友回復：
FORMCREATE事件中 showmessage 那一行去掉可能和多顯示幕有關
uj5u.com熱心網友回復：
編譯時，鉤上這個就了。
uj5u.com熱心網友回復：
應該是不選中uj5u.com熱心網友回復：
報謙，前一貼回復出現錯誤。
正確，應該取消"Build with runtime packages"(EXE使用時，需要運行時包)“選擇”項，再“F９”創建EXE
這樣，ＥＸＥ可以獨立運行，否則需要將Delphi的運行庫檔案包，拷貝進系統目錄，才能運行。
uj5u.com熱心網友回復：
sandbox沙箱運行？uj5u.com熱心網友回復：
從樓主的提示看，不是沙箱運行。
uj5u.com熱心網友回復：
我可能理解錯了~
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/35953.html
標籤：非技術區
下一篇：運行一段時間就提示 未知的錯誤