（ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part3

NG

　∧ ∧　　　／DelphiとかBorland系ツールのこと
　(,,ﾟДﾟ)　　＜
　 | つ[|lllll］). ＼聞いてヨシ
＠| 　 |
　 ∪∪ 　ﾎｶﾉｹﾞﾝｺﾞﾔｶｲﾊﾂｶﾝｷｮｳﾊﾖｸﾜｶﾗﾅ-ｲ

前スレ
（ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946
（ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=997348797

NG

　　　∧∧　　　／ﾀﾞｳｿﾛｰﾄﾞしてよし。
＠＿(,,ﾟДﾟ)　＜　使ってなおよし
⊂,,＿_つつ.　　＼ｿﾌﾄ作るともっとよし

　ﾖﾛｺﾍﾞ無料ﾀﾞ

Borland Delphi 6 Personal ダウンロード
http://www.borland.co.jp/delphi/personal/

Borland Kylix Open Edition ダウンロード
http://www.borland.co.jp/kylix/openedition/

JBuilder 5 Personal ダウンロード
http://www.borland.co.jp/jbuilder/jb5/download/

　∧ ∧
　(；ﾟДﾟ) 　ﾋﾞﾙﾊｶｲｹﾞｰﾑﾊﾂｸﾙﾅﾖ
　(|　　|つ
～|　　|
　 ∪∪

NG

　リンリンリンクの大冒険

￣￣￣∨￣￣￣￣￣
　　　∧ ∧
　　　(,, ﾟДﾟ)∫
　　　/　つ旦O
　～(._［￣￣￣.］
　　　　￣￣￣
Tipsサイト
　Delphi Acid Floor　　http://homepage2.nifty.com/boheme/top.html
　Sky Engine by Delphi　　http://www.geocities.co.jp/SiliconValley-SanJose/7625/index.html
　AboutDelphi　　http://www2.big.or.jp/~osamu/Delphi/
　Leafel's note Programing　　http://hp.vector.co.jp/authors/VA015850/program.html
　日本Delphi振興会　　http://hp.vector.co.jp/authors/VA009712/take/delphi/kabetop.htm
　Delphi神殿Tips　　http://nug.nasu-net.or.jp/~sakai/delphi/index.html
　M&I Tips　　http://member.nifty.ne.jp/m-and-i/tips/tipspage.htm
　Gen'sDelphiLabo　　http://www2.biglobe.ne.jp/~sakai/gensfaq2.htm
　FDelphi　　http://www.nifty.ne.jp/forum/fdelphi/faq/title.htm
　Borland Q&A Delphi　　http://www.borland.co.jp/qanda/delphi/index.html
　Borland Tips Delphi　　http://www.borland.co.jp/tips/delphi/index.html
　RG VEDA DELPHI TIPS　　http://homepage1.nifty.com/beny/delphi.html
　Win32 API by Object Pascal of Delphi　　http://halbow.cool.ne.jp/top.html
　COSMIC TOWER DELPHI MILLION TIPS　　http://homepage1.nifty.com/cosmic/delphi/delphitips.html
　Delphi広場faq　　http://www.sakaki.keiaikai.or.jp/faq.html
　としのホームページTIPS　　http://hp.vector.co.jp/authors/VA003525/tips.htm
　STUDIO MU Delphi Q&A　　http://www.para.tutics.tut.ac.jp/~ohno/mu/devroom/delphi_qa_g.html
　中村の里　　http://www.asahi-net.or.jp/~HA3T-NKMR/delphi.htm
　進め！中級プログラマ　　http://www.asahi-net.or.jp/~GV4J-SGUR/narik/susucyu.htm
　Ken's Software Delphiの話題　　http://homepage1.nifty.com/kens-hp/delphi.htm
　Katsuya's Home　　http://www.apionet.or.jp/~tubokura/k_tips.html
　Ak's Laboratory[Delphi Construction]　　http://www2s.biglobe.ne.jp/~aks-lab/delphi_lecture.htm
　Programming Library ｜Delphi Page　　http://homepage1.nifty.com/MADIA/Delphi/Delhpi.htm
　DEKO Delphiによるテクニック＆アルゴリズム　　http://homepage1.nifty.com\ht_deko\techalgo.html

NG

＿＿＿_∧ ∧＿／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
＿＿＿（　ﾟДﾟ）＜　ネットサーフィン(死後?)してよし。
＿＿／ ⊃ つ　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
＿～′ ／
＿ ∪ ∪

初心者向け
　Do It YourSelf---Life with Delphi　http://home.onestop.net/mineko/index2.html
　ゼロからDELPHI講座　http://www.text2music.com/mine/delphi/index.html
　Delphi プログラミング事始め http://www2s.biglobe.ne.jp/~hatena/delphi/index.html
　Delphi（デルファイ）のページ　http://www.threeweb.ad.jp/~satou/
　「Delphi 買ったけど。。」　http://hp.vector.co.jp/authors/VA009187/delkedo/
VBから
　Switching Delphi / VB　http://member.nifty.ne.jp/deepforest/vbdel.htm
　Visual Basic から Delphi/Kylix への移行ガイド　http://www.borland.co.jp/delphi/papers/vbtodel/
　[ でべろっぱのすすめ ]と[ じあぴ ]　http://www.ab.wakwak.com/~greenspace/dev-api/
　DelphiAcidFloor VBtoDelphi　http://homepage2.nifty.com/boheme/delphi/vbtodel/index.html
　Taurus' Home Page Delphiの部屋　http://user.shikoku.ne.jp/kasai/delphi1.html
C++から
　Delphi＆C++Builder&VisualBasic徹底比較Ver0.4　http://member.nifty.ne.jp/h_kova/procomp.htm
　Gonta's Room　http://www2a.biglobe.ne.jp/~gonta/
初心者から上級者まで御用達
　DelphiML検索　http://www2.big.or.jp/~osamu/Delphi/
　Delphi広場　http://www.sakaki.keiaikai.or.jp/
　BorlandManiacs　http://member.nifty.ne.jp/h_kova/
コンポーネントのことなら
　DelphianWorld　http://home1.infonia.ne.jp/~delphian/delphi/
　DelphiSuperPage　http://delphi.icm.edu.pl/
　Torry's Delphi Pages.　http://www.torry.net/index.htm
　tmssoftware.com　http://www.tmssoftware.com/
環境のカスタマイズなら
　GExperts　http://www.gexperts.org/
　フリーカーソル無効化アドイン　http://homepage1.nifty.com/fuu/
書籍案内
　Delphi 書籍ランキング
　http://home1.infonia.ne.jp/~delphian/delphi/history/book.html
　http://home1.infonia.ne.jp/~delphian/delphi/history/bookrank2/book.html
　Ｄｅｌｐｈｉ初心者のための道しるべ　　http://www.valley.ne.jp/~masaiku/index1.htm
　Delphi 関連書籍　http://www.borland.co.jp/bookinfo/delphi.html
ゲーム開発
　DelphiX　http://www.yks.ne.jp/~hori/DelphiX.html
　Project Quadruple D　http://www-fu.magma.ne.jp/~hayase/dddd/

NG

　　|
電　|
　　|∧ ∧
柱　|,,ﾟДﾟ)　＜2chのDelphi関係などのリンク
　　⊂　|
　　| 　| 　MLからｷﾀ人は2chの雰囲気つかﾑヨロシ。
　　|∪
, '　,　;　'　;

ソースの置き場はここ
　置いてよし認定委員会
　http://www2.to/source

リンク集に追加があるならここ
　Delphiお役立ちサイト(コピペ)
　http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538

オープンソースプロジェクトならここ
　monazilla.org(w
　http://members.jcom.home.ne.jp/monazilla/
　monazilla
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=981726544

まずはこれをﾀﾞｳｿ
　２ちゃんねる閲覧ソフト　かちゅ～しゃ
　http://members.jcom.home.ne.jp/katjusha/

2chプログラム板Borland関係

　Borland Delphi 6 Personal をダウンロードした
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998878393
　Delph6 の話でもはじめますか？
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=989950788
　Borland Delphi 6 Personal
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998329377
　Delphi/Kylix Tech 2nd
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=993005709
　Delphi相談室その２
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=995950803
　Delphi相談室
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=971261573
　delphiで作られた有名ソフトって何がある？
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=990056026
　新C++Builder相談室
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=997074601
　C++Builder相談室
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=969458279
　kylix相談室２
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=988815580

NG

　　∧∧c､　いやー、今日はｽﾚ立てる、いいｼｺﾞﾄしたなあ。
　 (,, ﾟДﾟ).| 　もうｵｳﾁ帰るか…
　（|　　ノ
　～　　|
　　∪∪

最新スレを忘れてた
　Borland Delphi初心者用お勉強スレ
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001035627

NG

全スレ 700-800 あたりの続きなんですが、
コンパイル必要なファイルはリンカがつくった
ファイルを見れば簡単とか書いてありましたね。

どのファイルの、どの部分を見ればよいですか。

NG

＞７
　たぶん、コンパイルオプションのリンクタブの　マップファイル（詳細）にしてコンパイルして出来る

XXXX.mapファイルの事では？

M=System
M=SysInit
M=Windows
M=Messages
M=SysConst
M=SysUtils

みたいな感じでリンクしたユニットが出るし

Line numbers for なんとかって感じで　コンパイルしたユニットや　最後にリソースファイルも出るよ

NG

サブクラスの事で叩かれてるね >Delギコ

たぶん、
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=856&to=856

こういう処理をする場合、
標準コンポじゃなくて、もっと複雑な他人様のコンポなら　フックを考えるのもある意味仕方ないけど

普通は、TStrGrid を素直に継承して、TMyGridBarのリストを保持できるようにして
解決するんじゃないの？

NG

それから前スレでやってるような　複数の同じ種類のオブジェクトが多数フックして
それが順不同に解放されるような処理は　サブクラスという名前で呼ぶと困惑する
人も多いと思う。

サブクラスというのは本来継承してクラスを作られたクラスの事だから
そのインスタンスを作成する場合はスーパークラスインスタンスと同時に作成する
だから途中の解放とかの話は本当は出てこない筈。

こういう使い方をする場合は　メッセージフックと呼んだ方がいいだろう

NG

　　　 ∧∧　ﾌﾟﾊｰ　　>叩かれてるね >Delギコ
　　　(,, ﾟДﾟ) =3　＜　気にしないのが一番なんだろうね。
　　　/つ日　　
　～（＿ __) 　　2chだし。ｱｵﾘﾊﾆﾁｼﾞｮｳﾁｬﾒｼｺﾞﾄｶ…

>>9 >普通は、TStrGrid を素直に継承して、TMyGridBarのリストを保持できるようにして
うん、普通はそうなんだけど、
そのＢａｒをMOStringGridでも使いたくなったら

　　　　　　　　　　　ど
　　　　　　　　　　　う
　　　　　　　思　　　し
　　　　　　　い　　　よ
　　サ　　　　め　　　う
　　ブ　　　　ぐ
　　ク　　　　ら
　　ラ　　　　せ
　　ス

ってな気分だったのです。

将来使いたくなった時の為に今コーディングする
というのは、実にＸＰに反しているなあ。

せっかくだし、サブクラス化解除コードもう少し考えてみます。

>こういう使い方をする場合は　メッセージフックと呼んだ方がいいだろう
なるほど。ありがとう。

NG

　 ∧ ∧　　／　重要なので
　 (,,ﾟДﾟ)　＜　　再掲
　 |⊃ ,⊃　　＼
＠|　　|
　 ∪∪
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=935&to=935

935 名前：デフォルトの名無しさん投稿日：01/09/21 10:39
> 再度サブクラス解放についてのまとめ＞＞コンポーネント作家の方々へ
>
> サブクラスを利用するコンポーネントは以下の手順で解放する事
>
> var WM_DetachProc:Cardinal; をローカル変数として定義し
> 　コンポーネントの初期化部で
> initialization
> WM_DetachProc := RegisterWindowMessage('WM_SubclassFreeNotify');
> end.
> とする。
>
> サブクラス解放時にはこのメッセージIDで
> 　WParam,LParam　はユニークな値を入れて　サブクラス先に送信する
> 　それを受信したWindowProcでは、
> 　　この２つの値で送信者が自分かどうか判断し
> 　　　自分でなければリンクを解放して下位にメッセージを送り
> 　　　メッセージが帰って来たらリンクを再接続する
> 　　送信者が自分ならリンクの解放だけを行う
>
>
> VCL上のサブクラス取り外し
> 　 WParam で selfが渡される WParam = LongInt(self)
> 　 LParamは無視してよい　　　サンプルコード >>922
>
> Win上のサブクラス取り外し
> 　LParamでプロセスID
> 　WParamはプロセス内ユニークな値（メソッドアドレス等それぞれのプロセスで管理）
>
> 注意：　WM_DetachProc は定数ではないので case では使えない　ifで判断する事

NG

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　もひとつ。再掲
　し　　|つ　　＼＿＿＿＿＿＿＿＿＿＿＿
～|　｜
　 ∪∪ 　グタイレイﾃﾞｽｼ

http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=922&to=922

922 名前：９１３投稿日：01/09/21 08:54
> 検証した。　問題なく取り付け取り外しできるように見えるぞ
>
> const WM_DatachProc = WM_USER;
> type
> 　TtestLabel = class(TLabel)
> 　 public
> 　　FoldWndProc:TWndMethod;
> 　　constructor Create(AOwner: TComponent);override;
> 　　destructor　Destroy;override;
> 　　procedure　 MyWndProc(var Message: TMessage);
> 　end;
>
> constructor TtestLabel.Create(AOwner: TComponent);
> begin inherited;
> 　if (AOwner is TCustomForm) then
> 　begin
> 　 FOldWndProc := TCustomForm(AOwner).WindowProc;
> 　 TCustomForm(AOwner).WindowProc := MyWndProc;
> 　end else begin
> 　 FOldWndProc := nil;
> 　end;
> end;
>
> destructor TtestLabel.Destroy;
> var msg:TMessage;
> begin
> 　msg.Msg:=WM_DatachProc;
> 　msg.WParam:=longint(self);
> 　 (Owner as TCustomForm).WindowProc(msg);
> 　inherited;
> end;
>
> procedure TtestLabel.MyWndProc(var Message: TMessage);
> begin
> 　case Message.Msg of
> 　WM_DatachProc:begin
> 　　(Owner as TCustomForm) .WindowProc := FOldWndProc;
> 　　　if ( Message.WParam <> LongInt(Self)) then
> 　　　　 begin
> 　　　　　FOldWndProc(Message);//さらに解放を続ける
> 　　　　　FOldWndProc:=(Owner as TCustomForm) .WindowProc;
> 　　　　　(Owner as TCustomForm) .WindowProc:= MyWndProc;
> 　　　　 end else FOldWndProc:=nil;
> 　　end;
> 　WM_CHAR: begin　//コンポーネントの動作チェック用
> 　　 text:=Char(Message.WPARAM);
> 　 if assigned(FoldWndProc) then FoldWndProc(Message);
> 　 end;
> 　else if assigned(FoldWndProc) then FoldWndProc(Message);
> 　end;
> end;

NG

　　ｵｵｷﾅｺｴﾃﾞﾊｷﾊｷﾄ
　　　　∧ ∧　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　（ﾟДﾟ）目＜　もちろん、他の話題もしていこーう
　　　　 |つつ　||　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
TTTTTTTT|TTTTTT
￣￣￣￣￣￣￣￣|
::....　　　　　　　　　　|

NG

このスレで解決した問題をFAQとしてWEBにまとめようと思いますが
どうですかね。

NG

>>13 恥ずかしいよ～ Datach -> Detach に直しといてくれよ～　！

NG

　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 ∧ ∧　　＜　メッセージＦｕｃｋ!Fuck!Fuck!
　　　　　　　　　（ﾟДﾟ,,）_＿_ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　／￣￣∪　∪　／|
　　　／∧＿∧　　　／／|
　／_ （；´∀｀）＿／／┌─────────
　||￣（　　　つ　||／　＜　間違ってるよ、この人
　||　（_○_＿_)　　||　　　└─────────

