掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定したウィンドウに文字表示 (ID:32410)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
別アプリに文字表示させるにはこうすると出来ますね。メモ帳（notepad.exe）に文字表示させています。DrawTextやExtTextOutなども使えます。 別アプリに書き込む時はタイマーで書き続けないと、再描画の時に消えてしまうようです。 procedure TForm1.Timer1Timer(Sender: TObject); var h,hChild:HWND; DC:HDC; s:string; begin s:='ABC'; h:=findwindow(pchar('notepad'),nil);//メモ帳のハンドル取得 hChild:=findwindowex(h,0,pchar('Edit'),nil);//編集部分の子窓ハンドル取得 DC:=GetDC(hChild);デバイスコンテキスト取得 TextOut(DC,100,100,PChar(s),Length(s));//100,100にsを表示 end; 自身のウインドウに文字を表示するならこれでok procedure TForm1.FormPaint(Sender: TObject); begin Form1.Canvas.TextOut(100,100,'ABC'); end; TPanelなどに表示するには「Canvasプロパティがないコントロールに描画をする」でググってみてください。 あと別な方法もあるかもしれません。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.