掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
imageのハンドル取得について (ID:11823)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
かきくけこさんどうもありがとうございました。 上記ソースで同じように動作しました。 そこで、このように私のソースを修正してみました。 procedure TForm1.DropFiles(var Msg:TWMDROPFILES); var WinHnd : HWND; P:TPoint; ctrl: TControl; begin DragQueryFile(Msg.Drop, 0, fn, MAX_PATH); DragQueryPoint(Msg.Drop, P); WinHnd:= WindowFromPoint(ClientToScreen(P)); ctrl := ControlAtPos(P,true,false); if ctrl is TImage then TImage(ctrl).Picture.LoadFromFile(fn); DragFinish(msg.Drop); end; ctrlにTimageのimage1やimage2を入れるという形なんですね。 でも、ctrl := ControlAtPos(P,true,false);nのctrlにnilが入ってしまいます。 Ｐは座標でx220y585などと入っているのになぜでしょうか？ ご教授いただけたらと思います。 宜しくお願致します。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.