とあるＣｏｍｐｏに密接な機能をもったＣｏｍｐｏを作りたいとしよう。
例えばTEditとTUpDownの関係みたいに。
TMyUpDownを作りたくなったさ。

世の中にはTEdit継承のTEditExやTNumericEditやTEditMigiYose
などなどが存在するとしようYO

TMyUpDownはそれら全てに共通して
機能追加できるので、どれでも組み合わせて
使ってもらいたいとしよう。

しかし、TMyUpDownの機能には
TEditに流れてくるメッセージを見ないと
ちゃんとした動作をしないものがあるとしたら

その際にはメッセージフック(サブクラス化というかも)をするやり方が
妥当だと思っているのですが、どうなのでしょうか？

NG

> このスレで解決した問題をFAQとしてWEBにまとめようと思いますが
> どうですかね。

ﾌﾞﾙﾌﾞﾙﾌﾞﾙ
　(( ∩ )) ﾌﾞﾙﾌﾞﾙﾌﾞﾙ
　　γ'⌒ヽ∧ ∧ 　　　／
　　し'ゝつ( ﾟДﾟ)つ　＜　すこぶる、ヨシ！
￣￣￣￣￣￣￣￣　＼

NG

　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 ∧ ∧　　＜　だたっち・ヨシ
　　　　　　　　　（ﾟДﾟ,,）_＿_ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　／￣￣∪　∪　／|
　　　／∧＿∧　　　／／|
　／_ （；´∀｀）＿／／┌─────────
　||￣（　　　つ　||／　＜　誰ですか、それ
　||　（_○_＿_)　　||　　　└─────────

NG

>17
　基本的には本当に他に方法が無い場合 TEditの設計が悪いという事になると思います

WinControl.Broadcast があるので、普通は Controlsの先頭に登録して貰えばなんとかなるのではないでしょうか？

NG

というか、自分の理解できない質問は解決したかどうかさえも
読んで分からないのですが >>18

NG

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　>>20 お答えｻﾝｸ--ｽ
⊂,,＿_つつ.　　＼＿

>　基本的には本当に他に方法が無い場合 TEditの設計が悪いという事になると思います
寅さんなら、「それをいっちゃあ、おしめーよ。」
っていいそうな雰囲気

>WinControl.Broadcast があるので、普通は Controlsの先頭に登録して貰えばなんとかなるのではないでしょうか？
すいません、これについてはわからないです。
始めて聞きました。

>>21
っていわれても・・・・・・そういう質問は見なかった事にしましょう。

NG

　∧ ∧　　／とりあえず、GUIに対しても
　(,,ﾟДﾟ)　＜　　テストが大切だという事は
　 |つつ　　＼身をもって知った　　2001年ｾﾌﾟﾃﾝﾊﾞｰ
＠|　　|
　 ∪∪ >>67ｱﾘｶﾞﾄｳ401氏

最初はXPでかかれているような
単純なGUIじゃないから無理かと思ったのだが

XPでは"複雑でテストできない"というのはウソってのを
考えて、ねっちりテストしてみたら

バグがみつかりまくったよ。

NG

>しかし、TMyUpDownの機能には
>TEditに流れてくるメッセージを見ないとちゃんとした動作をしないものがあるとしたら

TEditのメッセージハンドラをオーバーライドする。
コードも最小、実行スピードも最小。

>その際にはメッセージフック(サブクラス化というかも)をするやり方が
>妥当だと思っているのですが、どうなのでしょうか？

せっかく隠蔽されたメッセージが外に出てしまう。
フック用コールバック関数はスイッチ文で大型になる。
オブジェクト指向を破壊した上で大きいコード。
後、フックはシステム全体の性能を落とすので使わないで下さい。

NG

　 ∧ ∧　　・・・・。
　 (,,ﾟДﾟ) >>22
　 U 　U 誤爆りました。違うスレ用でし。ｺﾞﾒﾝﾅｻｲ
～|　　|
　 U U

NG

>>17
いわゆるメッセージフックで密接な関係でかつ双方ビジュアルかつ独立なコンポーネント
はあまり好ましくないと思う。　一体になるべきでしょ？

TEditExやTNumericEditやTEditMigiYose のそれぞれを継承
　つまり override　でサブクラスを作ればいいし、

どうしても面倒ならTEditをTMyUpDown に内包（メンバーとして持つ）してもいいだろう

メッセージフックは非ビジュアルコンポーネントに応用した方がいいのではないか？

NG

>実行スピードも最小→実行スピードも落ちない

で、
TEditのメッセージハンドラで、サブクラスのMyUpDownを操作
例えば、
TEdit.KeyDown
begin
inherited; //ＴＥｄｉｔの通常のメッセージの処理

MyUpDown->AdjustValue; //ＭｙＵｐｄｏｗｎのメソッド実行
end;

NG

あ、ハンドルネームの19は他スレだ。
後、「->」って書いてるのは、「.」の間違い。CBC記述混ざっちゃった。

NG

サブクラスという言葉はWindowsではメッセージフックをあらわしがちだし
Delギコは一貫してその意味で使ってたみたいだから
VCLクラスの派生は派生クラスとかいうかんじに区別しやすい表現してほしいなあ。

NG

29さん、大きく間違っています。
OOPの中で、派生クラスとサブクラスは別物です。
メッセージフック＝サブクラスというのも間違いです。

NG

Delギコのせいで、みんな用語を間違えてるじゃないか。

NG

>>31
違うというだけでなくて、何が正しいかも書いてくれると建設的

NG

だってここにもう書いてるもん>>32
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001035627&st=12&to=13&nofirst=true

