EnumChildWindowsでTLabelを取得するには？ (ID:45391)

名前

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

本文

返事遅れてすいません。

>>Questさん
サンプルありがとうございます。
自EXE内でしたら取得できるのですが、他EXEでラベルを取得したいのです。
私の出したサンプルが悪かったですね。申し訳ないです・・・。

>>Harryさん
やりたいことは、マニュアルの雛形作成です。
delphiでコンパイル済のEXEの指定フォームから
ラベルのCaptionとHintの一覧を取得するイメージです。
(※できればTop,Left順に）

ウィンドウの取得は今のところ、
以下のようにTimerとGetForeGroundWindowを利用して取得する予定です。

--------------------------------------------
ThisWin : HWND;
TgtWin  : HWND;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ThisWin := GetForeGroundWindow;
  Timer1.Enabled :=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  SL:TStringList;
  WA:THWndArray;
  i,Num,Res:integer;
begin
  TgtWin := GetForeGroundWindow;
  if TgtWin <> ThisWin then begin
    Timer1.Enabled:=False;
    Res := MessageBox(0,
                      PChar('['+ GetWindowTextStr(TgtWin) + '] この画面でいいですか？'),
                      '確認',
                      MB_YESNOCANCEL or MB_TOPMOST);
    if Res=IDYES then begin
      (TgtWinのラベル一覧を表示)
    end;
  end;
end;
--------------------------------------------

Harryさんの選択肢で言うと、
「自作のDelphi製アプリのラベルを他のアプリから 」
「他のDelphi製アプリのTLabel」
のどちらかになるかと思います。
ちょっとこの選択肢の違いがわからないのですが、
TStaticTextを利用すれば実現可能でしょうか？

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

戻る