デルファイフォームの作成

Question

私はdelphi 7でアプリケーションを作成しました。メインフォームはサブフォームの実行プロシージャを呼び出します。 Executeプロシージャは、サブフォームのオブジェクトを作成し、そのサブフォームをユーザーに表示します。サブフォームを自動作成から削除しました。今私はサブフォームに1つの編集ボックスを追加し、実行プロシージャで作成されたサブフォームの後にテキストを設定しようとしました。しかし、この場合、私はアクセス違反エラーが発生しています。私がsubform.editboxを使ってテキストを設定すると、エラーは発生しません。フォームが自動作成されていない場合、フォーム参照を使用してコンポーネントを使用するのはいつも万能ですか？手伝ってくれてありがとう。

function TSubForm.execute(temp:String); 
begin 
    frmSubForm:= TSubForm.create(self); 
    edit1.text:= temp; 
    frmSubForm.ShowModal; 
end; 

Answer 1

あなたがしていることは危険です。メソッドがまだ作成されていなくても、メソッドはオブジェクトのすべてのフィールドに暗黙的にアクセスできます。代わりにクラスメソッドを作ってみるん：

class function TSubForm.execute(temp:String); 
begin 
    frmSubForm:= TSubForm.create(self); 
    edit1.text:= temp; 
    frmSubForm.ShowModal; 
end; 

（また、クラス宣言でそれを適応させる） それは、クラスの変数ではないので、その変更した後、コンパイラはもはやあなたがEDIT1にアクセスできるようになるのではなくそのクラスのインスタンスの

class function TSubForm.execute(temp:String); 
begin 
    frmSubForm:= TSubForm.create(self); 
    frmSubForm.edit1.text:= temp; 
    frmSubForm.ShowModal; 
end; 

をしかし、注意してください：だから、正しいコードは次のようになりますあなたのfrmSubForm変数はメソッド内で宣言されていないので、それはおそらく世界です。フォームをどこから解放しますか？これはきれいになります：

class function TSubForm.execute(temp:String); 
begin 
    frm:= TSubForm.create(self); 
    try 
    frm.edit1.text:= temp; 
    frm.ShowModal; 
    finally 
    frm.Free; 
    end; 
end; 

（ところで：あなたの関数は、戻り値の型を持っていません。）

Answer 2

フォームは他のオブジェクトとあまり変わりません。作成する必要があります（Application.CreateForm(..)または手動でForm2 := TForm2.Create(..)）。それが作成されていない限り、もちろんForm2 = nilとしてAccessViolationを取得します。

EDIT

A.あなたはどこに指定していないとfrmSubFormがどのように宣言されています。それはTSubFormフォームの別のインスタンスであることを意味していますか？

B.まだfunction TSubForm.execute(temp:String);をまだ作成されていないフォームから実行したようです。おそらく、これはクラス関数でなければなりません。

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Form: TForm2; 

begin 
    Form:= TForm2.Create(Application); 
    try 
    Form.Edit1.Text:= 'Hello'; 
    Form.ShowModal; 
    finally 
    Form.Free; 
    end; 
end; 

あなたの場合：ご質問にありますどこ

C.あなたは効果的にあなたがここ

Answer 3

frmSubForm.edit1が非自動作成フォームを使用するための一般的なコード（TForm2）でアクセスしてみたかったような音Self.edit1にアクセスあなたはOnCloseハンドラ内caFreeにその近くにアクションを設定する必要があります（代わりにShowModalのShow）非モーダルとしてのForm2を表示したい：

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    Action:= caFree; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Form: TForm2; 

begin 
    Form:= TForm2.Create(Application); 
    Form.Edit1.Text:= 'Hello'; 
    Form.Show; 
end; 

Answer 4

あなたはこのようなあなたのテキストボックスのテキストをアクセスもする必要があります。また

function TSubForm.execute(temp:String); 
begin 
    frmSubForm:= TSubForm.create(self); 
    frmSubForm.edit1.text:= temp; 
    frmSubForm.ShowModal; 
end; 

、あなたはそれで行われた後、サブフォーム上の自由を呼び出します。

Answer 5

私はそれをこのように行うだろうとは思わないが、これは動作します：

unit UfrmSubForm; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls; 

type 
    TfrmSubForm = class(TForm) 
    edit1: TEdit; 
    private 
    procedure Set_EditText(const Value: String); 
    { Private declarations } 
    public 
    { Public declarations } 
    class function Execute(Temp: String): TModalResult; 
    property EditText: String write Set_EditText; 
    end; 


function SubFormExecute(Temp: String): TModalResult; 

implementation 

{$R *.dfm} 

{ TfrmSubForm } 

class function TfrmSubForm.Execute(Temp: String): TModalResult; 
var 
    frmSubForm: TfrmSubForm; 
begin 
    frmSubForm := TfrmSubForm.Create(Application); 
    try 
    frmSubForm.EditText := Temp; 
    Result := frmSubForm.ShowModal; 
    finally 
    frmSubForm.Free; 
    end; 
end; 

procedure TfrmSubForm.Set_EditText(const Value: String); 
begin 
    edit1.Text := Value; 
end; 

end. 

そして、そのような最初のフォームからそれを使用します。ShowModal DOEのステータスを返す

procedure TForm1.btnExecuteClick(Sender: TObject); 
begin 
    TfrmSubForm.Execute('Some Text'); 
end; 

あなたがそれを必要とするかもしれないことは決して分かりません。

他のオブジェクト（フォームなど）のプロパティに直接アクセスしないでください。 TEditが将来TLabelになる場合には、frmSubFormを一度だけ変更するだけで、frmSubForm.Edit.Textにアクセスする場所は変わらないように、親オブジェクトのプロパティを使用してください。