掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
呼び出し元の判別 (ID:42534)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
んだば、全部自動生成で、Unit3がForm_Selのユニットの場合・・・ uses Unit1, Unit2, Unit3; procedure TForm_Edit.Button1Click(Sender: TObject); var nwh: THandle; begin if Form1.Visible and Form2.Visible then begin nwh := GetNextWindow(Form_Sel.Handle, GW_HWNDNEXT); while (nwh <> 0) and (nwh <> Form1.Handle) and (nwh <> Form2.Handle) do begin nwh := GetNextWindow(nwh, GW_HWNDNEXT); end; if nwh = Form1.Handle then ShowMessage('Form1ですよ') else if nwh = Form2.Handle then ShowMessage('Form2ですよ'); end else if Form1.Visible then ShowMessage('Form1ですよ') else if Form2.Visible then ShowMessage('Form2ですよ'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.