[Delphi:90926] アイコンを見ると

506 views
Skip to first unread message

Masaaki Yamagishi

unread,
Nov 21, 2008, 10:29:16 PM11/21/08
to Delphi-ML
kaniです。

Turbo Delphi 2006を使っています。あるソフトのアイコンとして
水色の自作アイコンを埋め込んでいました。新しく、他の方が作った
アイコンをDelphiの「プロジェクト」>「オプション」>
「アプリケーション」を辿り、アイコンを変更してコンパイルしました。
しかし、そのEXEファイルをエクスプローラで見ると以前のアイコン
のままです。しかし、実行すると左上のアイコンが新しいものになって
います。オブジェクトインスペクタのFormのIconプロパティも変更
しているのにです。

エクスプローラでF5を押下して更新してみても以前のままです。
どこかキャッシュにでも古いアイコンが残っているのでしょうか?

宜しくお願い致します。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■from kani:素人プログラマ

・人と比べるのではない。昨日の自分に勝つ事を目標にしたい。
・戦争や争いを無くそう!
━━━━━━━━━━━━━━━━━━━━━━━━━━━━


戸田 英夫

unread,
Nov 21, 2008, 10:47:58 PM11/21/08
to Delphi ML
戸田です

----- Original Message -----
送信者 : "Masaaki Yamagishi" <blueli...@gmail.com>
宛先 : "Delphi-ML" <Del...@ml.users.gr.jp>
送信日時 : 2008年11月22日 12:29
件名 : [Delphi:90926] アイコンを見ると


> エクスプローラでF5を押下して更新してみても以前のままです。
> どこかキャッシュにでも古いアイコンが残っているのでしょうか?

以前の投稿
>[Delphi:89421] Delphi アプリケーション(W32) のおまじない

を再掲します。

> 私の使うおまじないは
>
> MainForm の Create に以下のコードを必ず書くことから始めます。
>
> procedure TMainForm.FormCreate(Sender: TObject);
> begin
> Icon := Application.Icon;
> Caption := Application.Title;
> SetClassLong(handle,GCL_HICON,Application.icon,Handle);
> end;
>
> 1 は Form アイコンをアプリケーションに一致させる
> 2 は Form タイトルバーのキャプションをアプリケーションのタイトルにする
> 3 は... タスクマネージャでチャンとアイコンを出すため。

ML 過去ログは

http://www2.big.or.jp/~osamu/Delphi/index.html

をご覧ください

---- (^_^)(^_^)(^_^) THE REAL PROGRAMMER (^_^)(^_^)(^_^) ----
At the beach, The Real Programmer is the one drawing flowcharts in the sand.
戸田 英夫 mailto:to...@384.jp;hideo...@chugoku.ntt-neo.co.jp


Masaaki Yamagishi

unread,
Nov 22, 2008, 1:11:03 AM11/22/08
to Del...@ml.users.gr.jp
戸田 様

kaniです。ご親切にありがとうございます。実はいじっている
うちに直ったのですが、これからの参考にさせて頂きます。

Masaaki Yamagishi

unread,
Nov 22, 2008, 1:21:17 AM11/22/08
to Del...@ml.users.gr.jp
kaniです。

試してみたのですが、

[Pascal エラー] Main.pas(42): E2010 'Integer' と 'TIcon' には互換性がありません

が出てしまいました。何か違った事をしてしまったのでしょうか?

本当に素人です。。。

toyota

unread,
Nov 29, 2008, 9:52:20 PM11/29/08
to Del...@ml.users.gr.jp
> [Pascal エラー] Main.pas(42): E2010 'Integer' と 'TIcon' には互換性がありません

>> SetClassLong(handle,GCL_HICON,Application.icon,Handle);

三つ目の引数のタイプミスだと思います。

Application.icon,Handle

を、

Application.icon.Handle

で、どうでしょう?


Masaaki Yamagishi

unread,
Nov 29, 2008, 10:37:00 PM11/29/08
to Del...@ml.users.gr.jp
かにです。

その通りでした。ありがとうございます。

Reply all
Reply to author
Forward
0 new messages