unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure Edit1Exit(Sender: TObject); public { Public declarations } end; var Form1: TForm1; edit:Tedit; // 動態 (在 PageControl 裡 TabSheet2 使用) implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit:=TEdit.Create(Self); Edit.Parent:=Self; Edit.Height:=29; Edit.Width:=50; Edit.Left:=280; Edit.MaxLength:=4; Edit.Top:=200; Edit.Font.Size:=16; Edit.SetFocus; Edit.OnExit:=Edit1Exit; end; procedure TForm1.Edit1Exit(Sender: TObject); begin showmessage('ok'); edit.Free; //是否我free有誤 ,如將 不執行free,就無問題,可是回 TabSheet1,看到動態 edit ??? end; edit.Free; 時會出現access violation at address 00403c58 in module "projexct.exe" read of address 00e0c000

hi chubby 改成freeandnil(edit)試試 你的edit若要出現在 PageControl 的 TabSheet2 裡 這裡應該改為Edit.Parent:=TabSheet2;

hi,chubby: 我想你的問題應該出在Edit1Exit事件裡.在這裡,你的Edit給free了,那麼程式執行完Exit之後,要回到那裡?建議你應該在其他地方呼叫Edit.free

hi change.jian 我想你的問題應該出在Edit1Exit事件裡.在這裡,你的Edit給free了,那麼程式執行完Exit之後,要回到那裡?建議你應該在其他地方呼叫Edit.free <> 在 PageControl -> PageControl1Change 或 TabSheet2 onexit 使用 free 多有問題 ? 因在 TabSheet2 -> button 才產生 動態tedit ,執行後該在那理free ? 或 <> 如何判斷 user 是否按button 產生動態Tedit, 如有在那事件中free比較洽當,不才,不會判斷動態Tedit是否已產生 freeandnil(edit) ->也是一樣 謝謝boss and change.jian 發表人 - chubby 於 2004/06/21 14:48:55

我不曉得你要的功能是什麼,只知道你現在的程式需要動態產TEdit,然後有一個Edit1Exit的事件要指給TEdit.這樣我沒有辦法幫你找到解答.其實你現在只是沒辦法決定在何時應該去free你動態產生的TEdit而已.你可以試著說明一下你要寫出什麼樣功能的程式,或著TEdit是用來做什麼用的,這樣我或者可能幫你找到解決的方法.    當然,你可以在Form.OnDestory裡去把Edit釋放掉,一定沒問題.只是不曉得這是不是你想要的而已

引言: hi change.jian 我想你的問題應該出在Edit1Exit事件裡.在這裡,你的Edit給free了,那麼程式執行完Exit之後,要回到那裡?建議你應該在其他地方呼叫Edit.free <> 在 PageControl -> PageControl1Change 或 TabSheet2 onexit 使用 free 多有問題 ? 因在 TabSheet2 -> button 才產生 動態tedit ,執行後該在那理free ? 或 <> 如何判斷 user 是否按button 產生動態Tedit, 如有在那事件中free比較洽當,不才,不會判斷動態Tedit是否已產生 freeandnil(edit) ->也是一樣 謝謝boss and change.jian 發表人 - chubby 於 2004/06/21 14:48:55

我試了在PageControl1Change寫,並沒錯誤阿

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if edit <> nil then
    FreeAndNil(edit);
end;

if edit <> nil then FreeAndNil(edit); 謝謝boss,點醒我