掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Canvasへの線の再描画がTImageの再描画で消される？ (ID：43852)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ディスクトップに直接書けば消えない procedure TForm7.Button2Click(Sender: TObject); var H: HDC; L,T: Integer; P: TPoint; begin Image2.Picture.LoadFromFile('C:\Users\Public\Pictures\Sample Pictures\Desert.jpg'); H := GetWindowDC(0); P := ClientToScreen(Point(0,0)); L := P.X; T := P.Y; MoveToEx(H,L,T,nil); LineTo(H,L+100,T+100); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.