フォームを渡すには？

うめ 2006-06-16 03:51:30 No: 22198

フォームがいくつかあって、そのいくつかのフォームから下記の手続きを実行したいのです。例えば、Form2から呼出したときには、下記手続きのForm1のところがForm2になるようにしたいのです。
どのように書けばよいのでしょうか？
procedure TMain.BtnMuko(Sender: TObject);
var
    hMen: Integer;
begin
    hMen := GetSystemMenu(Form1.Handle, False);
   // 省略
end;

カレーライズ 2006-06-16 04:44:46 No: 22199

Sender には TFrom型の変数を引数が入ってくるという前提ならば
TMain.BtnMuko内で TempForm : TForm;
でも宣言しておいて
TempForm:=Sender;
で代入すれば
hMen := GetSystemMenu(TempForm .Handle, False);
でいけると思います。