呼び出し元の判別 (ID:42537)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いろいろな方法があるものですね・・・（すごい）

わたしは、普段こんな感じです・・・
まぁローカル変数も使ってはいけないなら、お呼びじゃないですが・・・(^^;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form_Sel.Inst := Cardinal(Form1);
   Form_Sel.ShowModal;
end;

**************************************************

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

procedure TForm2.Button1Click(Sender: TObject);
begin
   Form_Sel.Inst := Cardinal(Form2);
   Form_Sel.ShowModal;
end;

**************************************************

type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    Inst : Cardinal;
  end;

procedure TForm3.Button1Click(Sender: TObject);
begin
   Form_Edit.Inst := Inst;
   Form_Edit.ShowModal;
end;

**************************************************

type
  TForm_Edit = class(TForm)
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    Inst : Cardinal;
  end;

procedure TForm_Edit.FormShow(Sender: TObject);
begin
   Edit1.Text := TForm(Inst).Name;
end;

←解決時は質問者本人がここをチェックしてください。

戻る