NG

　　　　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣￣
　　　　　　( ﾟДﾟ)　＜ >>26
　　　　　　/⊃⊃ 　　＼
　　　　～（　　ﾉ　　　　￣￣￣￣￣￣￣￣￣
　　　　　⊂`Ｊ

>はあまり好ましくないと思う。　一体になるべきでしょ？
そうなんだけど、、、

> TEditExやTNumericEditやTEditMigiYose のそれぞれを継承
> 　つまり override　でサブクラスを作ればいいし、

そうすると同一コードが各Classに分解されていくわけだけど。
いいのか？そこまでしてメッセージフックは避けることなの？

　　∧ ∧　　／
　　（ﾟДﾟ）＜　>>24>>27
　　 |つつ　＼最小限のメッセージハンドラはTEditなり
　～|　　| 　　　　他のEditでも、継承して書けと・・・
　　∪ ∪
Componentの独立性よりもそっちを取るんだ。
Delphiの設計時GUIで一発設定とはいかないか....

しかし、それって普遍的にそうするべきことなの？

んなコトは今までは意識してないせいか聞いたこともないので
もそっと、教えてくれるとありがたーよ。

NG

>>33
つーか、Windowsでは「サブクラス化」はメッセージ云々だってのは
伝統だしなあ。

NG

>Delギコのせいで、みんな用語を間違えてるじゃないか。
　∧ ∧　　　／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　氏ったことか。用語より実装。
　 | つ[|lllll］). ＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪
　[A=Bは間違いです]ってなら、
　グタイ例しめしてAを○○と呼びBを○○と呼びますって
　逝って欲しいぞ。

　ﾒﾝﾄﾞｳﾅﾗﾍﾞﾂﾆｲｲｹﾄﾞ
　ｺﾄﾊﾞﾏﾁｶﾞｲﾃﾞｱｵﾙﾉﾊｽｼﾞﾁｶﾞｲ

>>33はサンクスだけど微妙に説明になってないな。

　しかし、WndProcを横取りすることをサブクラス化って逝っちゃうときは
　多かったように思うのだが。

NG

>WndProcを横取りすることをサブクラス化って逝っちゃうとき

何度これが間違いだと言ったらわかるんだ。

NG

＞WndProcを横取りすることをサブクラス化って逝っちゃうときは

まあCの範囲でできる初期のOOPテクニックとしてのサブクラスだからそういう事なんでしょうな

NG

で、デルギコ、>>27
の説明は分かったのか？
もし分からないんなら、メッセージハンドラのヘルプくらい引けよ。

NG

＞そうすると同一コードが各Classに分解されていくわけだけど。
＞いいのか？そこまでしてメッセージフックは避けることなの

？　こういう場合　TMyUpDpwnオブジェクトを作っておいて　それをそれぞれに内包させる
だけでしょ？

WindProc;override で　内包した TMyUpDOwnを呼ぶだけだからコードが溢れるってイメージは無いよ

それが嫌なら逆に TMyUpDownにTEditを内包するようにしたらいいでしょ

NG

もちろん TMyUpDown　に TEdit側を内包する場合は
内包したTEditの WondowsProcメソッドポインタをフックする（イベントと同じね）
けど、これは内包の手法の一つ

実際にTEditExやTNumericEditやTEditMigiYose のどのインスタンスを
作成するかのプロパティを持ってればいいでしょ？

NG

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　にゃろめー。
⊂,,⌒　,,つつ.　　＼＿
　　￣￣
折れにばっかColumnな。>>37 正直ｳｯﾄｲ、粘着厨房か。
折れは"用語より実装。 "って逝ってる。

世間のwebページでサブクラス化の意味を間違って
Tips書いているやつをネチネチ探して報告してやれよ。

>>39
、>>27 の説明は分かったのか？
わかってる。

>メッセージハンドラのヘルプくらい引けよ。

　　　,,'''~''~'∧,,∧
　～′,,,;;,, (,゜Д゜)
　　UU"　" U U
なんかMLから2chにきて、
えらそうにしてる折れをへこませようとでも思っているのなら
うっといだけだから、MLに帰れよなー。まじで。

ﾔﾒﾄｹ∧∧　∧∧ 　／￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ) ( ﾟДﾟ) ＜　　逆にMLに殴りこみを…
　　　 | ⊃|⊃ゞ　|⊃　＼＿＿＿＿＿＿＿＿
　　～| _　|ｶﾞｼｯ!!|″
　　　 ∪∪　∪∪
　ｵﾁﾂｲﾃｶﾙｼｳﾑﾄﾚ

NG

あ、質問出てたか。
>最小限のメッセージハンドラはTEditなり
>他のEditでも、継承して書けと・・・
「TEdit.KeyDown」は「TMyEdit.KeyDown」のが正しいね。
継承こそがDelphiプログラミング。

>Componentの独立性よりもそっちを取るんだ。
VCLの中もクラスのメンバはクラスだらけで、
処理もそれらに委託しまくりだよ。見てみて。
クラス同士にやり取りさせてるんだから良いOOP。

>Delphiの設計時GUIで一発設定とはいかないか....
派生クラスをパレットに登録しろ。

>しかし、それって普遍的にそうするべきことなの？
そういうこと。

NG

>>43
>継承こそがDelphiプログラミング。
VCL同士の場合、Windows Message介さずに直接メソッド呼び出しで
やり取りが完了することも多々あるしね。その中に割り込もうとしたら
派生してやるしかない。
TWinControl派生じゃないControls(TLabelとか)はそもそも自分に対応した
ウィンドウハンドル自体持ってないよな。

NG

>>40
>？　こういう場合　TMyUpDpwnオブジェクトを作っておいて　それをそれぞれに内包させる
>だけでしょ？
　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ＜　なるほど。。勘違いしてました。
　　し― ∪　　　　＼＿ｻﾝｸｽ

経験がないから、DelphiIDE上で綺麗に動作させれるのかがわからないけど
TUpDownとTEditの関係詳しく氏ってる人いる？？

>>43をを！かなりわかりやすい！
少しずつ、勉強中です

　　　　　　　　　　∧ ∧ 　／￣￣￣￣￣
　　　　　　　　　(ﾟДﾟ ,,)＜　　ｼｺﾞﾄもしないで勉強勉強っと
　　　　　　　＿φ＿⊂)__ ＼＿＿＿＿＿
　　　　　　／旦／三／／|
　　　　　　　　|￣￣￣￣￣|　 |
　　　　　　　　|千葉ﾋﾟｰﾅｯﾂ|／
　　　　　　　　￣￣￣￣￣
ところで>>20>>22の
> >WinControl.Broadcast があるので、普通は Controlsの先頭に登録して貰えばなんとかなるのではないでしょうか？
これはどういう事ですか？

NG

画像ファイルをドラッグ＆ドロップすると、その画像が
表示されるようなプログラム作りたいんですけど
…っていう質問は場違いですか？

NG

>>46　そんな事はありませんが　今　はそれどころじゃない雰囲気

Delphi相談室その２
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=995950803
を使ったら？

NG

>経験がないから、DelphiIDE上で綺麗に動作させれるのかがわからないけど
>TUpDownとTEditの関係詳しく氏ってる人いる？？

片方のクラスのコンストラクタでもう片方のクラスをクリエイトすれば、IDEでも問題無いよ。
TMyEdit.Create;
begin
inherited;
FUpDown := TUpDown.Create;
FUpDown.Parent := self;
end;
て感じかな。

NG

♪聞いてアロエリーナ　ちょっと言いにくいんだけど
♪聞いてアロエリーナ

　疲れたのでチョット休むの。
　他にも勉強になっている人いるのかなー。

　>>46さんの質問は>>3のリンク先巡ってればわかるの。

　　聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　　　　　　　∧ ∧ 　　>>48さんｱｰﾘｶﾞﾄ
　　（○）　　（ﾟДﾟ ,,）∩゛ｼﾂﾚｲﾅｺﾄｲｯﾃｺﾞﾒｰﾝﾈ
　　ヽ|〃　　 ∩､ ∩ ⌒つ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　__∧＿＿＿＿＿＿＿＿＿＿＿＿
　|
　|　ｲﾁｲﾁｼﾞﾌﾞﾝﾉﾀｲﾁｮｳﾎｳｺｸｼﾅｸﾃｲｲﾝﾀﾞﾖ
　＼＿＿＿＿＿＿＿＿＿＿＿＿__

NG

　　　　　　　　　　　　　
　　　　　　 ∩ ∩　　　教えてくれた人サンクスー
　　　　　　　 | ∪ |　
　　　　　　　 |　　～　　 .＿＿__
　　　　　　　__| ∧ ∧　 . |　.寿. |　　ｺﾚ
　┌┐　　　| ＼,,ﾟДﾟ)つ｜=∞=|　　　ｺﾞｼｭｳｷﾞ
　│|￣）〓（　,,￣￣￣）|　.癶. |
￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ﾂｶﾚｶﾞｶﾗﾀﾞﾆｸﾙﾉﾊﾄｼﾀﾞｶﾗ?

NG

サブクラス化ってVBだけかと思ってたよ

NG

今更だけど、1のリンクにこれも欲しいと思った。
リアルDelギコ http://www.oreilly.co.jp/cover/delphi.gif

NG

>>51
C でもやるぞ？

もともと OS / Windows 標準コントロールが拡張性を公開していなかったことが
特に Windows でサブクラス技法（ウィンドウプロシージャを置き換える）がはやった
原因だろう。および DOS の常駐プログラムでの Int21/2F 多重フックの技法に似ているので
違和感がなかったんじゃないかな？

NG

|､∧
|Дﾟ）　ｼﾞｰ　
⊂）
| /
|´ http://www.oreilly.co.jp/cover/uml.gif
こいつの方が愛嬌あるな

NG

なんとなくだけど、
　ビジュアルコンポーネント２つを無理やりフックによるサブクラス手法で
　つないでしまう方法を取りたい理由は　単にプロパティエディタを登録する
　のが面倒とか思ってるだけじゃないのかな？
　こうしとけば２つそれぞれオブジェクトインスペクタで設定出来るから

でもプロパティエディタから Designer.CreateComponent ってのが本流じゃないかな

NG

>>33
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001035627&st=12&to=13&nofirst=true
この用法を使ってる文献か資料の名前かURL教えてほしいなあ。
ざっと探してもサブクラスと派生クラスは同じ物をさすって説明ばっかりだ。
(WindowsProcのサブクラス化は別にして)

NG

>>45

>TUpDownとTEditの関係詳しく氏ってる人いる？？

uses
Commctrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
UpDown1.Perform(UDM_SETBUDDY,Edit1.Handle,0);
end;

こんだけでスピンエディット完成！

NG

TUpDownってWin32のUpDown controlをラップしてるだけ
だからウィンドウハンドル渡してそれっきりにできるんだな。

NG

>>52
あ、元ネタあったのか。
シラナカターヨ

NG

サンプルコンポの TSpinButton や TSpinEdit の
ソースをみてみればよいのでは？

NG

TStringGridで、OnResize イベントが発生し、なおかつ
WordWrap 機能を有する（文章量とセルの幅に応じて
セルの高さが自動設定される）コンポーネントを作りましたが、
これって需要ありますか。

NG

モロ、無修正画像サイト発見！

http://www.sex-jp.net/dh/01/
http://www.sex-jp.net/dh/02/
http://www.sex-jp.net/dh/03/
http://www.sex-jp.net/dh/04/

NG

継承で実装する方法を考えてみた

|　　　　　　　　　　　　∧ ∧ 　　激しくつかいにくい！
|　　　　　　　　　　　　(；ﾟДﾟ)
|　　　　　　　　　　　　(|　　|つ
|　　　　　　　　　　　～|　　|
|　　　　　　　　　　　　 ∪∪

|　　　　　　　　ﾄﾃﾃﾃﾃ･･･
|　　 ∧∧　三
|　　(ﾟДﾟ )　二　　≡
| 　 ⊂⊂ ヽ　三　＝　　=
|　　　｀＠＠　ー　二

|
| 　ｻｯ
|）彡
|
|
|

| 　
|､∧
|Дﾟ）　ｼﾞｰ　
⊂）
| /
|´ 　　こだわりの部品を作るという面から見ると
　　　　WndProcを横取りしてしまう方が
　　　　ﾔﾊﾟｰﾘ使いやすいね。

　　>>17の例でいうと
　　部品を使う人間がわざわざ各種Editを継承しなくても
　　使える部品の方が再利用性が高いと思うな。

たとえそれがVCL流儀に反していても
出来ないってのはｿﾓｿﾓおかしいだろ。ｹﾞﾝｺﾞとして。
APIに簡単にできるのに(TUpDownのこと)
VCLには出来ないてのには腹立たない？

>>55、大分違う。

NG

やっぱり独立に貼り付けたビジュアルコンポーネントが密に結合しすぎるのは気持ち悪いよ
とくにTMyUpDpwnが一つのTEditに複数貼り付けられてしまう設計だとなおさらだ。

実装上殆ど同じ＝TEditのメッセージフックでも、 TMyUpDown に
　TEditを内包させるようにしてはどうだ？

TMyUpDown にクラス名のプロパティを EditClassName を付ける（要プロパティエディタ)
このEditClassNameで指定したクラス名のインスタンスをひっつける
もちろん実装上　TEditのメッセージフックが必用であってもかまわない。

これならユーザーからはTMyUpDownに内包されたことがはっきり判るし、同じTEditに
複数張り付くなんて事もない

implementation
type TEditClassNameProperty = class(TPropertyEditor)
function GetValue: string; override;
procedure SetValue(const Value: string);override;
end;

procedure Register;
begin
RegisterComponents('Samples', [TMyUpDown]);
RegisterPropertyEditor(TypeInfo(string), TMyUpDown ,'EditClasName'
, TEditClassNameProperty);
end;

procedure TEditClassNameProperty.SetValue(const Value: string);
var c:TMyUpDown;
var t:TComponent;
begin
c:=(GetComponent(0) as TMyUpDown);
if Assigned(c.FEdit) then c.FEdit.Free;
c.Fedit:=nil;
t:= Designer.CreateComponent(TComponentClass(findClass(Value))
, c , c.Left+20, c.Top, c.Width, c.Height) ; //ここは適当な開始位置ね
if not (t is TCustomEdit) then t.Free else c.FEdit:=t as TCustomEdit;
c.FEditClasName:=Value;

end;

function TEditClassNameProperty.GetValue: string;
var c:TMyUpDown;
begin
c:=(GetComponent(0) as TMyUpDown);

if Assigned(c.FEdit) then Result:=c.FEdit.ClassName
else Result:='-non-';// 編集経過を保存させたければ Result:=c.FEditClasName;
end;

NG

> やっぱり独立に貼り付けたビジュアルコンポーネントが密に結合しすぎるのは気持ち悪いよ
> とくにTMyUpDpwnが一つのTEditに複数貼り付けられてしまう設計だとなおさらだ。

|　
|∩
|　|
| ～
| ∧ 　　／￣￣￣￣￣￣￣￣￣
|ﾟДﾟ)　＜　そ・そうかなあ。
|∪　　　＼＿＿＿＿＿＿＿＿＿

はっきり言われると自信なくしちゃう。
　使いやすいと思うんだけど・・・・・・
TEdit+TUpDownがあるのにTSpinEditがあるのはそういうワケなのかな？

>>64コード見せてもらいつつ
考えてみるよ。

情報Thanx

NG

つーかさ、Ｄｅｌ６のLabelEditのソースじゃだめなのか？

NG

同じビジュアルなコンポーネント同士でも
　TFormやTPanel への貼り付けはあきらかに張り付いた様子が見えるから
　こういう設計ならいいと思う

TMyUpDownでも上に載せたらTEditにぴったり張り付いて一体になってくれるなら
　これも良い設計だと思う。

非ビジュアルなコンポーネントでメッセージフックを使ってアクション類を実現するのも
アクションとビジュアルの分離という意味で良い設計だと思う

ビジュアルなコンポーネント同士がメッセージフックを使って密接な関係にあるのに
ビジュアル上疎な関係で　プロパティ一つで繋がっているというのはイｬ～ンです。

NG

たまには普通のプログラムの話をさせてくださいな。

効率的なプログラム設計、記述方法について聞きたいです。

現在趣味で様様なソフトを作っています。
いつも行き当たりばったりでプログラムを書いているので、
ちょっとでも複雑になると、どういう順に書けばよいのか、
どういう手順で目的の機能を達成するか悩みます。

自分のプログラムを見ても、しばらくたたないと
（たとえコメントつきでも）プログラム全体を把握できません。

不思議なんです。

コンポーネントや関数化されたものを利用すれば、
例えばウィンドウを表示するだけならそれこそ１行も
プログラムを書かずにすみますね。

つまり、部品ごとに分けていけば把握が簡単になると思うのですが、
私がプログラムをつくると部品同士のつながり、それぞれの部品
が何をやっているのかがだんだん把握できなくなります。

NG

>自分のプログラムを見ても、しばらくたたないと
>（たとえコメントつきでも）プログラム全体を把握できません。

プログラマー辞めたら？

冗談ではなく、何事にも向き不向きがあるから。

NG

>>69

>現在趣味で

って書いてあるような気がする。

NG

Delphi 6 エンタープライズ 60日体験版
を下記キージェネを使えば製品版になります
ぜひご利用ください
http://www.crackbest.net/chcrack/crack/delphi6.exe

58 名前：sage ：01/09/21 21:06
Borland J Builder5J Enterprise 60日体験版
を下記キージェネを使えば製品版になります
ぜひご利用ください
http://www.cracks.am/d.x/Borland_JBuilder_4.0-5.0.zip
当然オーサライズ可能です
低能言語のDelphiからJAVAに乗り換えてみてはいかがでしょう？

NG

それいぜんに
エンタープライズ版はどこからDLできますか。

NG

>>71
煽りもいいんけど。
ほんとに製品版になるかどうか確かめてから書いとくれ。

NG

Borland Maniacsのobject pascal会議室に誰か投稿してあげてyo!

NG

>>73
煽りじゃないですyo
J Builder5J Enterprise 60日体験版に関してはほんとに
製品版になります(確認済み
Delphi は、確認取ってません
>>72
DLはできません、Borlandに頼めばCDROM送付けしてくれます

NG

>>74
あそこは止めたほうがいいよ。

気に食わない質問が出ると、ボロクソいわれるから。

NG

>>75
見かけはね...

NG

　ｽﾄﾚｰﾄﾆｲｳ>>sage
　∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　死ね。氏ねじゃなくて死ね
　U　 ,つ゛　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪
今すぐ首くくれ。off会とかあったら殴るから。ぐーでな。10回以上な。

アクティベーションで捕まれ

プログラム技術板レス削除依頼
http://teri.2ch.net/test/read.cgi?bbs=saku&key=987026739

NG

も～ろ
http://www2u.biglobe.ne.jp/~hole/

NG

>>68
ずばり、｢オブジェクト指向｣が役に立つんじゃネーノ？

NG

>Delphi 6 Enter
ワレだろうがなんだろうが欲しいものは欲しい。
良識ぶってんじゃねーぞゴラ

NG

http://www5d.biglobe.ne.jp/~musume/
↑加護のバナーをクリックしたらスゴイことに！！

NG

　　　　∧ ∧　　／
　　　　（,,ﾟДﾟ）＜　　こんな例はどうだろう。>>67
　　　　 |つつ　＼
　　　＠　　 | 　
　　　　∪ ∪
ﾄﾞｺｶﾉﾀﾞﾚｶｶﾞ言ってたんだが

D6ではLabelEditってあるよね。
Editの上下左右にLabelがくっついているやつ。

ｱﾚ、結構いいんだけど、TEditにしかLabelがつかないって
なんだか変。

ComboBoxやMaskEdit
自作の数値専用入力Edit右寄せ可能Edit
フリガナ調査Edit、背景透明化Edit

こういうものにもLabelEditと同じ機能が欲しくないか？

そういうとき、TくっつきLabelというコンポーネントがあって
それぞれ上で示したようなCompoネントを指定するだけで
同じ機能を実現してくれたらって思うのだ。

それが変かい？普通でしょ？

NG

いいんじゃない？TくっつきLabel、悪くない。

NG

>>83
はーいはーい
いいこと思いつきました！

TSpinEdit のソースをパクって、
ソース中の TSpinButton を全て TLabel に
書き換えてみてはどうですか。

NG

>>81
>ワレだろうがなんだろうが欲しいものは欲しい。
うんうん。その理屈でコンビニで万引きしなさい。誰も止めないよ。

NG

>>47 ありがとうございます。行ってきます。

NG

リスクが高い事はしない。
ローリスク灰リターン。

NG

> 効率的なプログラム設計、記述方法について聞きたいです。
>
> 現在趣味で様様なソフトを作っています。
> いつも行き当たりばったりでプログラムを書いているので、
> ちょっとでも複雑になると、どういう順に書けばよいのか、
> どういう手順で目的の機能を達成するか悩みます。

　　∧ ∧　　／まず、イベントハンドラにごりごり書くのを辞めることだ。
　　（ﾟДﾟ）＜　　それがやめれて初めて構造化が出来るのだ。
　　 |つつ　＼
　～|　　| 　　　　一つの機能を１つのClassに書けるようになろう。
　　∪ ∪ ｿｼﾃｵﾌﾞｼﾞｪｼｺｳｽﾙﾉﾀﾞ

　∧ ∧　　　／　>>69
　(,,ﾟДﾟ)　　＜　　＞プログラマー辞めたら？
　 | つ[|lllll］). ＼　過去に戻って悩んでる君に言ってあげようか？
～| 　 |
　 ∪∪ 　ｼｭﾐﾀﾞｯﾃﾌﾟﾛｸﾞﾗﾑｶｸﾋﾄﾊﾌﾟﾛｸﾞﾗﾏｰﾀﾞ

ﾌﾟﾛｸﾞﾗﾑｶｸﾈｺﾊプログラニャーﾀﾞ

> つまり、部品ごとに分けていけば把握が簡単になると思うのですが、
> 私がプログラムをつくると部品同士のつながり、それぞれの部品
> が何をやっているのかがだんだん把握できなくなります。

　∧ ∧　　／ﾈﾀのような気もするが
　(,,ﾟДﾟ)　＜　　部品を分ける事を氏っているのなら
　 |つつ　　＼とにかく使いやすいComponentを作っていくことだ。
＠|　　|
　 ∪∪ 部品同士のつながりは永遠のテーマではあるけどね。

DB系のCompoをみるとその連係手法は結構面白いぞ

そういえば、サブクラス化につながるが
TDBEdit以下、TDExxxってのが多すぎ。
継承マンセーだと、あんなCompo山ほどって事になるが
あれが美しいか？

　TEditやTLabelと[TDB機能Plus]というものがあれば
　TDBEditやTDBlabelは必要なくなる
　実際はそうはなかなかうまくいかないのだろうが。

NG

>>89
>　TEditやTLabelと[TDB機能Plus]というものがあれば
>　TDBEditやTDBlabelは必要なくなる

とりあえず反対。
そんなことしたら、見た目 TEdit なのに別の動作をしちゃうわけでしょ？
名前が内容を表さなくなったら混乱しか残らない。

形式的に多重継承/Mix-in に似たことをコンポーネントレベルでやろうとしている
様だけど、可読性/メンテナンス性が落ちるだけだと思う。

ここぞというところで、一発使う。ってのがよさそうだけど。

NG

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　>>90 そんな事では可読性は落ちない
⊂,,＿_つつ.　　＼＿

TEditがTButtonになるわけでもなし
TEdit的にDBと接続されるだけ。

そんなCompo間接続が可読性を悪くするという
思想だと、TActionの有用性を否定することにならない？
あれはActionプロパティがあるけど
じゃあ、TDBPlusEditActをTEdit.Actionにでも関連付けようか。

例えば右寄せ可Editは非常にポピュラーだが
それをネット上から手に入れたとして
それにDB機能を付加させるためには
開発者がCompo継承するスキルが必要になるし
TDBEditの実装を見て真似しなきゃいけない。
それはRADとして正しい姿じゃないです。

それを要求するくらいなら
TDBPlusが合ったほうがいい。

こう考えますが、どうですか？

NG

>>91
>例えば右寄せ可Editは非常にポピュラーだが
>それをネット上から手に入れたとして
>それにDB機能を付加させるためには
>開発者がCompo継承するスキルが必要になるし
>TDBEditの実装を見て真似しなきゃいけない。

TDBEditから継承したら凄く簡単だけど・・・

protected
　procedure CreateParams(var Params: TCreateParams); override;

procedure TDBRightEdit.CreateParams(var Params: TCreateParams);
begin
　inherited CreateParams(Params);
　Params.Style:=Params.Style or ES_RIGHT;
end;

これではいかんのだろうか？

NG

右寄せはあくまで一例。
任意のTxxEditを常にTDBEditから派生させるとは限らないし、
出来たとしてもxxとDBの結びつきが必要以上に強すぎるって事。
# 継承継承でTxxLabeledDBUpDownEditなんてのを作ったらちょっとおまぬけでしょ？

NG

　 ∧ ∧　　・・・・。
　 (,,ﾟДﾟ) 　なぜ伝わらないかな...
　 U 　U
～|　　|
　 U U
>>92
>これではいかんのだろうか？

いかんって。少なくとも理想とは程遠い

RADとして見た場合。
継承コードを書かせるという仕組みよりかは
ｵﾌﾞｼﾞｪｸﾄｲﾝｽﾍﾟｸﾀで選択する方が簡単だし。
部品としての完成度は高いです。

TEditを継承させるコードが右寄せみたいに簡単じゃない場合
TEdit>>TxxEdit
と同じコードを
TDBEdit>>TDBxxEdit
ここでも実装するのか？

というか、TxxEditの"使用者"(TxxEdit作成者ではなく)にTDBxxEditを作成させる？

NG

>>93　なるほど
確かにVCLのコンポーネント群に対してある種の機能を付加しようとしたら
それぞれを継承して作りこむ必要がある
で、それは美しくないということか・・・

言われてみれば、実際にそういうことをやった時は煩わしく感じたな

NG

>>94
ちゃんとスレの流れを読んでなかった・・・スマソ
あ、95=92ね

NG

とはいえTxxDBEdit程度なら十分許容範囲だね。
ユーザーから見れば（そしてその機能に満足してれば）
TEdit + TDBPlus + Txxよりよっぽどお手軽で確実。
まあ設計ヲタからみれば不満だろうけど。

NG

　　　∧∧　　　／会話しているうちに
～''~（,,ﾟДﾟ）　＜　考えがまとまった！
　 UU'UU　　　＼いろいろ意見くださった方クスコクスコサンクスコ

ｻｲｼｮに「メッセージフックなんか使っちゃだめ」論を
聞かされて、悩んでいたのだが
必要とあれば、しかも出来るのなら

メセジフックも・使ってしまえ・ほととぎす

というのが折れの方針。
現在の所VCLではイマイチﾒｾｼﾞﾌｸの解除が
安全に行える方法が確立されていないのがチョトやだけど。

安全性があれば使ってヨシだと思タ。

NG

　　∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　＜　もう寝ようぜ
　 . /　　|　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
＠（＿__ﾉ

>>97
>TxxDBEdit程度なら十分許容範囲だね。
>TEdit + TDBPlus + Txxよりよっぽどお手軽で確実。

[この場合は許容範囲]なんて事を話しているのではなくって
･･･って何度も言っていると思うが。

例えばMouseが上に来たらピカっと光るTLightEditを誰かが作っていたとして
それにもDB機能を付加したい場合
コンポーネントを作ったこともない初心者開発者が
TDBLigheEditを作らなければいけないのか？
変だろ、明らかに。

TDBEditとTLightEditを多重継承できればいいかもしれないが
其れが出来そうにもないのだから
限られた場合によってはメッセージフックなどの
方法は有効でしょう。

[メッセージフックを使ってはﾀﾞﾒ、ソンナコード初心者が真似したらどうする]
と逝ってた人がいたみたいだが、
そもそも、コンポーネント開発者とコンポーネントユーザーとは
違う視点で見なければならない。

＞まあ設計ヲタからみれば不満だろうけど。
そんな安易な言葉で人の設計に文句つけても
面白いことは何もないと思うぞ。

そんな漢字。

NG

自己解凍形式など、EXEの最後にデータを格納している場合、
それを読み出すにはどうすればよいですか？

当然、自分自身を読み出そうとするとエラーが起きますし。
メモリ上に展開されているプログラムの先頭アドレスを
知る事ができれば、プログラム本体のサイズを元に
データ部のみを読み出すことができるかもとおおｍったのですが。

NG

自分自身を消し去る実行ファイルなんかも
つくってみたいですね。

NG

97の話題は本筋から脱線しててユーザーから見た場合の話だよ。
ついでに常に拡張性・汎用性を考慮するのも疲れるねと言ってるだけ。

NG

Delギコ粘着だな...

NG

>100
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(Application.ExeName);
end;
で普通に読めたよ。
あとバイナリエディタでexeの最後にデータ追加しても正常に動作した。

[exe本体][データ][データ長]
という構造にすればうまくいくかも。

NG

>>79
ブラクラです。気をつけて。

NG

Delｷﾞｺさん、なんかメッセージフックにこだわってるみたいだけど、
そこまでしてほんとに汎用性あんの?
これだけいろいろな継承されたコンポがでている中で
対応できるとは思えないけどなぁ。
なんか結局各コンポのために「対応」しなきゃいけなくなりそうだけど。

それよりもそれぞれに作っていけばいいように思うけど。
その方がシンプルなような気が。。。
ﾅﾝｶﾆﾎﾝｺﾞﾍﾝﾀﾞ･･･

NG

ttp://members.jcom.home.ne.jp/buin2gou/
かめさん(ロマンスファイラー)の作者のサイトの「デルファイ謎FAQ集」に、
EXEファイルにデータを埋め込んで取り出す方法が紹介されてます。

NG

　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　＜　自分自身を削除する時はbatファイルに頼る
　 U　 ,つ　　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪

:TOP
@DEL project1.exe
IF EXIST project1.exe GOTO TOP
@DEL project1.bat

project1.exeから、このようなproject1.batを作って
それをWinExecなどで呼び出すとよい

NG

機能面から見ると TEdit + TDBPlus + Txx がいいのかもしれない。
でも Delphi ではコンポ同士の繋がりが視覚的に見えないので
ユーザーにとっては間違いなく分かりにくい。繋がりを確認するために
いちいちオブジェクトインスペクタでチェックしないと駄目だろ。

もっとも簡単な連携コンポの TFileListBox,TDirectoryListBox ですら
俺は難しく感じる。Delphiがコンポ同士の繋がりが確認できるような
GUIだったら、バシバシ使っても良いと思う。

NG

　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　＜　>>106　ﾔﾘﾀｲﾔﾂﾀﾞｹﾔﾚｯﾃﾉﾊﾄﾞｳ?
　 U　 ,つ゛　＼＿＿＿＿＿＿＿＿＿＿＿＿
～|　　| 　　　ﾀｼﾞｭｳｹｲｼｮｳﾊ [ﾐﾄﾒﾙ] [ﾌﾖｳ] ﾉｼｭｳｷｮｳﾛﾝｿｳﾐﾀｲニャ
　 ∪∪　

>Delｷﾞｺさん、なんかメッセージフックにこだわってるみたいだけど、
>そこまでしてほんとに汎用性あんの?

しーらない。やってみないとわからない。
TLabelEditのようなTくっつきLabelのようなものは欲しいぞ。

TLabelEditをｺﾋﾟﾍﾟした方がいいかも
そういうソースﾈｯﾄﾃﾞ公開してもいいのかな。

>>109
そういえばFileListBox-DirectoryListBoxも連係でしたね。

>Delphiがコンポ同士の繋がりが確認できるような
>GUIだったら、バシバシ使っても良いと思う。
にゃるほど。
ｵﾌﾞｼﾞｪｲﾝｽﾍﾟｸﾀもSubCompoのプロパが指定しやすくなったし
ｵﾌﾞｼﾞｪｸﾄ釣りーってのも登場したし
将来的には期待してもいいのかも。

　　　∧∧ ﾌﾟﾊｰ　／￣￣￣￣￣￣￣￣￣￣￣
　　　(,,ﾟДﾟ) =3 　＜　Delphiの今後の進化についても
　　　| つ日~~ 　　＼ﾏﾀｰﾘ話してみたいのだが･･･
　～|　　）
　　　U U 　ｼｮｳﾗｲｾｲｶﾞﾅｲｯﾃﾊﾅｼﾄﾊﾍﾞﾂﾆｼﾃ

NG

AttachLabelというのがどっかにあった
作者のURL変わってるからどっかのライブラリにあるかも
TWinControlの周りにひっつくやつ
これも中でHookしてたような
もちろん一つのコントロールに複数ひっつけるとだめ

procedure TApplication.HookMainWindow(Hook: TWindowHook);
は中でList持ってるから多重Hook　OK？
こんなのがTControlあたりにあったらよかったってこと？

NG

　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　＜　part2から
　 U　 ,つ　　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪

> ｽﾚが10までいったら書籍ｷﾎﾞﾝ。
> ﾃﾞｻﾞﾊﾟﾀとかも含めてお得なお値段\3Kあたりをｷﾎﾞﾝｗ
あんたが書くよろし。
折れ、来月から無職やねんもん・・・・・・・・
　生活どうするよ。

　　　　　　　　　ﾊﾆｬ～ﾝ...
　　　　　∧ ∧＿＿　
　　　／(*ﾟДﾟ)　／＼　ﾋﾛｯﾃﾖｼ
　　／|￣￣￣￣|＼／
　　　 |捨てギコ |／　
　　　　￣￣￣￣

　彡　　　ﾋﾞｭｳｳｳ…
　　　　　　　　　　彡
　　彡　　　　　　
　　　　　　　 .∧ ∧ 　　寒いが旅にでも出るか･･･
　　　　　　ヾ(,,ﾟДﾟ),)
　　　　　人つゝ人,, 　　　　　　　北風ﾐﾆｼﾐﾙ
　　　　　Ｙノ人　ノノﾉゞ⌒～ゞ
　　　 .　ノ /ミ|＼､　　　ノﾉ　（　彡
　　　　 `⌒ 　.Ｕ~Ｕ`ヾ　　　　丿

NG

　　|￣￣￣￣￣￣￣|
　　|　きり番？>>111
　　|＿＿＿＿＿＿＿|
　　 ∧ ∧ ||
　　　(,,,ﾟДﾟ)||
　　　 /つつ　　

> こんなのがTControlあたりにあったらよかったってこと？
そういうのがあったらいいかもー。

> もちろん一つのコントロールに複数ひっつけるとだめ
同じクラスなら複数ひっつけ防止コードは簡単ニャんだけどね。

NG

　∧ ∧　　／設計論じゃなくて
　(,,ﾟДﾟ)　＜　　実装の話がいい！
　 |つつ　　＼
～|　　|
　 ∪∪

TTestLabelの実装上の話。
>>12のやり方は全てこのコードの方式にのっとって実装されているときはいいが
途中で他のFormメッセージフックをされた場合やはり落ちます。

試してないのですが
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=956&to=956
こちらのコードではその辺りはどうですか？

ぱっと見た感じですが
[サブクラス化の解除がおかしいです]って例外
すでにおかしくなっているのに例外発生してるみたいですが･･･

とりあえず、現在の所、折れの所では
メッセージでフック解除するのではなく

　　//メソッドが一致するかどうか調べる関数
　　function SameMethod(const A, B: TWndMethod): Boolean;
　　begin
　　　if (TMethod(A).Code = TMethod(B).Code) and (TMethod(A).Data = TMethod(B).Data) then
　　　　Result := True
　　　else
　　　　Result := False;
　　end;

destructor TtestLabel.Destroy;
begin
　if SameMethod(
　　Self.MyWndProc,
　　TCustomForm(Owner).WindowProc ) then
　begin
　　TCustomForm(Owner).WindowProc := FoldWndProc
　end else
　begin
　　raise EComponentError.Create('サブクラス化解除失敗');
　end;

　inherited;
end;

このようにしています。
少なくともこれなら(削除しようとしても例外で止まる)
落ちることはなくなります。

メッセージでのフック解除方法でも、このような安全策
つまり、途中で変なフックが入っている場合は
フック解除しない方法が取れるとよいのですが
何度か試しているのですがうまく出来ていません。

NG

http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=956&to=956
のコードはdestructorをtry..except Application.HandleException(Self); end;
で囲ってやれば、安全なコードになるね。（あのままだとリークするはず）
おかしくなった場合、安全に呼べる範囲でサブクラス化チェーン（？）
を再構築してから例外を出してるみたい。

NG

.......................................

あなた達には分からないでしょうが、Rubyは素晴らしい言語です。
オブジェクト指向スクリプト言語として他のスクリプト言語を圧倒する性能と美しい言語仕様を持っています。
例えば、SchemeやSmallTalkなどは比較的美しい言語だと言われていますが、後発である優位さでRubyは
さらなる美しさと実用性を備えています。
もちろんPerlやPythonなど問題外です。
日本語との親和性ではRubyしか選択肢がないでしょう。

LinuxのディストリビューションもRubyの採用例が増えてきています。
１年後には全てのディストリビューションがRubyを標準採用するでしょう。
Rubyは未来のスクリプト言語なのです。

長くなりましたが、コピペではありません。
賛同していただける方はRubyの事を分かっていただけない人に出会ったら、
この発言をコピペしていただければ幸いです。

Del中死ね

NG

このスレのどこにRuby氏ね発言があるのかわからないのだが。
>長くなりましたが、コピペではありません。
でも
> この発言をコピペしていただければ幸いです。
だから全く意味ないよね♪

以上、コピペにマジレスでした。

NG

　
　　Rubyはクソです。ゴミ箱逝きです。

いじょ
この発言をコピペしていただければ幸いです。

NG

チェーンメールならぬ、チェーン書き込みですか・・・

NG

Ruby+DelphiなApolloという代物もあるというのに…。
というわけで、どっちも逝くな。困る。

Delギコスレは好きなんで、仕事の合間に読んでいるよ。
がんばれ。

NG

>Delギコ
つうか死語戸無いとかいうならそれを死語戸にしれ
ちゃんとした物書けば、2chで評価されて印税生活でウハウハだぞｗ

…無論、皮算用だが(ﾜﾗ

だがしかし、もし本が出たら俺は絶対買う。以上。

NG

http://www.crackbest.net/chcrack/crack/delphi6.exe
　

NG

>>122
お願いですから、死んでください。m(_　_)m

NG

>>108
どうもありがとう。参考にして、こんな手続きを作ってみたけど、
バッチファイル実行時に出来てしまうショートカットが削除できないのです…

Linkname := ChangeFileExt( Exename, '.lnk' );

とやって削除できず、もしかしたら見たまんまのファイル名かと思い

Linkname := ChangeFileExt( Exename, '' );

とやってもダメでした。ショートカットファイルって一体何者ですか。

procedure KillMySelf;
var
Exename,Batname,Linkname:string;
begin
{ 実行ファイル名 }
Exename := ExtractShortPathName( ParamStr(0) );

{ バッチファイル名 }
Batname := ChangeFileExt( Exename, '.BAT' );

{ バッチファイルのショートカット }
Linkname := ChangeFileExt( Exename, '' );

{ バッチファイルを作成 }
with TStringList.Create do
begin
Add( ':TOP' );
Add( '@DEL '+Exename );
Add( 'IF EXIST '+ Exename +' GOTO TOP' );
Add( '@DEL ' + LinkName );
Add( '@DEL ' + BatName );

SaveToFile( Batname);
Free;
end;

{ バッチファイルを起動 }
WinExec( PChar( BatName ) , SW_HIDE );
end;

NG

インデント忘れた。すまんこ。

procedure KillMySelf;
var
　Exename,Batname,Linkname:string;
begin
　{ 実行ファイル名 }
　Exename := ExtractShortPathName( ParamStr(0) );

　{ バッチファイル名 }
　Batname := ChangeFileExt( Exename, '.BAT' );

　{ バッチファイルのショートカット }
　Linkname := ChangeFileExt( Exename, '' );

　{ バッチファイルを作成 }
　with TStringList.Create do
　begin
　　Add( ':TOP' );
　　Add( '@DEL '+Exename );
　　Add( 'IF EXIST '+ Exename +' GOTO TOP' );
　　Add( '@DEL ' + LinkName );
　　Add( '@DEL ' + BatName );

　　SaveToFile( Batname );
　　Free;
　end;

　{ バッチファイルを起動 }
　WinExec( PChar( BatName ) , SW_HIDE );
end;

NG

最近サブクラス関連の話題と罵倒で
このスレについて逝けない気味です。

以前のＤＥＬギコに戻ってください。

NG

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 　あなたそれより履歴書書きなさいって
＼
　￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　ｶﾀｶﾀ　　／￣￣￣￣￣￣￣￣￣￣￣￣
　（；・∀・）　 ∧ ∧ ＜　　　『同情するなら職をくれ』っと
　（　　⊃ ）　　(,,ﾟДﾟ)　＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣（つ＿つ＿＿　　ﾈﾀﾌﾙｲｶﾅ
￣￣￣日∇￣＼| BIBLO |＼
　　　　　￣　　　=======　　＼

NG

以下のプログラムを実行してみてください。
Data には、自分自身EXEの末尾についているデータが
格納されるはずなんです。
普通にコンパイルしたもので実行すれば、当然
Data はサイズゼロになるはずなんですが、なぜか
実行ファイルと同サイズのデータが入ってしまいます。
なぜでしょう？

procedure ReadMySelf(Data:TStream);
var
　i:Integer;
　Buf:array [0..3] of Byte;
　Exe:TMemoryStream;
　DataSize, ExeSize:Cardinal;
begin
　Exe := TMemoryStream.Create;
　try
　　{ Exe 読み込み}
　　Exe.LoadFromFile( ParamStr(0) );

　　{ ファイルサイズ }
　　Exe.Position := $34C;
　　Exe.ReadBuffer(Buf, SizeOf(Buf) );

　　ExeSize := 0;
　　for i:=High( Buf ) downto 0 do
　　　ExeSize := ExeSize * 256 + Buf[i];

　　DataSize := Exe.Size - ExeSize;

　　{ ポインタを移動 }
　　Exe.Position := ExeSize;

　　{ データ部をコピー }
　　Data.Position:=0;
　　Data.CopyFrom( Exe, DataSize );
　finally
　　Exe.Free;
　end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　i:integer;
　buf:byte;
　data:TMemoryStream;
begin
　data := TMemoryStream.create;
　ReadMySelf(data);
　caption:=inttostr(data.size);
end;

NG

　>>125
　WinExecのあとに
　Application.MainForm.Close;

　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　＜　自分を終了しないと exe消せない
　 U　 ,つ　　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪ 　ｱｯﾃﾙｶﾅ

NG

自己レス。
CopyFrom の第二引数にゼロを指定すると
すべてコピーされるって事忘れてました。
テヘ。

NG

以下のプログラムをコンパイルして実行ファイルを作成し、
バイナリエディタで末尾に適当なデータを加えます。
EXEを実行してボタンを押すと、メモに１６進データが
表示されるはずなのですが、どんなデータを入れても
全て 20 になっています。なぜですか。

procedure ReadMySelf(Data:TStream);
var
　i:Integer;
　Buf:array [0..3] of Byte;
　Exe:TMemoryStream;
　DataSize, ExeSize:Cardinal;
begin
　Exe := TMemoryStream.Create;
　try
　　{ Exe 読み込み}
　　Exe.LoadFromFile( ParamStr(0) );
　　{ ファイルサイズ }
　　Exe.Position := $34C;
　　Exe.ReadBuffer(Buf, SizeOf(Buf) );
　　ExeSize := 0;
　　for i:=High( Buf ) downto 0 do
　　　ExeSize := ExeSize * 256 + Buf[i];
　　DataSize := Exe.Size - ExeSize;
　　{ ポインタを移動 }
　　Exe.Position := ExeSize;
　　{ データ部をコピー }
　　Data.Position:=0;
　　if DataSize > 0 then
　　　Data.CopyFrom( Exe, DataSize );
　finally
　　Exe.Free;
　end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　s:string;
　i:integer;
　buf:byte;
　data:TMemoryStream;
begin
　data := TMemoryStream.create;
　ReadMySelf( Data );
　caption:=inttostr( Data.Size );
　for i:=0 to Data.Size-1 do
　begin
　　Data.Read(Buf,1);
　　s:=s+IntToHex( Buf, 2 )+' ';
　　if i mod 16 = 15 then
　　s := s + #13;
　end;
　Memo1.Lines.Text:=s;
end;

NG

>>131
バグがあるからだろう？
Personal でもデバッガついているんだから，自分でデバッグしてみなよ。

値を取り出せているのかどうか
値の表示を間違えているのかどうか

この二つくらいは切り分けられるだろう？

NG

>>132
親切にどうもありがとう。
どうやら Data に書き込みを行った際にPositionがDataの最後を指すようになった事を忘れ、そのままの Position からデータを読み出そうとしたのが原因のようであります。

NG

>>129
でも、バッチファイルへのショートカットが
消えない問題は解決してないような…

NG

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　>>134　元からそんなファイルつくられないのだが･･･
　　し― し-Ｊ　　＼＿＿＿＿＿＿＿＿＿＿＿

環境依存？

NG

その画像ならココ
http://members.tripod.co.jp/bingo852/

NG

>>134
バッチﾌｧｲﾙは .pif 以上。

NG

(;´Д｀) 書いてる最中に書き込んでしまった鬱だ氏脳

バッチファイル、DOSプログラムなどのショートカットは

.pif

拡張子を変えて見れ。

NG

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　D6のダイアログページはすごい
　∪　 |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
～|　｜
　 U U 　UMLっぽい？

NG

batを直接動かすから駄目とか？
command.comとかcmd.exeを経由して起動してみれば？

NG

ありがとう。拡張子は
pif
なんですね。プロパティみても、拡張子を全て表示にしてあっても
何もでないので不思議におもってました。
今考えてみると WinFile を使えば拡張子簡単に分かったのかな。
とりあえず pif で試してみます。

NG

　 ∧ ∧　　／
　 (,,ﾟДﾟ)　＜　良い子はもう寝なさい。>>141
　 |⊃ ,⊃　　＼
～|　　|
　 ∪∪　ｱｼﾀﾉｱｻﾆｼﾄｷﾅｻｲ
　ﾊﾔﾈﾊﾔｵｷﾖ

NG

すっかり忘れ去られてしまったのですが、どなたか
以下のコードを検証していただけないでしょうか。

もっと頭の良いやり方があれば、知りたいのです。

前スレ 524, 551

>ShellTreeView で、指定したフォルダを
>開いている状態にするにはどうするんだろうか。
>たとえば、 C:\Windwos と指定すると。
>デスクトップ→マイコンピュータ→C→windows
>が展開されて、かつスクロールインする感じ。

↓の２のコード。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1000404430

NG

>>100
展開したいファイルをリソースとして実行ファイルと結合すれば
安全・確実に取り込めます．

展開したいファイルをアプリケーション定義形式のリソースとしたバイナリリソースファイルを作り，
ソースファイルに＄Ｒコンパイラ指令を含める（上で作ったファイル名を指定）と，
コンパイル時にこのバイナリリソースファイルが実行ファイルに結合される．
プログラムのほうはTResourceStreamで読み込み，
TFileStreamで書き出せばＯＫ．

NG

それだとコンパイル時にしかできない。
リソースコンパイラつくんなくちゃならんくなる。

NG

　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　こっちにも進出モナー
　　（　　　　）　＼＿＿＿＿＿
　　｜｜　|
　　（_＿）＿）

>144
EXEの後ろに何を載せても仕様上問題ないからリソースに乗せる
とかする必要nothing。
自分でアーカイブルーチン書いてまとめたデータを後ろに載せると
管理が楽です。
たまに変なEXEファイルもあるけど。

NG

モナ～

起動中のプログラムの、本体ファイルを突き止める方法は無いですか？

例えば、スタート→検索→ファイルやフォルダ
でファイルの検索プログラムを起動したとしますね。
で、このプログラムの EXE ファイル（もしかしたら別の拡張子）
は一体どこにあるのか？と。

こういうことを知りたいわけです。

NG

　　　　　（）
（　）
　（）　　　（　）　　　／￣￣￣￣￣￣￣￣￣￣
　　∧＝∧　　　／
　（　´∀｀∩　＜　　　みんな元気にしてるかモナー？
|￣Ｕ￣￣￣.|　　＼
|　　┼─┼ .|　　　＼＿＿＿＿＿＿＿＿＿＿＿
|　　　／＼　.|
|　／　ホ＼|
＼＿＿＿_／
　　└─┘

>147
あります。TLHelp32を使うんです。
ttp://homepage1.nifty.com/beny/tips/other10.html
ココを見てくれい。
FAQSがそこら中にあってホントに助かる。

NG

　　　　　　 ∧＿∧ 　　　／￣￣￣￣￣￣￣
　　／￣＼（　´∀｀）　　＜　Rubyはクソです。ゴミ箱逝きです。いじょ
.r ┤　　　ト､　　　|＼　　＼＿＿＿＿＿＿＿
|.　＼＿／　ヽ　　 | ／
|　　　＿_（￣　 |　　|
|　　　＿_）＿ノ￣￣￣￣＼
ヽ＿＿＿）ノ　　　　　　　＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　　 .||　　　　　　　 ||
　　　　　　　　　　　　　　　　　　　　　￣￣￣￣￣＼
　　この発言をコピペしていただければ幸いです。　＞　∧＿∧
　　　　　　　　　　　　　　　　　　　　　　　＿＿＿＿＿／　（´∀｀　）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（　　　　）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　| │ 　|
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（＿（＿_）

NG

　　　 ∧ ∧ｶﾞﾊﾞｯ／￣￣￣￣￣￣￣
＿＿（　ﾟДﾟ)＿＜　　オハヨー　いい天気
|　〃(　つ　つ　| ＼＿＿＿＿＿＿＿
|＼ ⌒⌒⌒⌒⌒⌒＼
|　＼　　　　　　　＼
＼　｜⌒⌒⌒⌒⌒⌒｜
　＼ |＿＿＿＿＿＿＿|

　 ∧ ∧　　・・・・。
　 (；ﾟДﾟ) 　モ・モナー詳しいな･･･
　 U 　U
～|　　|
　 U U TLHelp32 ﾊｼﾞﾒﾃｼｯﾀﾖ

NG

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　「Rubyはクソです。ゴミ箱逝きです。いじょ」
|
＼
　￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　・∀・）　 ∧ ∧ ＜　よーし...「Rubyはクソです。ゴミ箱逝きです。いじょ」・・・と。リターン。
　（　　⊃ ）　（　・∀・）＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣（つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　　　￣　　　=======　　＼

NG

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　「この発言をコピペしていただければ幸いです。」
|
＼
　￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　・∀・）　 ∧ ∧ ＜　「この発言をコピペしていただければ幸いです。」・・・と。リターン。
　（　　⊃ ）　（　・∀・）＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣（つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　　　￣　　　=======　　＼

NG

>Rubyはクソです。ゴミ箱逝きです。
>いじょ。

Rubyの価値も見出せず、ただただ「クソ」と罵る
あなたは社会のゴミです。回収されて焼却されなさい。
いじょ。

NG

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　はい、ありがとうございます！
|　２ちゃんねるサポートセンターです！
＼＿＿＿＿＿　＿＿＿＿＿＿＿
　　　　　　　　 ∨
　　　　　　 ∩＿∩ D
　　　　　　（　´∀｀）○　　　　___
　　　　　　（　　　　）D……／◎＼
=============================
　　　　　　　　 C∧ ∧
　　 ___　　　　○(ﾟДﾟ#) ｯﾀｸ
　／◎＼……C｜　＼　ﾈﾀﾆﾓﾅﾗﾝ
　　　　　　　　　　∧
／￣￣￣￣￣￣　￣￣￣￣￣￣￣
|　Rubyの事はruby撲滅スレに移行させてくれ
＼＿＿＿＿＿＿＿＿＿＿＿＿＿

NG

　　　
――――――――――――――――――――――
番組の途中ですが、臨時ニュースです。
「Rubyはクソです。ゴミ箱逝きです。いじょ」
この発言をコピペしていただければ幸いです。
＿＿＿＿＿＿＿＿＿＿_ 　＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　∥　＼|________　　　　
　　　　　　　　　　　　　∥　| ON AIR.|
　　　　　　　　　　　　　∥　￣￣￣￣
　　　　　　　　.／￣￣θ Λ＿Λ
　　　　　　...／　　　／／（´∀｀　)／|
　　　　　.／　　　　￣／⊂　　　 ||_／
　　　　　|￣￣￣￣￣|　（　 ━┳┛
　　　　　|＿＿＿＿＿| ／ヽ｣┘┻

NG

　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　そんなこと言うなモナー
　　（　　　　）　＼＿＿＿＿＿
　　｜｜　|
　　（_＿）＿）

>Ruby嫌いな人
ココはデルファイ関連だし、何より言語をバカにする暇があったら
自分の技術を磨こう。そうじゃなきゃ、プログラマやる資格は無いよ。

NG

>156 嵐にマジレスは虚しいﾓﾅｰ

NG

　　＿／￣￣￣￣＼　　　モキュ
　煤Q　　　 ∪　´∀｀）　モキュ
　　　　￣￣￣￣￣￣

>157
嵐の心に訴えているんです。

さあ、デルファイの話題に戻ろうぜ

NG

モナちゃんｶﾜｲｲ

NG

　　 ∧＿∧　　／￣￣￣￣￣
　　（　　＠　）＜　先行者は有名なのに韓国製２足ロボLUCYはマイナーだ
　　（　　　　）　＼＿＿＿＿＿
　　｜｜　|
　　（_＿）＿）

NG

UIについて質問。
とあるスケジューラを作っているのだけど、そのデータを
フォーマットを指定してファイルに保存できるようにしてあるのね。
HTML, TXT, CSV の三つ。

で、それぞれの形式ごとに、どのようなフォーマットで
書き出すか指定できるようにしてあるわけ。テンプレートファイルね。例えば、HTMLを指定すると

<head><body>
#date#do
</body></head>

見たいな感じで、#date #do の位置にスケジュールデータが出力されるよ、と。

TXT ならば

#date
#do

てな感じかな。で、これをファイル保存時に編集できるようにしてあるのね。
つまり、「形式を指定して保存」ウィンドウを開くと、
保存先ファイル名指定EDITと、テンプレートを編集するための
MEMO　が表示される感じね。

ファイル名指定EDITに、なんたら.txt が入力されたら、
テンプレートMEMO　には　TXT用のデフォルトフォーマットを
ロードして表示する。

ファイル名指定EDITに、なんたら.html が入力されたら、
テンプレートMEMO　には　HTML用のデフォルトフォーマットを
ロードして表示する。
CSVが入力されたら、CSV用のをロードする。

ここで問題ね。
最初に　なんたら.txt と入力し、テンプレートMEMOには
TXT用デフォルトテンプレートがロードされる。
↓
テンプレートを編集する
↓
そのまま、なんたら.html に変更する
↓
テンプレートはどうなる？HTMLに問答無用で変更するべき？
「それとも変更されていますが新しいテンプレートとして保存しますか？」と尋ねるべき？

マヨッテルノ。

NG

　　∧＿∧
　（ *｀｡´）" ﾍｯｷｼ！
　（~~~~|~|）゛
　｜｜~~|
　（＿_）＿）

とても寒いモナー

>161
データをパーにされても困るから、後者の方が親切で
良いと思うよ。問答無用にされても困るし・・・。

ソフト作るとき、結構そういうところで俺も迷うんだよね。
なるべく分かりやすく細かくしているつもりなんだけど・・・。

NG

最近このｽﾚ熱くなってきてるな

NG

Delモナさんと一緒の意見。
>>161　後者がよいと
＿＿＿　＿＿＿＿／
　　　　 ∨　　　　　　　　　　　　　　／￣￣￣￣￣＼
　　　　　　　　　　　　　　　∧∧　＜　おもわれ～
　　　　　　　　　　　　（＿(,,ﾟДﾟ)　　＼＿＿＿＿＿／
　　　　　　　　　　　　⊆＿＿つつ　ｲｲｿﾌﾄﾅﾝﾀﾞｹﾄﾞ
　　　　　　　　　　　彡　　　　　　　ｺｺﾉUI ﾀﾞｹﾍﾝｯﾃﾖｸｱﾙﾖﾈ
　（　　　 ∧∧ 　　　　　　　　　　　　
　　η⌒(,,ﾟДﾟ) 　　　　　　　　　　　そういう意味でB2のﾃﾝﾌﾟﾚｰﾄ編集
≡　　　(/(/ 　　　　　　　　　　　　　慣れるのに時間かかったよ。

NG

　　　 ,　　∧∧ 　ｷｬｯﾄｸｳﾁｭｳ
　　　（＿(,,ﾟДﾟ)　　　ミ　_＿＿
　　⊂＿＿_,.つつ　　　　　て.　　）　ｸﾙﾘ
彡　　　　　　　　　　　　　 ⊂　 .ﾉ　　　　　　　　ﾆｬﾝﾊﾟﾗﾘ
　　　　　　　　　　　　　　　("　　)　　　　　　 ∧∧　　　／>>163
.　　　　　　　　　　　　　　　∨∨　彡　　　　　 (,,ﾟДﾟ)　　＜　　ある意味寒い
　　　　　　　　　　　　　　　　　　　　　　　　　　 /　 ,つ　　　＼反Ruby厨のせいで
　　　　　　　　　　　　　　　　　　　　　　　　～､　ﾉつ　　ｽﾀｯ !
　　　　　　　　　　　　　　　　　　　　　　　　　　 .(/

NG

　　　　　　　＼　ﾄﾃﾃﾃﾃ　／
　　　　　　　　　　　　　　　　　∧＿∧ 　／
　　　　　　　　　　　　　　　　（　´∀｀）＜ Delギコさんと意見が合ったモナー
　　　≡≡≡≡≡≡≡　　⊂　　　　）　　　＼
　　　＝＝＝＝＝＝　　　　人　Ｙ
　　　　　　　　　　　　　　　　し（＿）

>163
熱くなるよりさわやか路線希望。これから秋だし。
文化祭シーズンで学生は書き込み少ないかな

NG

>>121
Delphiで書籍を出すってことはほとんどボランティアに近いって知ってた？

いや、Delギコさんが出せば大ヒット間違いなしかもしれないけど
一般に印税なんてすずめの涙でしょ？

NG

＞Delphiで書籍を出すってことはほとんどボランティアに近いって知ってた？
　　＿＿
　　J＿†_|　　／￣
＠＿(,,ﾟДﾟ)　＜　やっぱし！、、Del本ﾁｮｼｬのﾐﾅｻﾝに儲けてもらう為にも
⊂,,＿_つつ.　　＼Delphiが広まるとよいですニャー
　　ﾌｷｮｳﾌｷｮｳ

NG

C++やJava教のサイトへ自爆テロ敢行するとか（ｗ

NG

　　　　　　　　　　　
――――――――――――――――――――――
番組の途中ですが、臨時ニュースです。
「Rubyはクソです。ゴミ箱逝きです。いじょ」
この発言をコピペしていただければ幸いです。
＿＿＿＿＿＿＿＿＿＿_ 　＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　∥　＼|________　　　
　　　　　　　　　　　　　∥　| ON AIR.|
　　　　　　　　　　　　　∥　￣￣￣￣
　　　　　　　　.／￣￣θ Λ＿Λ
　　　　　　...／　　　／／（´∀｀　)／|
　　　　　.／　　　　￣／⊂　　　 ||_／
　　　　　|￣￣￣￣￣|　（　 ━┳┛
　　　　　|＿＿＿＿＿| ／ヽ｣┘┻

NG

　　　∧ ∧ 　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　　　＜　Nimdaに組み込んでD6無料版を
.=| |==U=U==.| |= ＼無理やりダウソさせるとか？
　| | ｜　 |　　| |
　| | ﾉU U.　　| | 　ｲﾔｼﾞｮｳﾀﾞﾝﾃﾞｺﾞｻﾞｲﾏｽ
　| |　　　　　 .| |

NG

>Delphiで書籍を出すってことはほとんどボランティアに近いって知ってた？
ちょっと現実理解を間違えていると思うよ。
Delphi に限らず、技術専門書を出すことは難しい。よーするに売れない。

>一般に印税なんてすずめの涙でしょ？
印税は多いの。雑誌の連載が低い。だから「連載の原稿がたまったら本を出しましょ」
っていわれるの。雑誌の記事は買取だけど印税は売れたら売れた分出てくるし、
物/内容/出版社によるけど結構な率で来る。
翻訳はだめ。だから出せるもんなら専門書を一発書けばよい。

ところが出版社のほうが専門書は売れないからあまり出したくないんだな。
薄利多売の「できる」シリーズのほうが好まれる。

今、出版社が望むのは、確実に一定部数が売れる本です。とにかく在庫を持ちたくない。
毛色はだいぶ違うけど、スタートレックの百科事典本なんか、少々高くてもファンが確実に
買う。しかも事前に部数が読める。こういった書籍のねたがあれば、出版社に売り込んでごらん。
ちょっとした小金を稼ぐことができるぞ。

NG

(^Д^)Rubyはクソです。ゴミ箱逝きです。いじょ

NG

(^Д^)この発言をコピペしていただければ幸いです。ｷﾞｬﾊ!

NG

小口の出版なら実は中小企業でもやってる、つーか
専門書を出してるとこは零細が多いそうな。
そういう零細は京都に多いとか。
どうやって部数を確保するかというと、書いてる人の
弟子、手下、学生に買わせるそうな。
で、部数が確保が困難な場合は共著にして学生の数を
揃えるそうな。これ出版社のほうで、出版いらい受け
付けますとやってるのよ。

NG

できる！Delphi

～目次～
1. Delphi 前夜　～両極だった Windows プログラミング～
2. Pascal の文法　～まずはDOS窓プログラムを～3. ウィンドウを作ってみよう～コンポーネントによるプログラム～
4. 文章を編集できるようにしよう～TMemo～
5. ボタンをつけてみよう～TButton～6. ダイアログを表示しよう　～TSaveDialog,TOpenDialog～
7. ファイルの保存、読み込みをしてみよう～SaveToFile,LoadFromFile～
8. メニューを作ってみよう～TMainMenu～9. 印刷機能をつけてみよう～Printer～10. できあがったメモ帳を配ってみよう～Vectorへの登録～

NG

>>175
その手法は本郷近辺でも良くやられております。
本郷あたりだと、人/分野によってはとんでもないところまで買っていただけますからね。

もとい、PC 開発ツールの分野ではちょっと難しいでしょう。本郷でも京都でも。

NG

>>176
その方向性に一番近いのが Try PC なんだな。

NG

できる！Delphi

～目次～
1. Delphi 前夜　～両極だった Windows プログラミング～
2. Pascal の文法　～まずはDOS窓プログラムを～
3. ウィンドウを作ってみよう～コンポーネントによるプログラム～
4. 文章を編集できるようにしよう～TMemo～
5. ボタンをつけてみよう～TButton～
6. ダイアログを表示しよう　～TSaveDialog,TOpenDialog～
7. ファイルの保存、読み込みをしてみよう～SaveToFile,LoadFromFile～
8. メニューを作ってみよう～TMainMenu～
9. 印刷機能をつけてみよう～Printer～
10. できあがったメモ帳を配ってみよう～Vectorへの登録～

NG

>>162
>>164
モナギコさんどうもありがとう。
これからも利用者の側にたった UI を目指します。

NG

１と２はいらんだろ。

NG

またもやUIの質問です。
ここまでくると、細かすぎて
「好きにしろｺﾞﾙｧ」
ていわれること覚悟の上なんですが

・箇条書きには句読点をつけるのか。
・チェックボックスやラジオボタンのキャプションには句読点をつけるのか。

です。
チェックボックスが並んでいるとして（キャプションは適当）、

１．句読点を入れる。

□ 拡張子を隠す。(H)
□ 各項目に、外部ファイルを関連付けられるようにする。(A)
□ インターネットに接続したとき、常に最新の情報が表示されるようにする。(N)

２．読点のみ

□ 拡張子を隠す(H)
□ 各項目に、外部ファイルを関連付けられるようにする(A)
□ インターネットに接続したとき、常に最新の情報が表示されるようにする(N)

３．読点を空白で代用

□ 拡張子を隠す(H)
□ 各項目に　外部ファイルを関連付けられるようにする(A)
□ インターネットに接続したとき　常に最新の情報が表示されるようにする(N)

どれが読みやすくて、見た目にもよいのか…と。

NG

VBからDelphiに移ってきた人は、たいてい
interface 部の魔法のような記述を見て臆してしまう。
安心させてからじわじわと interface 部の TForm 記述に慣れさせていくことが必要だ。

NG

>>182
私は２です。
Windowsに標準で付いてくるいろいろなソフトのダイアログを
ながめていれば、そうすることが統一感があることが分かると思います。

単なる解説を付ける場合は、文章ですので、句読点をつけます。
IEやエクスプローラのダイアログを眺めていればなんとなく
分かると思います。

NG

http://www2.makani.to/akutoku/upload/dat/1001249660.jpg

NG

　　　　　　　　　　　　　｜￣￣￣￣￣￣｜
　　　　　　　　　　　　　｜　　投票箱　　｜　　　　
　　　　　　　　　　　　　｜＿＿＿＿＿＿｜
　　　　　　　　　　　　　　∥　　　　　　　∥
　　　　　　　　　　　　　　∥　　　　　　　∥
　　　　　　　　　　　　　／￣￣￣￣￣／|
　 ∧＿∧ 　　　　　／　　●　　　　／｜
　（　´∀｀）　　　　／　　　　　　　／　　｜
　（　　　　⊃□　｜￣￣￣￣￣｜　　　｜　　　
　｜｜　|　　　｜　∧＿∧　　｜　　／
　（_＿）＿）　　　｜（　´∀｀）　｜　／
　　　　　　　　　｜＿＿＿＿＿｜／
>>182
読点nothingに投票。
文章って言うモノじゃないと思うので、読点はつけないほうがいいかも。
俺は、知らずに読点打っているときが結構あるけど・・・・

NG

Delphiのツールにエクスプローラを登録し、
編集中のプロジェクトがあるフォルダを開くようにしたいのですが、

実行ファイルに c:\windows\explorer.exe
引数に $PATH($EXENAME)

とすると、開くには開くのですが、マイコンピュータ風になって
しまいます。

スタートメニューから起動するエクスプローラは、
ちゃんとフォルダツリーも表示されているのに。

スタートメニューの「エクスプローラ」のプロパティを観てみると、引数にはなんと

/e,/n,C:\

と指定されているではありませんか。そこで、この書式に習い

/e,/n,$PATH($EXENAME)

としてみました。するとフォルダツリーのついている普通のエクスプローラが表示されたのですが、こんどは C:\ が開いた状態になっています。

どうすればよいですか？

NG

>>187
それは/e,/n,"C:\DEL"のように""で囲まれてしまってうまくいかなかったはず。
# 確かエラーになったような???

なので俺はバッチでやってる
open_folder.bat
@echo off
explorer /n,/e,%1
というバッチ作って
プログラム:open_folder.bat
引数:$PATH($EDNAME)

NG

>>187
Del6ならちゃんとプロジェクトフォルダが開くが？

NG

>>188
>>189
ありがとう。自己解決しました。

"/n","/e",$PATH($EXENAME)

とやったらうまくいきました。
使っているのは Delphi5 Pro です。

NG

>>182
１．“(H)”と句点（。）、文末に句点のようなものが２つも並んでいると鬱陶しい。
２．３つの中では一番見やすい。
３．読点の代わりに空白を入れると、なんとなくバカっぽく見える。

個人的な意見です。

NG

　　Ruby　　　　　は　　　　　　クソです！　　　ゴミ　　　　　　箱　　　　　逝きです！
　 ∧＿∧　　　∧＿∧　　　　∧＿∧　　　∧＿∧　　　　　∧＿∧　　　　∧＿∧
　（　・∀・）　　（　・∀・）　　　（　・∀・）　　（　　・∀）　　　（∀・　　）　　　（・∀・　）
⊂　⊂　）　　（　Ｕ　　つ　　⊂__へ　つ　（　○　　つ　　 ⊂　○　）　　 ⊂　∩　つ
　<　<　<　　　　）　）　）　　　　　（＿）|　　　＼＼　＼　　／　／／　　　／／＼　＼
　（＿（＿）　　（_＿）＿）　　　彡（_＿）　　　（＿（＿_）　（＿（＿）　　　（＿_）　　（＿_）

この発言をコピペしていただければ幸いです。

NG

えと、OpenDialog 系ダイアログボックスで、
ファイルとフォルダどちらも選べるように
する方法はありませんか？

NG

え！！！！？

NG

>193
何に使う？

NG

ブックマークのような機能で、
フォルダもファイルも両方登録できるようにしたいのです。

NG

>>193
OpenDialogでは無理なので
あきらめてShellTreeView使ってみたら
ObjectTypesいじるとファイルも表示されるよ

NG

>>190
　∧ ∧　　／
　(,,ﾟДﾟ)　＜　D6ではだめみたい。
　 |つつ　　＼
～|　　|
　 ∪∪

普通のフォルダを開くはできるんだけど。explorerはできないなあ

[プログラム]-[explorer.exe]
[実行時引数]-[$PATH($EXENAME)]

NG

ファイルを選択したら、自動的にフォルダも登録するの？
違うか・・・。

うまく行くかどうかしらんが、
１）フォルダをクリックした時に、下のファイル名エディットボックスを更新する。
２）ファイル名エディットボックスにフォルダ名が入った状態で、ＯＫボタンを
押すと、ダイアログを閉じる。

・・・トラブルの元だな。
ユーザーには分かり難いだろうし。

NG

今だ！！キリバンゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

（ ﾟДﾟ)ノ Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part3

（ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part3