Borland Delphi初心者用お勉強スレ

Windows最強の開発環境とも言われるDelphiを学びたい初心者のためのスレッドです。
超初心者的な質問でも気兼ねなくしてみよう。
でも、最低でもgoogleで検索したり、FAQページ等で探してからね。

親切な中・上級者が答えてくれる…かもしれません。
過去ログ、参考リンクは>>2-10

このスレの前身
Borland Delphi 6 Personal をダウンロードした
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998878393

兄弟スレ

Delphi相談室その２（中級者向け）
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=995950803

Delphi/Kylix Tech 2nd（上級者向け）
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=993005709

（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2（中・上級者向け）
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946

これでDelphiに関しては初・中・上級と揃ったので、
これ以上はとり合えずスレを立てないようにしましょう。
乱立と言われてしまうので。

Borland Delphi
http://www.borland.co.jp/delphi/

Borland - Q&A:Delphi
http://www.borland.co.jp/qanda/delphi/

Borland Delphi Tips
http://www.borland.co.jp/tips/delphi/

　前スレのDelギコ氏作成のリンク集をお借りしたぞー

￣￣￣∨￣￣￣￣￣
　　　∧ ∧　　　ﾏﾀｰﾘ
　　　(,,ﾟДﾟ)∫
　　　/　 つ旦O
　〜（__ｎ ｎ［￣￣￣.］
　　　　　　　 ￣￣￣
初心者向け
Do It YourSelf---Life with Delphi　http://home.onestop.net/mineko/index2.html
ゼロからDELPHI講座　http://www.text2music.com/mine/delphi/index.html

VBから
Switching Delphi / VB　http://member.nifty.ne.jp/deepforest/vbdel.htm
Visual Basic から Delphi/Kylix への移行ガイド　http://www.borland.co.jp/delphi/papers/vbtodel/

Tipsサイト
Delphi Acid Floor　　http://homepage2.nifty.com/boheme/top.html
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
Sky Engine by Delphi　　http://www.geocities.co.jp/SiliconValley-SanJose/7625/index.html
AboutDelphi　　http://www2.big.or.jp/~osamu/Delphi/
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
MADIAのVB研究室｜Delphi Page　　http://homepage1.nifty.com/MADIA/Delphi/Delhpi.htm
DEKO Delphiによるテクニック＆アルゴリズム　　http://homepage1.nifty.com\ht_deko\techalgo.html

初心者から上級者まで御用達
　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/

環境のカスタマイズなら
　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

こんなものでしょうか？スレ建て初めてなんで、不備がないかちょっと心配…。
さて、僕も初心者なので、みんなで一緒にお勉強しましょー。

おつかれでーす>>1

早速質問…。
Delギコスレとかで話題になっている、サブクラス化ってどういうことをやってるのか皆目見当もつかない…。
「既存のコントロールのWindowプロシージャを自前のものでのっとる｣ってイメージでいいのかなあ？

Kylixへの移植もできるのかな？>サブクラス化

他人様の作ったソースを読んで勉強しよう。

ソフトウェア開発者のためのIT情報総合サイト ― Layer-8
http://www.layer-8.com/

Delギコの悪影響を受けないで下さい>>8,9

サブクラスとコールバック関数やメッセージと関係ありません。
また、Delphiの良いところは、コールバック関数やメッセージを綺麗に隠しているところです。

新しいクラスを作った場合、メソッドやプロパティの実装に以下の方法があります。

ａ）クラスがクラスを持っていて、持っているクラスに処理をやらせる・・・サブクラス
ｂ）クラスを派生する（スーパークラスの処理がはじめからくっついてる）

※そんなの知ってるよっていう突っ込みなしね

「ａ）」のサブクラスに処理を委託する場合、
クラスのメソッドやプロパティをコールするだけで良いのです。
Windowsのメッセージを使ったりするのは、
オブジェクト指向のメリットである隠蔽を台無しにするだけです。

ここで言ってるサブクラスというのは　どっちかというとフックですね

本当なら継承して作ればいいんだけど（そういうふうにVCLは出来てるけど）
A->B->C->Dと継承した後に Aのところで修正しなければ出来ないような
機能を追加したくなる場合がある。　すると B,C,Dも２重に作り直さなくちゃいけ
ない。

そんな時に、Aの持ってるWindowsのメッセージの流れに割り込んで（つまりフックすれば）
実現出来てしまう場合がある

つまり、本当ならイベントで定義出来るようになって欲しいような機能を無理やり後付け
するようなイメージかな？

ただ、イベントだと設計時には反応出来ないけど、サブクラスでフックした場合は設計時に
も色々と出来て便利という事

　　　　　　∧∧ 　>>11　ﾅﾝｶ ｶﾝｼﾞﾜﾙｰ
　　　　　　( ﾟДﾟ)
　　　　　　∪　|
　　　　　〜　　 つ
　　　　　　 ∪"'

誰も、全部が全部サブクラス化しろなんていってないよーだ。
使う必要がある場合に使えばいいだけっしょ。

>>14サンクス。その通りです。
VCLのサブクラスしかしらないので、サブクラス＝フック
と思ってました。ちがうのかな。

>VCLのサブクラスしかしらないので、サブクラス＝フック
>と思ってました。ちがうのかな。

サンクスじゃねーだろ！サブクラス＝フックは大間違い。

オブジェクト指向用語では　サブクラスは継承して出来たクラスの方の事だけど

Windows用語ではメッセージフックテクニックの事を指すという理解でいいんじゃないの？

というか初心者スレにはその程度の理解でいいと思うが・・・

>>16
　　　　　　　　　　　　∧ ∧ ﾑｶﾑｶ
　　　　　　〜′￣￣(#ﾟДﾟ)つ
　　　　　　　 UU￣￣U
＿＿＿＿＿＿∧＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>>14にサンクスと逝ってるのは

> A->B->C->Dと継承した後に Aのところで修正しなければ出来ないような
> 機能を追加したくなる場合がある。　すると B,C,Dも２重に作り直さなくちゃいけ
> ない。
> そんな時に、Aの持ってるWindowsのメッセージの流れに割り込んで（つまりフックすれば）
> 実現出来てしまう場合がある

こういう事を説明してくれてるからだ

で、人の間違いを指摘して言いっぱなしかよ。

つまらん煽りするくらいなら、MLに帰れ(ﾜﾗ

煽りじゃないんだ>>18

派生出来ないCOMや他アプリなんかへのメッセージをフックするなら、
メッセージフックプログラミングと言えよう。
VCLのクラスをそれぞれ派生させながら、
それらにフックを持たせるのは間違ったプログラミングなんだ。
読んでる人みんなに害があるぞ。

メッセージが綺麗に隠蔽されている（処理を変える場合は、
メッセージハンドラオーバーライド）ので、
それ以外のプログラミングに専念出来るのがDelphiなのに、
このスレを見た人が間違って、
フックをコードに取り込んだらどうするんだよ。
また、これらのコード見た初心者はDelphi使わなくなるよ。

　∩ ∩
　| ∪ | ﾈｺ ﾊ ﾈｺ ﾅﾘﾆ ｽﾅｵ
　|　 〜
　| ∧ ∧　　／￣￣￣￣￣￣￣￣
　|( ,,ﾟДﾟ) ＜　>>19-20　おっしゃること、わからずともないです。はい。
　Ｕ　Ｕ　　　＼＿＿＿＿＿＿＿＿

　VCL ﾃﾞﾊ ｱﾝﾅ ｺﾄ ｼﾃﾅｲ ﾉｶﾅ

　初心者スレっぽくないので、あっちでやらニャーかい？

確かにVCLでの正しいサブクラスの使い方は　WndProc を override する事だと思う

サブクラスに関係なくメッセージフックは確かに便利だ。
どちらかというとC++の多重継承を動的にやる感覚だな。

でも初心者は暫く遠ざかった方が賢明なのは確かだ

VBからDelphi6に移行しようと勉強中なのですが、
複数列のリストボックスに値をセットするには、どうすればよいのでしょうか？

// ３列のリストボックスに値を追加
ListBox1.AddItem('あああああ,いいいいい,ううううう',ListBox1);

上の記述だと、１列目に'あああああ,いいいいい,ううううう'とセットされて
２列目、３列目に何もセットされません。
| も試しましたが同じでした。

何か区切り記号が必要なのでしょうか？

>>23
AddItemを使うのなら単にバラだ書けばいいだけ
ListBox1.AddItem('あああああ',nil);
ListBox1.AddItem('いいいいい',nil);
ListBox1.AddItem('ううううう',nil);

自分も初心者ですが。

>>23 AddItemを何度もやればいいとかそういうことではなく？

かぶった…。スミマセン。

>>23
どうしても一度にやりたいのなら
ListBox1.Items.CommaText := 'あああああ,いいいいい,ううううう';

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

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/

これもありかも。最初は使わない方がいいけど。
ListBox1.Items.CommaText := 'あああああ,いいいいい,ううううう'

# どうでもいいけどAddItemの第二引数にデフォルト値nilを設定して欲しい。

>>24-27>>28
ありがとうございました、早速、試してみました。

|ああああ|いいいい|うううう|

と言う具合に表示させたかったのですが、

ああああ
いいいい
うううう

と表示されます。
リストボックスのColumnsプロパティは2に設定していますが、
他に何か設定を変更しないとダメなのでしょうか？

>どうでもいいけどAddItemの第二引数にデフォルト値nilを設定して欲しい。

ご指摘の通り修正しました。
でも、何が違うのかわからないので、後から調べてみます。
m（＿＿）mペコリ

＞３０　大きさを変えてみましょう

>>31
リストボックスを縦横に大きく広げてみましたけど、一緒でした。
大きさって、リストボックスの大きさですよね。

>>32
逆。縦に縮めてみ。

おぉ、嬉しいスレができてる！
ほとんどのことはGoogleればわかるけど、本当に細かいテクは
探すのが難しいからねぇ。

>>33
ありがとうごいます、できました。

ちゃんと表示されて気づいたのですが、
リストを複数列に分けて表示するものなんですね。

てっきり、Accessのリストボックスみたいに、
1データを複数項目で表示させるものかと思ってました。

＞３５　もしかして　オブジェクトインスペクタの Itemesをクリックした事がないとか？

>>35
複数列表示するものって、もしかしてListViewのことかな?

>>36
クリックしたことがありませんでした・・・
ここに書き込めたんですね。
VBでも同じ事はできたので、最初に探すべきでした。

>>37
VBには、リストボックスの複数行表示という機能がないので、
てっきり、ListViewとリストボックスの複数行表示は、
同じ機能なのかな・・と勘違いしてました。

ListViewは、ヘルプと書籍を頼りに、
なんとか思った通りに表示させることができました。

みなさん、親切に答えていただいて、ありがとうございます。
ｍ（＿＿）ｍ

何度も質問ばかりですいません。

プログラムでDBを使用する場合、
それがスタンドアロン限定であれば、DBは何を選択されてますか？

VBで開発していた場合は、基本的にはAccessのMDBを選択してましたが、
Delphiユーザーの皆さんはいかがなのでしょうか？

スタンドアロン限定ならParadoxでしょう

必要なら他のも使えるけど

>>41
Delphiに付属されているからですよね？
Paradoxを基本的に使用するってことで、勉強していきます。

私が使ってる、Delphi Personalには付いてないみたいですけど・・・

Paradoxってまだあるの？
コーレルかどっかに売ったんじゃなかったっけ？

そもそもPersonalではデータベースできんのじゃないの？
いや、自前なら可能か？

>>44
いろいろ探しましたが、できないみたいです。

Delphiユーザーの方は、どのエディションを使われているのですか？

Delphi 6 Professional と Delphi 6 Enterprise の違いって、
大きく影響する物なのでしょうか？

Delphi6 Personal/Professional/Enterprise機能比較
http://www.borland.co.jp/delphi/del6/features.html

>>45
できるっつーの。

ここ、ぜんぜん初心者スレじゃない気が…
ListBoxの話くらいかなぁ。

初心者ってのは
「1.Dephiのことを右も左も分からない」
　　　　　　　　＋
「2.プログラミングさえよく分かってない」
人のことじゃないかな？

2.が分かる人は自力で何とかできる知恵があると思うのだが。
めんどくさがって初心者スレで聞くと一気にレベルがあがってしまうよ。

あと、データベースの話は中・上級スレの方がいいよ。

>>48
Ｄｅｌ初心者の方がＤＢに話を振ったのでしゃーないだろ。

>>47
すいません、そうなんですね。

どうやってできるんですか？
調べたのですが、わからなくて

>50
できないっつーの
46のリンク先見てみな

>>48>>49
ごめんなさい
DataBaseはSQL-Serverやmdbなど色々とVBの頃に使っていたので、
Delphiではどうなのかなと思ったのでした・・・

まだ、Delphiに触れて間もないので、質問を中級とかに
あげにくかったのでした。　m（＿＿）ｍすいません

>>50
oo4oとかadoは使えると思われ
DOA(だっけ？)とかはTDataSet継承してるから
Personalだと使えないのか？

この際なんで聞いちゃいますが
Delphi Proに標準でついてくるデータベースはいくつかありますが
それぞれ特徴、性能、利点などを比較した表のようなものは無いでしょうか？

>>54
いくつかって・・・
ＩＢの他にも何か付いてるの？

>55
TTableで扱えるデータベースの形式(dBase, Paradox, ...)のことです。

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

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

>>57,58
かわいそうに...
も少し放置 Play !

でも、こんなのでこのスレが下がったらいやだな。
とりあえず上の怪しいのは使わないように。

PSネットワークが出してる「わたしにもできるDelphi初心者奮闘記」
ってのを買ってみました。
まだちゃんと読んでないけど、この本の評判はどうでしょう？

ListBoxのマルチカラムはTABで区切る。

>>57
>>58
これってやばいんじゃない？
削除依頼出したほうがいいぞ

まずageるなyo>>62

新スレになったからか盛り上がりませんな。
みんな初心者卒業？
それとも挫折？

だからタイトルにﾊﾟｿﾅﾙを入れろっての。

あまりに初心者すぎて聞くのも恥ずかしい状態なんだな。

>>66
それでも良いから質問しなよ。
匿名の利点を最大に。

正直何を作ればいいのかわからない

>>68
そうでなくて、作りたいものはないのか？

それでは勇気を出して書いてみます。
メモ帳を作ってるんですが、テキストファイルを関連付けて
テキストファイルのダブルクリックで立ち上げたり、ドラッグ＆
ドロップで立ち上げたりできるようにするやり方がどうしても
わからないんです。
ドラッグ＆ドロップのやり方とかいろんなTipsを見るんですけど
それを実際にどうプログラムに反映させていいのかが謎で…。

コンポーネントつくってDelphianWorldに載せたい。
でもコンポーネントって難しい。
なんかいい本ないですか？

>>70
過去ログを読みなさい。

糞スレ。

>>70
望む二つは全く別の事柄なので，答えも別になる。

テキストファイルのダブルクリックで立ち上げ
http://www.nifty.ne.jp/forum/fdelphi/faq/00097.htm

アプリケーション起動後，ParamStr にファイル名がわたってくる。
ParamCount を見て，引数があるかどうかを確認して ParamStr を
見ること。

>70
関連付けやDDで開いた場合ParamStr(1)にファイル名が入ってるよ。
既に開いているメモ帳にDDした場合はまた別の処理が必要になる。

>>70
こんなんあるぞ。
ファイル拡張子関連付けコンポ ver1.0(8KB)
http://homepage2.nifty.com/t-katochin/compos.html

>>71
コンポーネントってそんなに難しいかい？

>77
コンポーネント作成するにはOOP理解してないといけないから
単純なアプリ作成とは別次元の難しさがあると思うよ。

>71
開発者ガイド読め。じゃ駄目？

　　∧ ∧　　　 ／
　　( ﾟДﾟ)っ　＜　.txtへの「関連付け」と
　　|''Ｕ￣|　　　＼exeアイコンへのDrag&Dropと
　　|￣￣| 　　　　起動済みのFormへのDrag&Dropとは
　/　　　　ﾞヽ 　　各々別の処理が必要なのだ。
（ 　　ﾟДﾟ　　）
人＿_＿＿ノ

・関連付け　>>　レジストリの設定
・exeアイコンへのD&D　>>　ParamStr
・FormへのD&D　>>　WM_DROPFILESを使う。

こんなんでＤＯ？

質問の書き方が悪かったみたいです。
関連づけ自体はwinのフォルダオプションで手動でするのでも
かまわないんです。
テキストファイルをダブルクリックしても、その内容が
書き込まれないで白紙の状態のメモ帳が立ち上がるのを
なんとかしたいんです。なんか本当に基礎のところからわかってなくてすみません。

みなさんのレスによれば、どうやらParamStrってのの使い方を
まず勉強する必要があることがわかりました。
ありがとうございます、がんばってみます。

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜ 　>>80それならParamStrでしょ。
　し　　|つ　　＼＿＿＿＿＿＿＿＿＿＿＿
〜|　 ｜
　 ∪∪

　コンポ作成本は2冊くらいしかない

・Delphiコンポーネントプログラミング
・Delphi & C++Builder即戦力コンポーネントライブラリ

　上の方はｵｽｽﾒ

￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　開発者ｶﾞｲﾄは難しい
　　　(,, ﾟДﾟ)
　　　ﾉつ　l⌒|⌒l
　〜(._⊃⊃⌒⌒

>>80
これを見るのがよろし。

http://www.borland.co.jp/qanda/delphi/d0005010.html

>>84
うわっ、本家のサイトにそのものズバリ書いてあったんですね。
調べ方がまだまだ不十分でした。ありがとうございました。

xorって何よ？

>>86
歯痛的論理輪

Form間での参照・更新について質問です。

FormAのボタンをクリックした時に、FromBのエディットボックスに
'ABC'とセットしたいのですが、どのようにすればよいのでしょうか。
（参照はそれの応用と思ってます）

VBと違って、オブジェクトを参照する場合は、
必ずCreateを行うことまでは判ったのですが、
具体的な方法がわかりませんでした。

[プロジェクト|オプション]フォームの自動生成の対象にFormBを指定して
procedure TForm1.Button1Click(Sender: TObject);
begin
FormB.Edit1.Text := 'ABC'
end;
ってやればよい

>>87
なるほどそういうことか。
的確な回答をありがとうございます。

Delphiマガジンって本があるらしいけど、
初心者でも大丈夫かな？

>>88
サブフォームを作るとデフォルトでは「自動作成の対象」になっているから自分で
コンストラクタを呼ぶ必要はないよ。
「選択可能なフォーム」にした場合は次のように作ります。

// Application に破棄させる場合は
FormB := TFormB.Create(Application);

// 自分で破棄するときは
FormB := TFormB.Create(nil);

のような感じ。Application のところはメインフォームなどでもＯＫ。
当然 var FormB: TFormB; をどこかで定義しておく。

>>91
Delphiマガジン
http://dmj.psnet.ne.jp/index_j.html
ビギナーなら
・純正マニュアルとヘルプ
・ネット上の有用なページ群
を参照すればたいてい事足ります。
各種雑誌に載ってる記事は短くて中途半端なので特にビギナーにはほとんど
参考にはならないでしょう。

作ったアプリケーションの設定をiniファイルに保存する方法で詳しく書かれているHPを教えてください。
初心者です。

>>94
ここの時計の作り方とか？
ttp://www2s.biglobe.ne.jp/~hatena/delphi/index.html

>>94
初心者かどうかしらんが，保存したいアプリケーションの情報が何か
わかっているんだろうな？

オンラインヘルプで TiniFile を調べなさい。>>94
自分で試しもしないで質問するのはだめな人間です。
少年よ、己から切り開け！

　　　　　　　　 _＿＿＿__ 　　 ＿＿＿＿＿＿＿＿＿＿
　　　 　　　　/　 　 　/ . |　／
　　∧＿∧ /　 　 　/.　 |＜　おはようモナー
　 （　´∀｀;）　 　　/　　 |　 ＼＿＿＿＿＿＿＿＿＿＿
　　| 　　　つ＿＿/　 　 |
┏（＿　　ヽ ──┐　 │
┗┳┛　 ﾉ　 　　│　　|
　 ┴　　~└──┴─┘

>94
ヘルプ見るだけじゃかわいそうだからちょっとだけヒントを教える。

uses inifiles;


ini:=TINIFile.Create('c:\ore.ini');

読み込み
ini.Read?????();
書き込み
ini.Write?????();

ini.Free;

Read????の????の部分は置き換えてくれ。
ヘルプ見ながらガンバレ

http://register.borland.co.jp/register/
ユーザー登録の欄がないのですが
どうやったら、登録できるんですか？

>>97
そんなせこい事言うな。
ここは初心者スレ。おまけにアマが殆ど。
基本的にヘルプを使えるレベルではないと心得るべし。

　　　　　　___________〆
　　　　 ＿|＿＿＿|＿ ／￣￣￣￣￣￣￣￣￣￣
　　　ロ　 （´∀｀ノ） ＜　みんなD6Personalやってるかモナー？
　　　| |⊂（w:w:w　） │
　　（ O ）｜ ｜　｜　 ＼＿＿＿＿＿＿＿＿＿＿
　　（　　）（___（_＿_）

>ぐるぐる99
ttp://register.borland.co.jp/delphi_personal.htm
ここで登録してくれい

>>マターリ101
サンクソ、登録した世
今日からｵｲﾗはdelマスターだ

>>94
まずはUnit1.pasと同じディレクトリにMyLib.pasというファイルを作る
↓↓↓ここから
unit MyLib;

interface
uses
Windows, Classes, SysUtils, Inifiles;

var ini: TInifile;

implementation

initialization
// exeと同名のINIファイルを作成
// 例: 'c:\myapp\project1.exe' -> 'c:\myapp\project1.ini'
ini := TInifile.Create(ChangeFileExt(ParamStr(0), '.ini'));
finalization
ini.Free;
end.
↑↑↑ここまで

よく使うコードはどんどんMyLib.pas（名前は何でもいいけど）に放り込んでいけば
同じコードを何度も書かずにすむので楽になるよ。

で、これをフォームから呼び出す。
これはフォームの座標(Left, Top)とEdit1の内容を保存するサンプル。
↓↓↓ここから
unit Unit1;

interface
(中略)
implementation
uses
MyLib; // iniを使用可能にする
{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
// INIファイルから読み出し
Left := ini.ReadInteger('Form1', 'Left', Left);
Top := ini.ReadInteger('Form1', 'Top', Top);
Edit1.Text := ini.ReadString('Form1', 'Edit1', Edit1.Text);
end;

procedure TForm1.FormHide(Sender: TObject);
begin
// INIファイルへ保存
if WindowState = wsNormal then
begin
// 最大化・最小化時は保存しない
ini.WriteInteger('Form1', 'Left', Left);
ini.WriteInteger('Form1', 'Top', Top);
end;
ini.WriteString('Form1', 'Edit1', Edit1.Text);
end;

end.
↑↑↑ここまで

　∧＿∧〃つ　／￣￣￣￣￣
（　 ´∀｀）/　＜　良スレの予感だモナー
（ つ　　 /　　　＼＿＿＿＿＿
｜　　⌒|
｜　 （_＿）
（_＿）

94です。
答えてくださった皆さん、お返事ありがとうございます。
初心者スレとうたっておきながら、質問したら、ヘルプを読めというのは筋違いではないでしょうか？
そのような回答をしていると、このスレッドの存在する意味がないと思うのですが・・・

>61
その程度なら固定長配列&力技=コピペで十分
クラスbとbのインスタンス管理クラスを分けてもいいかも

調子にのんな>94
ここは初心者用スレだが厨房用のスレではない事を知れ、屑厨

>>94
　　　λ
　　 (　ヽ　　／￣￣￣￣￣
　　( ﾟДﾟ )＜　Rubyはクソです。ゴミ箱逝きです。 いじょ
　(＿＿＿_) ＼＿＿＿＿＿
　　　ヽ(´ー｀).ﾉ
　　　　　(　 へ)
　　　　　　く



　　　　　　　　　　　　　　　　　　　　　　- = ≡三　　λ
　　　　　　　　　　　　　　　　　　＿ = ≡三　　　　　(　ヽ　　／￣￣￣￣￣
　　　　　　　(´ー｀) 　　　　　　　　　= ≡三　　　　( ﾟДﾟ )＜　この発言をコピペしていただければ幸いです。
　　　　　　( ヽ ヽ)　　　　　　　　　- = ≡三　　　(＿＿＿_) ＼＿＿＿＿＿
　　　　　　／　　>　　　　　　　　　　　　　- = ≡三

そのような回答をしていると、このスレッドの存在する意味がないと思うのですが・・・

どうせ105は騙りでしょ。
・・・本物だったらどうしよう

　　　　‖
　　 ∧‖∧　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　（　-д-）　　＜ そんなにみんな怒るなモナー
　　 |'''''''''''''） 　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
（（ ｜∪| ∪　））
　　（＿）＿）

>94
わざと人を逆上させるような事を言うのはやめなさい。
と言うか、もっと高度なことを答えたいと言うこと。
TIniFileも、Yahoo!で検索すれば大量に解説ページが出てくる。
自分で調べても分からない場合に聞くべき。
そういう意味では、自分で調べていない94の質問には「ヘルプ見ろ」
としか言えない。
俺はちょっとヒントをあげたけどね。

さあ、どんどん逝こう

こんな事でアゲるな。バカ。

どの製品にもついてくるヘルプに載っていることは質問するな。
「ヘルプを読め」と罵倒されるだけありがたいと思え。
2ch でちまちま説明するより、ヘルプをまとめて読んだ方が理解が早いはずだぞ。

どの分野でも、ある程度の基礎知識の存在を前提にしないと、毎度用語から説明しなきゃ
いけなくなる。そんなことをしたくないし、する義務もないから、最低限ヘルプは眺めろ。
質問する前にざっと読め。

Ini ファイルやレジストリの存在を知らないのであれば、勉強不足と罵られても仕方はないが
誰かが「Ini ファイル/レジストリを調べろ」といってくれるよ。そしたらそれを調べろ。

ここは Delphi 初心者用ではあるが、教えて君部屋ではない。

　∧ ∧
　(,,ﾟДﾟ) 　ﾏﾀｰﾘ　ｲｺｳｾﾞ
　(|　　|つ
〜|　　| 　
　 ∪∪ 　
「初心者です。詳しく教えてください」というセリフは
どんな分野でもかなり嫌われるのでヤメレ
詳しく教えて欲しいという甘えを回答者に押し付けるような
感じがするのだ。

見知らぬ人間に、1〜100まで教える人はいないからね。
「初心者です、パソコンの購入方法教えてください。
　パソコンのプロになれるまで詳しく教えてください」
って質問されたら誰だってｲﾔだろ？

だから折れは他言語/他ツールBBSで質問するときは
絶対自分の事を"初心者です"なんて言わない。

質問している以上、自分が初心者だろうが初心者であるまいが
適切な回答なら理解できるから。

TIniFileって聞いたら、そのHELPは読もう
それで、更に調べて「こうしてみましたが正しいでしょうか」と聞くとよろしい

元から初心者スレなんだから、初心者を表明せずとも
適度に質問するとよいでしょう。

Borland Delphi Personal「超」初心者なんでも教えてクレクレスレ
がひつようだな

＞どの製品にもついてくるヘルプに載っていることは質問するな。
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　それは言い過ぎだろう。
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
　　ｲｸﾗﾅﾝﾃﾞﾓ

＞「ヘルプを読め」と罵倒されるだけありがたいと思え。
　ﾅﾝﾃﾞﾔﾈﾝ 罵倒されて喜ぶならﾏｿﾞだろう。罵倒する方はサドか？

　　MSDNに載っていることは質問するなとか
　　ﾖﾉﾅｶに出回っている本にｽｺｼでも書いている事は質問するなとか
　　webに掲載されちる事はたとえそれがスワヒリ語の資料だったとしても質問するなとか
そんなん言われたらｲﾔだな。

人によって、作れるものにもスキルの限界があるが
同じように調べることの出来る資料にも限界がある。

　　　　　　　　　　Halbow氏あたりに"DOM"の一言で済ます
　　　　　　　　　　どこぞのﾀﾞﾚｶみたいには成田区内。

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（；ﾟДﾟ）　＜　しかし、なんで2chでこんな事かいてるんだ？
　 UU'UU　　　 ＼＿＿＿＿＿＿＿＿
　　ﾋﾄﾄｼﾃ ｼﾞｮｳｼｷﾉ ﾊﾝｲﾃﾞ ﾊﾅｿｳﾔ

　ｼﾞﾝｾｲ ﾉ ｼｮｼﾝｼｬ ﾀﾞｯﾀﾗ ﾔﾀﾞﾅ

>>103
それをコンポーネント化すればもっとスマートになるよね。

コンポーネント仕様例）
・ini ファイル名は ParamStr(0) を元に拡張子を ini に変えたものにする。
・１フォームあたり１コンポーネントまでに制約。
・このコンポーネントを置いたフォームのデータは自動的に ini ファイルに保存・復元する。
・ウィンドウ位置、サイズ、表示状態など TForm 共通のデータをコンポーネント側で管理する。
・各フォーム固有の情報は OnFormLoad, OnFormSave みたいなイベントハンドラでやる。

ini ファイル例）

Project1.ini (Project1.exe の）
-- begin --
[Form1]
BoundsRect=10,10,100,100
WindowState=wsNormal
...
Form1CustomDataA=...
Form1CustomDataB=...
...

[Form2]
BoundsRect=20,20,200,200
WindowState=wsMinimized
...
-- end --

・当然アプリで他のセクション名も自由に扱えるようする。

ってな感じでどうよ？

説教くさい２ちゃんねらーは氏ねといいたい
ウザかったら無視してりゃいいだろ

　　　　　　　 （￣）￣）
　　　　　　　/　/　/　　　　
　　　　　　　|　∧○∧
　ｺﾞｫｰ　　　 | （　´∀｀）
　　　ー　　　∪　∪
　　　ー　　　|￣￣/
　　　ー　　 ＠─＠

Del初心者のみんなはちゃんと調べてから質問しようモナー

>116
DelphianWorldにIniFileのコンポーネントなかった？

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

　　　　　　　　 ∩ ∩
　　　　　　　　/ // /
　　　　　　　　|　 〜
　　　　　　　　| ∧ ∧　　／￣￣￣￣￣￣￣￣
　ｺﾞｫｰ.　　　　|(,；ﾟДﾟ) ＜　にゃ・・・にゃーー
　　　ー　　　　Ｕ　Ｕ　　　＼＿＿＿＿＿＿＿＿
　　　ー　　　 |￣￣/
　　　ー　　 ＠─＠
＞DelphianWorldにIniFileのコンポーネントなかった？

TEditorの作者の方のかな。使いやすそうだけど
TIniとかTRegIniって
ｿﾝﾅﾆ面倒じゃないから使ったことない。

>・このコンポーネントを置いたフォームのデータは自動的に ini ファイルに保存・復元する。
沢山のFormを管理するときは非常に便利そうだね。

>>118
このくらいのコンポーネントなら特に難しくはないから、
まーどこかにゃあるだろうな。
「クラスの作りからは知っているけど、コンポーネントの作り方は知らない」
ってような人には勉強がてらやってみたらいいんじゃないかい。

　　　四　| ∧＿∧　　四　　／￣￣￣￣
　　/非Ｌ+（　´∀｀）　｜　＜　おばんですモナー
　　|∞　　/ 　〒　＼|つ　　 ＼＿＿＿＿
　　 〕〔　　Ｕ　‖　|　　|
　　/　〕　/＿‖＿|　｜

>116
確かに、練習用には良いかもね。コンポーネントって自分で作るようになると
色々応用範囲広がるし、何より楽できる。

ノートＰＣ欲しい今日この頃

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

>>116
>それをコンポーネント化すればもっとスマートになるよね。
公開はしていないけど実はもう作ってたりして。
それ使うと>>103のサンプルコードはこう書けるようになる。

procedure TForm1.Inifiler1Synchronize(Sender: TObject);
begin // 読み書き兼用イベントハンドラ。[Self.Name]セクションにアクセス。
　with Inifiler1 do begin
　　Sync(Self); // Form1の形状保存
　　Sync([Edit1, Memo1, CheckBox1]); // それぞれ適切に保存
　　MyValuel := Sync('MyValue', MyValue); // Integer, Stringなど
　end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
　Inifiler1.LoadFromFile; // 読み出しモードでInifiler1Synchronizeを呼ぶ
end;

procedure TForm1.FormHide(Sender: TObject);
begin
　Inifiler1.SaveToFile; // 書き込みしモードでInifiler1Synchronizeを呼ぶ
end;

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

DELギコのほうで相手にされなかったのでこちらに書き込みます。

どなたか以下のコードを検証していただけないでしょうか。

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

DELギコの前スレ 524, 551

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

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

こんなプログラム作ったんですけど・・・

// 行番号(0から)を入力してボタン1を押したらその行を選択する
procedure TForm1.Button1Click(Sender: TObject);
var
i,len: integer;
col: integer; // ←目的の行番号
begin
len:=0;
col:=StrToInt(Edit1.Text); // ←行番号はEdit1で指定
for i:=0 to col-1 do
begin
len:=len+Length(Memo1.Lines[i])+2; // ←改行の分(+2)
end;
Memo1.SetFocus;
Memo1.SelStart:=len;
Memo1.Perform(EM_SCROLLCARET, 0, 0);
Memo1.SelLength:=Length(Memo1.Lines[col]);
end;

Memo1.WordWrap=Falseならばこれで行の選択ができるが、
Memo1.WordWrap=Trueのときで一行が折り返されて複数行になるときにうまく選択できません
何か良い方法ありますか？

スペースが消えて見にくくなってしまいました
すみません。

　みなさんこんばんわんこそばモナー
＼＿＿＿＿＿＿__　＿＿＿＿＿／
　　　　　 ┏━┓　|/
　　　　　 ┛━┗
　　　　　 （　´Д｀）
　　　　　（]つﾞ∀´]つ
　　　　　/ ／ ：ヽ|
　　　　 ´（_＿）＿）
盛岡に行ってわんこそば食おうとしたら大渋滞に巻き込まれて
行けなかった過去がアル

>127
Memoだと問答無用で行を切られるのでたぶんムリ。
RichEditだと大丈夫じゃない？やってないから分からないけど。

>126
やっぱり一々、TreeViewのアイテムを見ていくしか方法は無いかも。
速度的に問題が無いのならこのまま行きましょう。
俺としては、このルーチン以外でやる方法は思いつかないが。

>>129
> 速度的に問題が無いのならこのまま行きましょう。
うーむ、やはりそうですか…
結構悩みどころなんです。

Win3.1 タブの FileList や DirectoryList を使うと
簡単に、高速に実現できるのですが、ユーザにとっては
使いにくいＵＩです。

ShellTreeView を使うこの方法だと、ＵＩは非常に
分かりやすくなるのですが、パスを指定してから
フォルダが開くまでのタイムラグが…

　　　　　 ○
　　　　　 |　　＼
　　　　　［二二二］
　γ⌒ヽ（λ´∀｀） 　 ､∞
　/　　 ∩3＼,,,,／[]つ□□
　|　　　Y＿＿：＿）
　 ＼＿〔＿＿）＿_）
サンタモナー。ボランティアでサンタやったことあるモナー。泣かれたモナー。

>126
ウィンドウズが用意しているものは結局遅いです。汎用性が高い分だけ速度が犠牲に。
自前で処理を書いちゃったほうが速くて使い勝手も作りこめば良くなります。
まあ、大変ですが、そこまでやる必要性があれば、やったほうがよろしいかと。

TSellTreeView使うとエラーがでるんですけどなぜですか？

>>129
回答ありがとうございます。
TMemo以外で試してみます。

エラーって、どんなメッセージがでるの？
それを書かなきゃ相手にされないＹＯ、ＹＯ、ＹＯ
チェキラ

未定義の識別子だろ(藁

>>134
ObjctTypes読み込みエラー:プロパティが無いって言われるYO!

>>136
Sage る必要を感じないが...

TShellTreeView の間違い。ってつっこみはおいといて。
コンポーネント貼るだけでエラー？実行時？

>136
パッケージをインストールしていないって事か？

　 ∧ ∧　 　 ／
　 (,,ﾟДﾟ)　 ＜　>>126　ごめんね。
　 |⊃ ,⊃　　 ＼
〜|　　| 　ﾜﾙｷﾞﾊ ﾅｲﾝﾀﾞﾖ
　 ∪∪
ﾔｯﾃﾐﾙｶ

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

　　　　　　　　　
Rubyはクソです。ゴミ箱逝きです。 いじょ
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

この発言をコピペしていただければ幸いです。
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

ブラウザ（あるいはダウンローダ）をデルファイで作る時に参考になる
ページ、御存知無いですかね。

>>143
実戦あるのみ。
TWebBrowser と、その Navigate メソッドを参照のこと。

>>144
ダスか…。

こことか
http://members.jcom.home.ne.jp/monazilla/

ちょっと効率悪いかもしれないけど

あ、「ブラウザはＩＥ使ったりする方向で」って書くの忘れた…。
とりあえず、ありがとうござんす>>146
ネスケって、まだ支持されてんですかね？
アレ作ってるとこって収入あるのかなぁ？

ｷｰﾎﾞｰﾄﾞの入力をフックするのって、サブクラスかしないとだめ？
っていうか、サブクラス化って何？

別にフック使えばいいのでは？

Delphi で IE 使いたいならここ。

http://plaza21.mbn.or.jp/~takoyakusi/
http://plaza21.mbn.or.jp/~takoyakusi/delphi/Internet%20Prog.html

Delphi入門者にとっては入門書の存在しないDelphi6 Personalよりも
入門書から詳細なリファレンスまで出揃っている
Delphi5 Learningの方が価値が高いのではないかな。
なのでBorland JapanはDelphi5 Learningの無償ダウンロードを検討すべきだね。

>>151
入門レベルなら、5でも6でも大差ないのでは？

それにしても
Listbox1.Items[Listbox1.itemindex];
ってやるのが冗長だと思う。
Listbox1.selectedItem;
とかにならない物だろうか
もう一個のリストと比べるときに

index:=Listbox1.Items.IndexOf(Listbox2.Items[Listbox2.Itemindex]);

こんなコード見ていると頭が・・・
誰か簡略化できるんなら教えてください・・・

　　　 ∧＿∧！　　　／￣￣￣￣￣￣￣
＿＿（ ；´Д｀)＿＿＜　お、おはようモナー
|　 〃(　つ　つ　　 | 　＼＿＿＿＿＿＿＿
|＼ ⌒⌒⌒⌒⌒⌒＼
|　 ＼ 　　　　　 　　　 ＼
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼　|＿＿＿＿＿＿|
夜はちゃんと寝ようね。健康に悪いぞ。

>151
D5とD6もほとんど変わらんが。D6の方が新しいから良いと思うが。
ネタ？

>153
俺もそんなながーく書いている。
簡略化も何も、ぜんぜんマシじゃない？
もっとヒドイのもあるぞ。たとえばこんなのとか。
BitBlt(BackImage.Canvas.Handle,X * 32, Y * 32, X * 32 + 32, Y * 32 + 32, TempImage.Canvas.Handle, ChipPos[ChipData[x, y]].X * 32, ChipPos[ChipData[x, y]].Y * 32,SRCCOPY);
32をrとか置いてやれば良いとは思うが、それでも長い。
複雑怪奇になるのは仕方ない。見やすいようにスペース入れるなり工夫すれば良いんじゃない？

つうかBorlandって会社なのか？
何かんがえてんだ？

>>153
たしかにSelItemとかいうプロパティ，あってもいいですね．
TreeViewやListViewにはあるのに…．
私だったら数行に分けてでも見やすくするほうを選ぶと思います．

>>89
教えてもらったとおりに、自動生成の対象にして
コーディングしたのですが、
「未定義の識別子:Form2」とコンパイルエラーが発生します。

他に何か原因があるのでしょうか

>>157
あれ？
コンパイルする時に
「未定義のＦｏｒｍ２を参照しています。追加しますか？」
みたいなの出なかった？

>>153
with ListBox1 do
　Hoge := Items[ ItemIndex ];

いやそれより　SelItem を自分で追加した方が早いかもね・・・

まだ初心者でそこまで手が回らないなら関数を作りましょう

function GetListSelItem( list : TCustomListBox ) : strings;
begin
if list.itemIndex <0 then abort;
Result := list.items[list.itemindex];
end;

汎用にするのはヘタレだからこんな方法しか思いつかないけど
function GetSelItem( list : TObject ) : string;
begin
　if list is TCustomListBox then begin
　　if list.itemIndex <0 then abort;
　　Result := list.items[list.itemindex];
　end;
end;

たしか、プロパティにItemIndexがあるかどうか検索してくれるようなのが無かったかな？

uses に TypInfo を追加して

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
　　p : PPropInfo;
begin
　for i := 0 to ComponentCount - 1 do
　begin
　　p := GetPropInfo(Components[i].ClassInfo,'Caption');
　　if P <> nil then
　　　 ShowMessage(Components[i].Name);
　end;
end;

　 ∧ ∧　 　 ／あるけど、お勧めしないです
　 (,,ﾟДﾟ)　 ＜　各クラス別に書いた方がよいかと･･･
　 |⊃ ,⊃　　 ＼
＠|　　|
　 ∪∪

日ソフの「Ｄｅｌｐｈｉへおいでよ！」が来月で終わるそうだ。
付録にもＤ６パーソナルは付いてなかったし、
どうも日ソフはＤｅｌｐｈｉを相手にしてないようだ。
これで各雑誌ともＤｅｌｐｈｉの連載は壊滅？
どこか新たな連載始めるだろうか？

雑誌の Delphi 記事って全然役立たない内容ばっかだよね。
もっと１つ１つ実用性がある内容にしてほしいよ。
実際に雑誌みて参考にしている人っているのかな？

>>164
ページ数が限られてるのが問題なんでしょう。
また、プロ・上級者とアマ・初心者では「役立つ」レベルが違うので
難しいところ。
まだまだ貧弱な俺は「ふ〜ん」という感じで読んでる。
たまに「ほぉー」とか「へぇー」というのもあるけど。

　　∧＿∧ 　　　　　　 ／￣￣￣￣￣￣￣￣￣￣
　｜＼´ー｀）／｜ 　＜　もっとデルファイの良さを知ってもらうモナー
　○　　＼／ζ　○ 　 ＼＿＿＿＿＿＿＿＿＿＿
　｜　　　｜旦　｜
　|￣￣￣￣￣￣￣￣￣￣|
　 |￣￣￣￣￣￣￣￣￣ |
　 |　　　　　　　　　　　　　 |

どうしても知名度が低いから資料も少なくて連載もあんまり無いんだろうね。
俺もライブラリとか公開してるけど、そんなにたくさんは採用されていないし。

VBの限界を悟った人が大量に流れ込んでくることを期待age

Delphi使ってる人って新しい言語とかコンパイラを作れるの？

　（￣￣）￣）
　｜ ｜ ｜
　（　　　　）　　　　／￣￣￣￣￣￣￣
　　∧＿∧　　　＜　ネタかモナー？
　（υ´A´ ）ﾌｩ　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　U　U

>167
別にデルファイ使っていなくても、作れる人は作れます。
俺も勉強してコンパイラみたいの作りたいよ。
ネタにマジレスはイヤだなあ。

いやネタじゃなくて、
Delphiプログラマーって
開発環境に頼りきったＧＵＩプログラミングしか出来ないの？
それじゃＶＢ厨房と同じだね。

VC使っててもgcc使ってても開発環境に頼らざるを得ないと思うけど。
まさかGUIライブラリを一から構築しなきゃいけないとでも？

デルファイってプログラミングというより
オーサリングやビルディングって感じだよな

メモ帳でpasファイルを書いてコマンドラインからコンパイルすればご満足？
苦行みたいだね。

　∧　∧　　　　　　　　==∧　∧
● ´∀｀)＝＝●）　〃==ﾟ＿●）=◎
｜　　 ｜＝● ＝●　==つ　　　=∪
（＿）＿）　＝●　　=⊂　==∪


167は煽り。無視進行で

>>167は機械語が完璧に使えるのか。
すげえな。

前からデルファイ使ってる人は少なくともＶＢ房のように
周りに流されないし、選択する目を持っている人です。
なんでＶＢにしたの？と聞けば
「使ってる人が多いから」とくるからね。

VBと対決してもフレーム合戦になるだけで不毛なので終了。
俺はVB、VC++、Delphiどれも使ってるし。

開発環境に頼り切らない方法も使えるし、非GUIもできるなんて
みんな知ってる。アホがあおっても無駄。

Personal使ってみてるんだけど。
これってUDP使うコンポーネントってないの？

　　 ∧＿∧　　　／￣￣￣￣￣￣￣￣
　　（　´∀｀）　＜　　明日から会社モナー。イヤだモナー
┌∪┐　　)つ　 ＼＿＿＿＿＿＿＿＿
└─┘ ヽ
〃(__人__ノ

>178
ttp://www.kobira.co.jp/sakura/d_net_winsock.htm
フリーのコンポーネントを使えば良いんじゃない？

>>178
Indy 使おう
http://www.nevrona.com/Indy/

どうしてもコンパイルがとおらね〜。と思って見返したら、

for i = 0 to 10
なんて書いてた。鬱。エラーメッセージわかりにくいよう。

>179,180
おお、サンクス。早速見てみるわ。

>>150
遅レスですが、ありがとう！

あれ？Personal って Indy 入っていないんだっけ？ >>178, 180

１７８，１８０じゃないけど。
入ってないと思う。
Personalインストールしたての勉強したてのホヤホヤ君だけど。

入ってないから言ってるんだろ１７８と１８０は。

TClientSockがあったような

>>178
Personal 使うということは Delphi ビギナーですね。
WinSock 使いましょう。
おれは Delphi 党だけど WinSock 使ってる。

>>188
Delphiで、WinSock使う場合、詳しい解説があるページ知りませんか？

http://www.asahi-net.or.jp/~nk2w-ishr/winsock0.htm

>>190
うわー。まさにバッチリなページっすね。ありがとう！
つーか、検索すれば良かったな…。スマソ。

>>189
別に C 使った解説書とかで充分です。Pascalに置き換ればいいから。
ちなみにお勧め書籍は、
基礎系）
・WinSock による Windows ネットワークプログラミング （ISBN4-7561-1609-4)
・インターネットのための WinSock プログラミング （ISBN4-7741-0371-3）
ともにC/C++サンプルあり。
応用系）
・インターネットプログラミング （ISBN4-88135-305-5）
これらは WinSock 1.1 まで対応のため 2.2 の機能が使いたければ他書も必要です。
（1.1 で充分だと思うけど。）
・WinSock 2.0 プログラミング （ISBN4-7973-0688-2）
以上はおれ自身が持っているもからだから他にも良書があるかと思います。

ちなみに Delphi で WinSock を使う場合は WinSock ユニットを uses させます。
ただしこれは WinSock 1.1 のインポートユニットだから、2.2 の機能を使いたければ
C のヘッダファイルを元に自分でインポートユニットを作成する必要があります。
探せばネット上のどこかにあるとは思うけど。

>>192
ありがとうごぜぇやす。詳しいっすね。

「はじめてのDelphi　技術評論社」を一通り終わったあと
次に読むべき書籍はどのようなものが良いんでしょうか。

塚越氏の残り2冊の続編はどこを探しても無いみたいですね。
ヤフ億でもかなりの高値がついている様子。。。。。

書籍に関しては他スレで書籍ランキング等にリンクがされていて
そちらも覗いたのですが、いまいち現状に合うものが分かりません。
アドバイスをお願いします。

TStringList 内にある任意の文字列のある行を探したいのですが
ヘルプを見るとIndexOfは完全一致だそうで。

「部分一致を検索するには自分で文字列リストを繰り返し処理する
必要があります」

の意味がよくわかりません。
具体的にどのようにしたらいいのでしょうか？

>>194
自分の作りたいものに挑戦するべし。
何を作ったらいいか分からない、というのであれば、
TIPS本で色々な動作を試してみるのがよいかと。

OutputDebugStringの出力先はどこですか？

>>197
表示−デバッグ−イベントログ

>>195
一行一行Pos関数使って調べろ、って事では。

>>195
for i := 0 to Mylist.count - 1 do begin
　if AnsiPos('moji',Mylist.strings[i]) > 0 then begin
　　// 当たり
　　break;
　end;
end;
こんな感じで自前でチェック白ってことかな

Personalにないんですが...

>>200
まさか本当にそうだとは。
ありがとうございました。

>>201
？WindowsAPIだけど・・・

n := AnsiPos('moji',Mylist.text );

って得られらた n から
EM_LINEFROMCHAR　みたいに行位置が判ったらチョット便利かな？

>表示−デバッグ−イベントログ
ないのはこっちです

>>204
Copy(MyList.Text,1,n)してMyList.Countするか
#13を数える

GExpertsのDebugWindowは？
っていうかこっちもPersonalじゃ使えんのか・・・

なんで「:」を付けさせるの？「＝」の前に。

>>208
いくらなんでもそれはないだろ
ヘルプ嫁ヘルプ嫁

>>209
そんなのヘルプに出てるの？
「代入文」の説明とかはあっても、
「：」をつける理由は書いてないような気がする。
なんで？と聞かれると区別するため、としか・・・

そういうの言い始めるときりないので、そのまま受け入れること。

C で = と == のように使い分けているのと同じだし、じゃ比較を == に
したのはなぜ？ といわれても、そう決めたから。としかこたえられまい？

そーそー。「決めたから」が答えだとは思うけど、
何かあんのかなー？と思ってね。

:=
は数学界でも使われていたと思いますが。

:=は金物（私語）表現だろふ。
アルゴル系言語は印刷物上では→とか↑とかASCIIでない
記号を使うのだ。

どうもです。

何がだ（藁

インストールしたコンポーネントって削除出来ないの？

[コンポーネント|パッケージのインストール]でパッケージを削除するか、
パッケージ編集で目的のコンポーネントを削除して再構築。

>>218
ふーむ…。ありがちょ。

タイマーセットしてカウントダウンさせたいんだけど
その時間を表示させるにはどうしたらええの？

メーリングリストのｶｺログ見てたら
マッサージや家事をやってくれるプログラムを作ろうとしている人
がいたんですができるんですか？

>220
10, 9, 8... でいいの？

>221
インターフェースが用意されていれば出来る。

>>222
ういっす。
羅面大麻を作ろうかと。
ご教授お願いしまっす。

>223
TTimerでIntervalを1000にセットする。
OnTimer イベントで、Dec(残り時間(秒))し、
ラベルにでも残り時間を表示すれば良いのでは？

Delphiの開発環境はEDLINより使いやすいでしょうか？
みんな、同じようなもんだって言ってますけど？

どうもです。

　 ∧_∧
　（´∀｀）
　（　　　）
　 Ｕ￣Ｕ
煽りが多すぎモナー。アンチDelphi厨房がいるようだモナー

ttp://www2.nsknet.or.jp/~azuma/e/e0032.htm
ここにEDLINは最悪なエディタと書いてある。
EDLINなんてはじめて知ったぞ。

Delモナちゃん、もうすこし話広げてくれよ。
でも、厨房グラマが１日で作れるような
メモ帳なみエディタって･･･Delphiｷﾓ-ｲ

そんなIDEのエディタがなんて最高でなくてもさ、
初心者から上級者まで満遍なく　トータルで
大きなストレスなく使える環境だって事が肝心だと思うよ

とりあえず　編集＋コンパイル＆goがストレスなく出来れば十分さ

>>224
ありがとやんした。
他のソースからぱくっちゃいました。

http://www.tok2.com/home/runadon/raumen.LZH

所々っていうか全体的におかしいんだけど
なんとか作れた・・・ラーメンタイマー如きで徹夜しちゃった。てへっ。

copy con でやってた身としては EDLIN は衝撃的な使いやすさだったが何か？

>>231　ネタだろ CP/MならED MS/DOSならEDLINは最初からあったじゃん！

EDITマンセー

とりあえずあおりは無視の方向で

>>218
確かにコンポーネントの削除は初心者にはわかりづらい場所にあるな。
それと削除したいコンポを選択して削除すると普通は思ってしまう
ところが、何故かわざわざ削除画面が別に出てそこで新たに選択しなくては
ならないのはＵＩとして適切でないと思う。

あそこら辺は改良したほうが良いと思われ

>>確かにコンポーネントの削除は初心者にはわかりづらい場所にあるな。

初心者じゃないが、使い難い。

でるぴってよんじゃった、てへ

>>236
はげしくがいしゅつ

>>228-229
あのエディタを短期間で作るなんて無理
フリーカーソルだから慣れるまで嫌われるだけであって・・・

>>234
　　 ∧∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　 (,,ﾟДﾟ)　　＜ コンポを右クリックして削除選んでミー
　＠/つ且~~　　＼＿＿＿＿＿＿＿＿＿＿＿
　　（__　_）
　　ﾀﾞﾚﾓｶﾞ ﾏﾁｶﾞｳ UI ｶｲｾﾞﾝｼﾃ ｸﾚ >>某

IDEでTABキー入力した後左カーソルで戻ると
TABコードして戻らずに、TAB幅分のスペースとして戻る時があるんですが、
これってどういう条件のときになるの？

ctrl + I でインデントするときもTABコードじゃなくて半角スペースが
挿入されて嫌なんですが。

どうもTABの扱いがおかしいきがします。

>>240
オプティマルフィルONにしても駄目?

ラーメンタイマーな人です。

ラーメンが出来たって表示してビープ音ならして
そのまま閉じたいのですが closeさせると即効で消えてしまって
メッセージが見えません。ウェイト？のやり方を教えてくださいませ。

>>241
オプティマルフィルONにしても ctrl+Ｉ では半角スペースが
挿入されてしまいます。

テキストエディタ慣れしているとTABコードの間にカーソルが
入るのにすごく違和感を感じますが、これは慣れの問題なので
いいですが、インデントが半角スペースになってしまうのは
ちょっと困りものです。（TДT）

Timer1.Interval := 1000;
ってやってイベントハンドラ内でclose

>>243
Ctrl+Iの挙動は俺もマイッタ。
結局、Tab文字は使わず全部半角スペースにすることにした。
でも半角スペースだといろいろ面倒なんだよなー。

>>244
ん？
Sleepの方がいいのでわ？

>246
フォームが固まるから駄目

>>245
ちゃんとヘルプ読もうぜ
オプティマルフィルは並んだ空白をタブに置換してくれるもの。
タブをタブとして使うのは「タブ文字の使用」
インデントをホンとのタブにしたけりゃスマートタブもきらにゃいけないかな？

>>244
あいわかりもうした。
ってそっちではもうやったのでした。
なにか一命令で逝けるのかと思った。

>>246
ほうほう。
Sleepですな。

>>247
ほうほう。
固まるからダメと・・・。

　　　　∧＿∧
　　　 （　｀∀´）
　　　　|　つ､つ､
　　　　| ＿　|ヽヽ､./￣＼
　　　 _ゝ＿￣ヽヽ/ ；´ー|
　ヽ／二> （＿_）/　　 ／
　 _|＝====＝/_ 　_／
　(＿ノー―ゝ＿)＿)
￣￣￣￣￣￣￣￣￣￣￣￣
10/3まで緊張状態だモナー。辛いモナー。

>249
ムリにTTimer使わなくても出来る方法はある。
まあ、色々試すと勉強になって良いと思うよ。

i:=GetTickCount;
while i+10*1000<=GetTickCount do begin

Application.ProcessMessages;

//ココにカウントダウンしたかったら適度に入れればヨシ
If ((GetTickCount-i) div 1000)=0 then begin
j:=GetTickCount-i;
form1.Caption:=IntToStr(j);
end;

//ココにサウンド鳴らす関数でも入れれば。


//また１秒分でも待つようにして

//閉じればヨシ
Close;

end;

適当だが、こういう方法もあるんでないかい？
タイマーコンポーネントばかりに頼ると他の用途で使えないとき
困るかもしれない。
タイマーコンポーネントを使わないでアイドル時に自分で時間計測
するときには上のやつを知っておくと良いかも。
俺はゲーム関係を主に作ってるからビジネス系はちと弱い。

procedure Wait(const MSec:Cardinal; const AProcessMessages:Boolean=False );
var
s:Cardinal;
begin
s:=GetTickCount;
if AProcessMessages then
while GetTickCount<s+MSec do
Application.ProcessMessages
else
while GetTickCount<s+MSec do;
end;

WinMain関数内でSleep使いましたが何か？

>250-251
イベント駆動なアプリケーションではイベントハンドラからすぐに抜けるのが基本。
安易にループまわしてApplication.ProcessMessages呼びまくっちゃ駄目だよ。
while True do Application.ProcessMessages;はCPUを100%使い切ってしまうはず。
# もちろんゲームなら許されるけど。

>>248
オプティマルフィルは空白のタブ変換でしたか。
あと「タブ間のカーソル移動」をオフにしたら移動がラクになりました。

しかし相変らず ctrl+I は半角スペースだ。
これはなんともなんないのかねぇ。
VBみたいに選択範囲でタブやるとインデントというほうが
Windows的だと思うのだが。

>>253
横道それるが、ゲームスレみてて思ったけど
CPU100%使い切るのはダメみたいに言うやつもいるんだよな。
まったくどうにかしてほしいよ。

ﾊﾟｿﾅﾙにはTo-Do　リストは無いの？
ヘルプを見ると表示メニューにあると書いてあるんだが。

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

…じゃなくて。
Delギコ氏が（･∀･）ｲｲ!! sample作ってくれてルーヨ。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1001489683

もしかしてヒマなのかな…。いや、感謝感謝。

>>255
>CPU100%使い切るのはダメみたいに言うやつもいるんだよな。
将棋やフルスクリーンの3Dゲームはリソース100%使い切ってくれてかまわないけど
光栄三国志がCPU100%使い切るのは確かに納得いかないぞ(藁
おかげでUD Agent進まないし...

コーエーじゃなくて光栄の頃のなら１００％ならんじゃないの。
５インチフロッピから読んでさ。
ゴリゴリ読み込んで遊ぶヨロシ。

>253
Application.HandleMessageはどぉ？

>260
それだと精度が低くて時間どおりにループを抜けられないような。
つーかなぜに空ループにこだわる？
TTimerそんなにイヤか？

O　 　ﾀﾞﾊﾞﾀﾞﾊﾞ
　　ノ[]ヽ
　　　ﾉ）

>>250
Delモナちゃんありがとー。
いまからやってみるね。

>>251
ふむふむ(わからない)

>>252
なにが？

>>253
タブーなのね。

数秒で強制的に閉じる程度ならsleepでもそんなに問題ではないな。
動かねえってあがきはじめた段階で閉じてしまうから。
その場合そのダイアログからはOKボタンやclose boxは消しておくと良い。

もっと長いスパンだったり、閉じる以外の目的で時間見るんであれば
まずはTTimerとかを使うアプローチを考えたほうがいいが。

そーゆーデリカシーのないUIを作る人はVB使ってください。

>>264
対話目的(Dialog)ではなく、通知目的(Notification)だろ?
どんな実際的な問題があるってんだ?
SleepはCPUを占有するわけでもないしな。

それが分からないようでしたらあなたにはHSPがお似合いです。

>>266
ＨＳＰをバカにするな！お前は「ぴゅう太」がお似合いだ！

>267
あんたにはファミリーベーシックがお似合い。

>>268
お前にゃ電子プロックがお似合い。

ぜんぜん初心者スレっぽくないぞよ。

話を戻して(笑)、補足。

実際にsleepするのならその前にUpdateとProcessMessagesを
一回呼んで描画の更新の完了などはさせないといけない。
sleepする時間もせいぜい3秒以内が限度。

コードはこんな風になる。
NotifyDialog.Show; // モーダルにはしない
NotifyDialog.Update; // 描画を完了させる指示
Application.ProcessMessages; // 描画の完了を待つ
Sleep(2000); // 2秒
NotifyDialog.Close; // 閉じる

また他に同時に別のウィンドウ操作できるようにしたいのなら
そっちも固まってしまうのでこの手は使えない。
その上で、単機能タイマーの通知に限定した話だからこういう手も
十分使えるということ。まあ、初心者スレっぽくないか(笑)


ところでそもそもの前提として、勝手に閉じるというUI自体が問題を
はらんでいることは注意したほうが良い。
確実に知らせたいのなら、確認を示す意思表示としてボタンを
押させること。
そうでないと画面のそばにいなかった時にすでに終わったということ
自体を気づかないことがあるからな。

>>271
> ところでそもそもの前提として、勝手に閉じるというUI自体が問題を〜
あーならいまのままがいいですね。
確かにその方が親切ですし。

んで今度は時間が来たらウィンドを最前面に出してやりたいのです。
って教えて君ですな・・・調べてきまっす。

>>272
最前面に出すという行為も、何かユーザーが操作している
最中に出てくるとユーザーを邪魔することになってしまうので
問題があるんだよね。
そのために、Win98以降では従来の方法で最前面に出そうとしても
タスクバーで名前が点滅するだけに終わるように変更されている。

最前面に出す機能は、主に手前に置きっぱなしにするソフトに、
ユーザーの意思によって設定可能にするだけにしたほうが良い。

ということを言っておいた上で(笑)

従来の方法で最前面に出すだけならばFormStyleプロパティを
fsStayOnTopにしておくだけでOK。

データベースの質問です。
IBTableのfilterありますよね。
あれ使って日付型の項目からレコードの絞り込みしたいんですけど
どうやったらいいんですか？

　 　　∧∧ 　 ／￣￣￣￣￣￣￣
〜´ ( ´∀｀)＜　かなり良い感じーモナーギコー
　 uu　u u 　　＼＿＿＿＿＿＿＿

俺が変にGetTickCountとwhileでのループ技書いたから
CPU処理％について論議が・・・・。みんなの言う通りだよね。
最近は、CPU処理の方にも気を使ってるつもり。でも使いまくり。
某エロゲーとかはつねに６０％とかだから、どうやってるのかなあ
とか考え込んでしまってもいる。

>274
データーベースは分からないので答えられない・・・。
他の人ヨロシク

自己レス　こんな風に書いたら動きました。
I_DATE>'8 20 2001' AND I_DATE<'9 21 2001'

>>275
ＭＡＭＥみたいなエミュレータをノートＰＣで走らせるとファンが回りまくりで
どうしようもない。ＣＰＵの使用率って制御できないものか私も知りたい。

別スレッド作ってそっちでSleepし、Sleepが終わったらメインスレッドに
終了コード投げて自分も終わるというのはどうだろうか。

…あほらしいか。

TMemoの内容をINIファイルに書き出したいと思いますが
---------
gikogiko
monamona
---------
という内容を以下のように記述すると

SL := TStringList.Create;
SL.Text := Memo1.Text;
iniFile.WriteString( 'CATEGORY', 'ITEM', TMemo1.Text );

↓のように書き出されてしまいます。
---------
[CATEGORY]
ITEM=gikogiko
monamona

monamona

---------

逆にこのINIファイルを読み込ませてTextプロパティに入れると
最初の行「gikogiko」しかMemo1に表示されてくれません。
どのようにしたらよいのでしょうか？

また、Memo1の内容に「Name=Value」がある場合そのまま
書き出されてしまいますが、これは問題ないのでしょうか？
INIファイルに同じ項目がある場合、読みだし時に誤動作しそうな・・・。

そもそもTMemo内容をINIファイルに書きだそうとするのが間違いですか？

>>279
iniFile.WriteString( 'CATEGORY', 'ITEM', TMemo1.Text );
じゃなくて
iniFile.WriteString( 'CATEGORY', 'ITEM', SL.Text );
ですね。
書き間違えすいません。

>そもそもTMemo内容をINIファイルに書きだそうとするのが間違いですか？
間違いでしょう。一行に対する最大長制限もあるし，95/98/NT で微妙に動作が違うし。
ファイルの読み書きでしかないから速度も遅いしね。

.ini にはパスを入れるだけにするとか。

>>281
TMemoの内容だけ別ファイルに書き出すことにします。
ありがとうございました。

>>273
ほうほう色々とむつかしいんですな。
ならタスクバーをチカチカさせるだけでいいのかな？
まー実際にラーメンタイマーなんて使わないと思うし(笑)

ラーメンタイマー、
そもそも、なんで自動で閉じたいの？

INIファイルには、改行文字を含める事は出来ません。
そこで、制限の無い TMemIniFile を使う。
改行文字を含めず、引用符とカンマ区切りで１行１行を区別する。

with TMemIniFile.Create( '****.ini' ) do
begin
　WriteString( ***, ****, Memo1.Lines.CommaText );
　Flush;
　Free;
end;

with TMemIniFile.Create( '*****.ini' ) do
begin
　Memo1.Lines.CommaText := ReadString( ***, ***, '' );
　Free;
end;

>>283
タスクバーじゃなくてタイトルバーだ(;´Д`)

>>284
連続で使う事はあまりないかなと思って。
でも263さんの言う通り 不親切なのでやめますた。

>>285
TMemIniFileですか。なるほどっ！
まさに思い通りのコトができました。
ありがとうございますっ！

オープンソースのソフトで、オブジェクト指向プログラミングのいいサンプルないですか？
いくつかフリーソフトのソース見てみたんですが、結構手続き指向？を使ったものがほとんどなので。

>>288
Delphiスレでこういう質問をする意図が読めぬが、
これがDelphiのソースとしてそういうものを読みたいという要望なら、
DelphiのComponentのソース公開されてる奴を探して(いっぱい有る)
そのソースを読むとよかろうと思う。
Component作りは、OOPは避けて通れないので。

特に、1つの配布セットに、互いに関連の強い複数のComponentが
入ってる奴は狙い目だ。単体より「相互関係」を学ぶことに
色々と意義があるので。継承とか委譲とか色々。

拙作(内緒)は20個もゴミみてーなComponentが入っている。
ゆえに、さぞかしタメになるだろうな。わははははは。。。。。

　　　　　 　∧＿∧ 　／￣￣￣￣￣￣￣￣￣￣
（|＿（|　　（　´∀｀）＜ すげえ良い物見つけたモナー
（．　．＼ ⊂　　　）＿＼＿＿＿＿＿＿＿＿＿＿
（● ノ　 ￣ノ　ノ　　　川
　　　'''|｜ (|_＿)ー|｜｜川
　　　（_（＿_）　　（_(＿_）

既出っぽいよーな気がするが、見たこと無いのでリンク
ttp://glscene.org/
にある
ttp://glscene.sourceforge.net/misc/CodeWarp.zip
ってソフトは良いね。
コードエクスプローラーの代わりになるので非常に便利。
なんで、このソフトを発見できなかったのか悔やまれる。

リンクスレの「環境のことなら」のところにリンク張っておいてくれい。

>288
自分がオブジェクト指向でプログラムしてるのかそもそもよく分かっていない・・・。
まあ、結果良ければオッケーっと言うことで。

>289
ウチのコンポーネントは全然オブジェクト指向じゃないっぽいので
参考にならないかも・・・。関数をガンガンつけまくっているだけだし。

Del6のSampleタブにあるShellListViewを使いたいんですが、
使いかたはどこで調べればいいんですか？
ヘルプに何も書いてないですよね？

　 ∧ ∧　 　 ／>>290　リンク先のｱﾄﾞｲﾝ
　 (,,ﾟДﾟ)　 ＜　モードレスで
　 U　 ,つ゛　 ＼Formの位置調整が出来るようにしたいです。
〜|　　|
　 ∪∪　ﾓｰﾀﾞﾙ & ScreenCenterは ﾂﾗｲｯｽ
>>288
ホットゾヌなどは？大きすぎますか？

>>291
Sampleの中のものは伝統的悪しき週間により
HELPはつきません。ソースがあるので
それを見ながらガンバルしかないです。

　ガンバルンバ！

ホトゾヌ依存コンポーネント多すぎてコンパイルできぬ・・・かなしい

具体的にはTUIWebBrowserのコンパイルでつまる・・・

TUIWebBrowserインストールしようとしたらrequires vclieのところでつまるし…。
パーソナルではインストールできないとか？

　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　ホットゾヌは依存Compoが激少で
　 | つ[|lllll］). ＼＿ 折ﾚは驚いていたけど…
〜| 　 |
　 ∪∪ ﾀｺﾀｺ ｻｲﾄ ｼﾗﾍﾞﾃﾐﾙ

ﾀｺﾀｺの説明によるとD5まではTWebBrowserを継承していなかったから
StdやLernでも利用できたみたい。
D5からComの継承が可能になったみたいで
D6用のはTWebBrowserから継承しているみたいだけど・・・

PersonalはTWebBrowserないから不味そう＿＿
詳細わからないので、作者さまに要連絡がよろしいと思われ

>>3ドリルちんちんだ。

ボタン操作などでTPageControl上にある特定のTTabSheetを
開けなくしたいのですが、Enableプロパティ、Visibleプロパティを
変更しても変化しません。

TCheckBoxとかTMemoとか他の要素はEnableをオフにすることで
使用不可状態にできたのですが、TTabSheetでは出来ないのでしょうか？

派生すれば良いと思います>>299

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

　>>298TabVisibleをFalseにしてみたらど・かしら？

MDIアプリケーションの子フォームを全て閉じるにはどうすればいいですか？

HELP に、そのまんま「例」としてのっているのですが。




■VCL リファレンス
TCustomForm.MDIChildren


MDIChildCount, MDIChildren, Close 例
--------------------------------------
以下のコードは，Form1 の MDI 子フォームをすべて閉じます。

var

I: Integer;
begin
with Form1 do
for I := MDIChildCount-1 downto 0 do
MDIChildren[I].Close;

end;

>>296
TWebBrowser って、IE のタイプライブラリからインポートしたものなんだけど。
Personal でもタイプライブラリのインポートはできると思ったが。

では質問。
何故Delphiが最強なの？

>>302
HELPにのってたんですか。探しが足りなかったです。
ありがとうございました。

　　　∧∧　　　／￣ >>303 ｻﾝｸ--ｽｿﾃﾞｼﾀｶ
＠＿(,,ﾟДﾟ)　＜　　とりあえずD6Proではタイプライブラリトリコミして
⊂,,＿_つつ.　　＼＿ ソースをちょこっと修正してライプラリパスを通したりしてたら
　　　　　　　　　　　　　TUIWebBrowserのインストは出来たよ。

タイプライブラリ取り込みの説明はTUIWebBrowserインストール説明の
D5のものを参考にしよう。>>295

ちがうかな？

　　　　　＿　　　　　>>304
　　　　｜　∧ ∧ 　　コンパイルが早いから
　　　　｜　( ﾟДﾟ)
　　　　｜　⊂　｜　　とか逝ってみる。
　　　　｜　⊂__ノ＠
　　　　｜　｜

>>300
あ、TabVisibleでしたか。
ありがとうです。

単にDLLファイルだけが与えられている場合、どのようにしてこのDLLで定義されている関数名や型を知り利用するのでしょうか？

>>309
名前は知ることができますが、引数や戻り値の型や呼び出し規約は知ることができません。
適当に当てずっぽうで推測したり、逆アセンブルして解析したり、作者に訊いてみたり、あきらめたりするしかありません。

皆様ありがとう。
タイプライブラリのインポートは出来たみたいなんですがやはりTUIWebBrowserが
インストールできません…。
どこが悪いのかも把握できてないんでもう少し調査してみます。

…他にもIEコンポを使えるようになるコンポーネントってあるんだろうか…。

パソナルってほとんどのコンポがインストできないよね

　　　　　　　(>312)
　　　　　　　　　　　＼从/／
　　　　　　　　　＼ヽ　　　/／　ﾎﾞﾝ!
　　 　　　　　 　＜ 　　　　＞∧＿∧
　　　　　　　　　　＜　　　ｌ⌒l´∀｀　）
　　　　　　　　　　　　　／ヽ　ヽ　　　つ
　　　　　　　　　　　　　(((　＼_　　 ﾉ
　　　　　　　　　　　　　　　 　　＼ ヽ
　　　　　　　 　　　　　　　　　　　し''
>312
アンチデルファイ厨房、マジで消えてくれ。
とっととプログラム板から消えてくれ。

>311
IndyとかでIEコンポをいじれなかった？
Ieコンポだったらmonazillaを参照するといいかもネ。
ttp://members.jcom.home.ne.jp/monazilla/

つい最近はじめて見ました。結構ハマりますね。
質問なのですが、ユーザーがウインドウのサイズ変更、
最大化をできなくするにはどのようにしたら良いでしょうか？

>>314
プロパティ変えるだけ

ウィンドウがアクティブになってない時にキー入力を取得するにはどうすればいいんでしょむか？

>>316
アクティブにすれば良いと思われ

>>317
そ、そうじゃなくて、、
ウィンドウが消滅しててバックグラウンドで動いていてあるキーを押すと
ひょこっとウィンドウが現れるように作りたんです

フック。

http://www.text2music.com/mine/delphi/2.html.
このページを見ながら乱数発生器を作っているのですが、
「オブジェクトスペクターの上のタブ "Event" を選んで、その中の"OnCreate"をダブルクリックしてください。」
という説明がでてきました。
ところが、私のDelphi Personal には、OnCreate　というものが見当たりません。

なぜでしょう？

ちなみに、上記の解説サイトを作っているのは、ひまわりの作者さんみたいです。

>>320
なんか２ちゃんからの直りんを禁止してるみたいなので、URL をコピペしてください。
ttp://www.text2music.com/mine/delphi/2.html.

>>321
違いました。
URL の最後にどっとが入っていたからでした。
正式ＵＲＬ
http://www.text2music.com/mine/delphi/2.html

>>320
絶対あるはず。
左にあるオブジェクトインスペクタのコンボボックスからForm1を選ぶ。
そしてイベントタブのなかにOnCreateはある。

OnCreateならフォームをダブルクリックしたらすむんじゃないかな

>>323
ありがとうございます。
言われた通りにやったらできました。
コンボボックスに別のものが入っていたので表示されてなかったようです。

・∀・

>>318
> ウィンドウが消滅しててバックグラウンドで動いていてあるキーを押すと
> ひょこっとウィンドウが現れるように作りたんです

この用途なら RegisterHotKey が良い

＞295 ：デフォルトの名無しさん ：01/09/28 09:24
＞TUIWebBrowserインストールしようとしたらrequires vclieのところでつまるし…。
＞パーソナルではインストールできないとか？
パーソナル０円プログラミング派だけど、TWebBrowserインストールして
ヘッポコブラウザ作って遊んでますが…。
つーか、スーパー初心者なんで、「TUIWebBrowser」と「TWebBrowser」は
別物？勘違いしてるかな？オレ。

見なさムありあとうございました。
なんとか方向性は見えてきましたハイ。

マッサージしたり料理を作ってくれるようなトータルライフサポートアプリケーションを作成したいのです。
しかし標準のコンポーネントではマッサージや料理ができません。
Delphiってだめですね〜。
VC++だと簡単にできるんですよね♪

＞＞３３０

おもろないぞ！　やっぱ養殖もんはダメだねえ
やっぱ天然 もんのキレが全く無い

関数　手続きが，まだ理解できません

税抜き
消費税
税込み　と　3つの答えを　DBEdit　に　格納したいのです

別フォーム　で作りたいです。

おしえてください、また　なにか参考に出来るもの　おしえてください

俺はクラスとオブジェクト指向が理解できてない。
でもアプリつくれるデルファイマンセー。
解ってないからコンポーネントなんかつくれんがな

>>333
Delphi使ってればそのうちなんとなくわかると思われ。
TButton とか TCheckBox とかがクラス。
Button1 とか Button2 とか CheckBox1 とかがオブジェクト。

>>332

税抜き、消費税、税込み、３つともわからんなら、どうやって求めるんだ。そもそも。

>>332質問の意味が違ってたらごめん

var
Form1: TForm1;
//手続きの宣言
procedure aaa(zeinuki:Currency ; Zei_ritu:Single);
implementation

uses Unit2; //betuformのユニット名

{$R *.DFM}
procedure aaa(Zeinuki:Currency ; Zei_ritu:Single);
var
Zeikomi,Zei:Currency;
begin
//消費税の計算
Zei:=round(Zeinuki*(Zei_ritu/100));
//税込価格の計算
Zeikomi:=Zeinuki+zei;
//Betuformというフォームに張ってあるDBEditに表示する
//税抜きをDBEdit1に表示
Betuform.DBEdit1.text:=FloatToStr(Zeinuki);
//消費税をDBEdit2に表示
Betuform.DBEdit2.text:=FloatToStr(Zei);
//税込みをDBEdit2に表示
Betuform.DBEdit3.text:=FloatToStr(Zeikomi);
end;

//ボタンを１個張り付けて手続きを呼んでみる
procedure TForm1.Button1Click(Sender: TObject);
begin
//別フォームを表示
betuform.visible:=true;
//税抜き100000,消費税率は5パーセント
aaa(100000,5);
end;

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　TUIWebはTWebの変なところを改善している
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
　TWebBrowser
　ショートカットキーがうまく動かなかったりしないかな？

　>>314
　GetMinMaxInfoという単語を調べるてヨシ

337のGetMinMaxInfoや70あたりに出てきたファイルのＤ＆Ｄなどは
Delphiのどうこう言うよりWindowsAPIとかShellの話になってきますよね
その辺参考になる書籍、ＨＰ等ありましたら教えていただけると幸いです。

コンソールアプリケーションで
“次の処理まで○秒待つ”という処理をさせたいんですが
どう記述すればいいのかわかりません。

waitさせたいと言ったほうがわかり易いでしょうか。
ご教授お願いします。

　　　 ∧＿∧　　　　／￣￣￣￣￣￣￣￣￣￣
　 ◯（ ´∀｀ ）◯　＜　今日は色々あって楽しかったモナー
　　 ＼　　　 ／　　 │
　　　 |⌒I、│　　　　＼＿＿＿＿＿＿＿＿＿＿
　　　（＿） ノ
　　　　　 ∪
　　　　　∬

>339
251で書いてあることを使えばどう？

コンソールアプリならSleep(1000)で1秒止める、とかでいいんでねすか

>>332
改めて自分の質問を読んだら　わかりずらかったです　済みませんでした。

336さんのお答えのような物を求めていました。
本当にありがとうございました。

335さん。　それぞれの求め方は分かるのですが、関数として別フォームで扱いたいと言うことでした。
たしかに伝わりずらかったと思います。　すみませんでした。

ActiveXコントロールってさ、勝手にフリーソフトとかでつかっちゃっても
いいものなの？

そのコントロールのライセンスによるんじゃないの？
配布権とか。

>>340-341
>>251を見てみましたが、何が書いてあるのかさっぱりわかりませんでした。
なので、とりあえずSleepを使う事にします。
ありがとうございました。

すげえDelphi。
ネイティブだよネイティブなんだよ。
おいら感動して眠いよ。

フォームにfsStayOnTopってありますよね？
あれ、ひとつだけフォーム表示してる時は機能してるんですけど、
二つ目のフォームを表示させると後ろにまわっちゃうんですが、
常に前に表示するにはどうしたらいいんでしょうか？

間違ってsageてしまった…

>>347
ShowModal で表示したときのこと？
それなら呼び出し元フォームが前になっちゃまずいよ。

>>349
言葉足らずですみません。そうですShowModalで呼び出した時です。
フォームが一個の時は常に手前に表示されるんですが二つ目のフォームを出したとき、
両方のフォームが他のウィンドウの後ろにまわっちゃうんです。
呼び出し元と呼び出したフォームの前後関係を変えないで、他のウィンドウより前に出したいんです。

>>350
SetWindowPos API 使えばいいんじゃないかな。
例えば Form2 を前面に表示させたければ、
　SetWindowPos(Form2.Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);
のように呼び出すとかして。
ただ常に前面で表示されている保証はないけど。

ＴＳｔｒｉｎｇＧｒｉｄって、直接入力できますか？

>>352
もっと具体的に書いてくれ（;´д｀）

>>352
ObjectInspector で Options の goEditing を True にすればできる。
& goAlwaysShowEditor=Trueで常に入力キャレットが出ている状態にすることもできる。
ちゃんとヘルプ読んでるのかい？
このくらいのことはヘルプ見ればわかることだと思うよ。

>>354　まあ、初心者スレだから

>>352　でも、354の言うとおりだよ
必要なコンポーネントについてはヘルプに目を通して
何ができるのか把握することから始めましょう

>>353-355
ありがとうございました。
これからは、きちんとヘルプ見ます。

>>351
できました。両方共最前面表示できました。
ありがとうございます。
今度はForm1がVisible=Falseになってる状態で同じ事をやろうとしたんですが、出来ません(;´Д`)

>>357
>今度はForm1がVisible=Falseになってる状態で同じ事をやろうとしたんですが、出来ません(;´Д`)

以下のようにするとＯＫだったよ。

・Form1.FormStyle を fsStayOnTop にしておく。
・Form2.FormStyle を fsStayOnTop にしておく。
・Form1.OnShow ハンドラを以下のように実装する

　　procedure TForm1.FormHide(Sender: TObject);
　　begin
　　　Application.NormalizeTopMosts;
　　end;

・Form2.OnShow ハンドラを以下のように実装する

　　procedure TForm2.FormShow(Sender: TObject);
　　begin
　　　SetWindowPos(Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);
　　end;

これで Form2.ShowModal する前に Form1.Hide しても前面に出るようになったけどね。

テストコード）
procedure TForm1.Button1Click(Sender: TObject);
begin
　Visible := False;
　Form2.ShowModal;
　Visible := True;
end;

訂正
誤）・Form1.OnShow ハンドラを以下のように実装する
正）・Form1.OnHide ハンドラを以下のように実装する

>>358
おおっ！！出来ました。
ありがとうございますヽ(´ー`)ノ

Application.NormalizeTopMostsは気が付かなかったです…。

RAS接続しているかどうかを判定したいんですが wininet.dllを
使えばいいんでしょうか？

http://homepage1.nifty.com/~suzuki/delphi/wininet.html
にそれらしいやり方はあるのですが、
例えば↑にあるIsGlobalOfflineを使ってみようとして
LANにぶら下がっておらず、ダイアルアップ接続もしていない
環境で試してみましたがFALSE（接続している）が返ってきてしまいます。

http://members.jcom.home.ne.jp/monazilla/document/wininetdel.html
　これでダメなら折れしらない。
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 〜|　　| 　　 Indyにはそういうのないの？
　　　　Ｕ Ｕ

三本柱が一本になってしまった…。

>>363
誤爆？

ボーランド株式会社が Delphi/CBuilder を捨てて JBuilder に
傾いていることをいっているの？

>>362
やはり接続できない状態にも関わらず「接続できるよ」になってしまいます。
これってなにをもって「接続できるよ」って判定してるんでしょね？

やはりRASが動いているかどうかでチェックしたほうが確実っぽいです。
しかしその方法が見つかりません・・・

↑のほうでPersonalでTUIWebBrowserを使おうとしてた者ですが…。
タイプライブラリの取り込みがよくわからないままいろいろやってたんですが、
何とかTWebBrowserは取り込むことが出来ました。
ただ、Professional版とはクラス名とかが違う？ので、Pro向けに書かれたコンポとかはかなりソースを修正しないと
インストールできないみたいです。これからチャレンジしてみます。

3行しかコードを書いてないのにブラウザもどきができてちょっと感動。

TUIWebBrowserのインストールにも成功しました。
コンパイル指令を書き換えて、要求するパッケージ名を書き換えたらできました。

これでパソナるでも色々遊べる〜。

パーソナル（無償ＤＬ版）と無償じゃないヤツの違いってのは、
シェアウェアを作っちゃダメ！ってことだけでやんしたか？
詳しい違いを書いてるページは御存知無いでしょーか？

>>368
残念ですが，パーソナルは有償版と無償版は全く同一です。
・印刷されたマニュアルがつくかどうか
・IE5.5 が収録されているかどうか
この二つ以外はバイナリも同じ。ライセンスも同じです。

パーソナルは有償版でも，それで利益を得てはいけません。

>>369
ありがとザマス。
あら、一緒ザマスか…。
なんか、まだまだ入手したてで全然分からんので遊んでるだけなんだけど、
「『Controls.pas』があらへん」って怒られますのんや。
で、無償版はファイルが足らへんのでは？と思いましたドスエ。

>370
Controls.pasは付いていませんよ。
Controls.dcuがあるフォルダへのパスを設定していないのでしょう。

普通にインストールすれば、問題無いと思うのですが。

>>371
はれま！たびたびありがとザマス。
そーですか…。うーむ。やってみまふ。
どーもです。

>>366
TWebBrowser
TUIWebBroeser
のインストール方法教えてください。

TWebBrowser を用意してから
TUIWebBroeser をインストールします。

TWebBrowserは

コンポーネント＞ActiveX コントロールの取り込み

からでいいんでしょうか？

　　　　　　　　　　∧ ∧
　　 ∧ ∧　　　 (´Д｀* )
　　(*´Д｀)　　（　　　　　）
　　./　　|／￣￣￣￣∧ ∧
〜（＿ ∧ ∧　　　　 (´Д｀*)
　　／_(*´Д｀)＿／　（UU　）〜
　 ||￣/　　|￣￣||／┌───────―――
　 ||, （＿__ﾉ　　　||　＜　　そうだモナー >375
　　／　　　　　　　　 └───────―――

僕は今の時代のアプリケーションはアイコンが全てだと考えます。
どんなに性能の良いアプリケーションでもアイコンが悪いと糞以下の存在になると思います。
また、どんなに性能の悪いアプリケーションでもアイコンがよければすべて良しということになると思います。
そこで、ｶｺ(・∀・)ｲｲ！アイコンはどうやって作ればいいのでしょうか？

>377
ｶｺｲｲアイコンが出来るまで、アイコンを描く。

TWebBrowserインストール方法。
タイプライブラリの取り込み、またはActiveXコントロールの取り込みを使ってMicrosoft HTML Object Library(Version 4.0)
とMicrosoft Internet Controls( Version 1.1)を取り込む。
すると、コンポーネントパレットのActiveXページにScriptlet, WebBrowser_V1, WebBrowserというコンポーネントができるはず。

次に、TUIWebBrowserのインストール。
ダウンロードしたファイルのDelphi6のディレクトリをどこかライブラリパスの通っているところに置く。（置いたところに通す）
次にソースを修正する。
UIWebBrowserPG.dpkをエディタで開き、requires vcl, vclie; となっているがvclieを消す。
その上に{$IMPLICITBUILD OFF}というコンパイラ指令があるので、{$IMPLICITBUILD ON}と書き換える。
UIWebBrowserPG.dpkをDel6で開き、インストールボタンを押す。するとあちこちでコンパイルエラーがでるので、該当ソースの
uses節の、ShellDocVWをShellDocVW_TLBと書き換える。すべて書き換え終わったらコンパイルが通ってインストール終了。


以上だったはずです。よくわかってない初心者の書くことなので鵜呑みにはしないでね。
詳しい人は捕捉してくれるとありがたいです。

あ、もちろん↑の記述はDelphi6 Personal版にインストールするときのことです。
Pro以上にインストールするときはソースの修正、タイプライブラリの取り込みは要らないはずです。

>>377
・その１
ドット絵を学ぶ。
del付属のイメージエディタは激烈に使いにくいので、
ちゃんとしたドットエディタを使う。

・その２
画像加工を学ぶ
ドット絵がかけなくても、大きめに絵を書いて
フォトレタッチソフトで縮小してその後また加工して調整。

オレは、両方併用派

>>379
ありがたい。
pro版ユーザーだけどインストールできなくて困ってた

＞uses節の、ShellDocVWをShellDocVW_TLBと書き換える。すべて書き換え終わったらコンパイルが通ってインストール終了。

　　　∧ ∧ 　　　　／
　　　( ﾟДﾟ)　　　＜　Pro版ならIFDEF VER130を IFDEF VER140に変えると
.=| |==U=U==.| |= ＼よさそうです。
　| | ｜　 |　　| |
　| | ﾉU U.　　| |
　| |　　　　　 .| |

Del5ラーニングからDel6パーソナルへの移行はどんなメリット、（＆デメリット）がありますか？

>>379
そんな面倒なことしなくても、アチキ、Ｄ６無償ザンスが、
インストール出来たんですが…？
はて？
それしないとインストール出来ないんじゃ、アチキにゃ入れられないっスよ。

>Delモナさん、366さん

ありがとうございます。
TUIWebBrowserは「vclieが見つかりません！！！」
とか言われてインストールできなかったので、助かります。

vclieを消せばよかったのね。vclieって何のためのものなのかな？

アチキの面目丸つぶれ（藁
おかしいなー？？
普通に入ったけど。何が普通かよく分からんが。
ま、いっか。
vclieってナニ？そんなこと言われなかったなぁ。

379の書いたとおりにしても「ShellDocVW_TLB.douが見つかりません」って怒られるんだけど…
何でだろう？

C:\Program Files\Borland\Delphi6\ImportsにShellDocVW_TLB.pasとかdcuとかはある？
なかったらタイプライブラリの取り込みが出来てない。

「SHDocVw_TLB.pas」ってのはありますな。
ｄｃｕもありまふ。
不思議だ。

>>390
インストールしたんじゃないのか？

>>391
書き方が悪かったザマス。スマソでございます。
「vclieが無いわよアハン」とも言われないし、
何か複雑な書き換えもしなかったのに、インストール出来たのが不思議だと…。
つーか、不思議不思議言うてても意味無いので、アチキはこのネタはこれで終わりにしまッソ。
失礼おば。

Delphi6パーソナルをインストールしようとしたら
インストーラーがページ違反(モジュールKERNEL32.DLL)してしまった。
インストールは続行出来そうなんだが、俺の環境が腐っているのか？

>>393
常駐全部外しても、それが出るんなら腐ってるのかもな。

>>393
どこら辺で落ちたんだ？
多くの製品が使っている Windows Installer なんだから環境の方に
問題があるんだと思う。

>>392
典型的な役に立たない通りすがり。
いや，2ch だし悪いとはいわないよ。

>>396
役立たず発見！

>>396
すいませんねぇ。役立たない通りすがりで。
アンタのくだらねーレスも同じってことで、ひとつ。

>394-395
おぉ、優しい方サンクス。
インストーラークリック一発でページ違反が2回。
その後、ファイルの保存場所を聞いてくる。
とりあえず常駐とっぱらってインストールしてみますです。m(__)m

>399
ファイルが壊れているのかもしれませんわ。

たぶん関係ないけど　Win9x なら IME を MS-IMExxx に。

>>401
俺、ＡＴＯＫ。無事インストール。

>>393
もしＤＬしたヤツで、ファイル壊れてるんなら
今月号のテックウィンに付録で付いてるよ。
俺それでインストールして何事も無かったよ。

TListView の OnSelectItem イベントなんだけど、
これってクリックして選択した後に一回だけ起きる？
何か2回起きてるんだけど。
しかも、右クリックでも起きるし。

行間が空いていないメモ帳のようなものではなく、Outlook Expressの
メール本文のように行間が空いているテキストエディタを作りたいのですが、
どうやればテキストボックスの行間を設定できるのでしょうか

>>403
一回目のは選択解除されたとき(Selected=False)
２回目のは選択されたとき(Selected=True)のイベント

>>494
シェアウエアでよければ
ttp://member.nifty.ne.jp/~katsuhiko/

のTEditorを使えば マージンの設定が出来ますよ

StringGridのセル内文字列の左右中央寄せってどうすれば設定できますか？

現在レコード型を利用してファイルアクセスを行っています。
これをクラスにして見通しを良くしようと思うのですが
(ファイルアクセスを行うのはこのクラスのみにしたい)
どのように記述すればよいのでしょうか？
クラスのprivate部にレコード型の定義を記述するとエラーが出るようなんですが...

>>400-402
常駐とっぱらって、Borlamdとベクターか数回ダウンするもクリック一発ページ違反へようこそ。

環境腐ってるみたいだ・・・逝ってきます。
アドバイスくれた方サンクス。

>>409
そっかー。残念。雑誌からインストール試してもダメなら
いよいよ環境がマズいかもね。
メモリ周りとかは？

>>406
レス有難うございます。確かに行間の設定は出来ましたが
プロポーショナルフォントが正常に表示されないのはちょっと・・・
もう少し自力で探してみます

>>407
TStringGridを継承してDrawCellをoverrideするところかも

procedure TStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);
begin
if DefaultDrawing then
Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2, Cells[ACol, ARow]);
inherited DrawCell(ACol, ARow, ARect, AState);
end;

このCanvas.TextRectで描画位置を調整するとよろしいかと・・・
文字列の巾・高さはCanvas.TextExtentで求めるべし
（あとは自分でバンバン）

追記（ここは初心者スレだった）
やりかたが分からなければ「初心者にはちょっと早かった」ということで
納得しましょう
412のはコンポーネントを作るとういことだからね

１．DelphiからOLE使ってExcelにデータはく。
２．Excel閉じる。
３．１をもう一度する。→Delphiアボーン！

ってなるんだけどどうすりゃいいの？

>414
Excelのバグでは？

>>405
おお、謎は全て解けた！ありがとう！

>>411
>プロポーショナルフォントが正常に表示されないのはちょっと・・・

　∧ ∧　 　／TEditorはギコペにも使われているから
　(,,ﾟДﾟ)　＜　そんなこと無いと思うけど。
　 |つ つ　　＼
＠|　　|
　 ∪∪ ｼﾗﾅｲｹﾄﾞ

右寄せStringGridの例だよ

procedure TRightStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
var
　oSize : TSize;
begin
　oSize:=Canvas.TextExtent(Cells[ACol, ARow]);
　Canvas.TextRect(ARect, ARect.Right-oSize.cx-2, ARect.Top+2, Cells[ACol, ARow]);
end;

>412 ,>418
どうもありがとうございます。まだよく分からないレベルなんですけど、
わかるまでレス保存しておきます。

ttp://homepage1.nifty.com/fuu/software/nonfreecursor.htm

Delphi パーソナルＤＬしてみた。
おー！？マウスをクリックするとHello world!の
文字列がたくさん（驚

わーい。
パソナルでもフリーカソル無効にできるようになたよ。

>>404
海外モノですがTRichEdit98というコンポがあります．
Windowsのリッチエディット２．０をコンポ化したもので，
設定無しで行間があきます．
ただ，日本語処理では一部バグがあるようですし，
Delphi5以降ではソースの修正が必要かもしれません．
サイトの場所は失念したのですいませんが検索エンジンで探してみてください．

>>407
WindowsのAPI，DrawTextを使う方法があります．
以下はTStringGridでCells[]の内容を右寄せ表示する例．

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
// Rect を周囲１ピクセル縮小（Windows API）
InflateRect(Rect, -1, -1);
// デフォルトの描画を一部塗りつぶして消す
StringGrid1.Canvas.FillRect(Rect);
// Cells の描画（Windows API）
DrawText(StringGrid1.Canvas.Handle,
PChar(StringGrid1.Cells[ACol, ARow]), -1, Rect,
DT_NOPREFIX or DT_RIGHT);
end;

DT_RIGHTをDT_CENTERに変えるとセンタリングになります．

縦のセンタリングや下寄せ，ワードラップの機能もあります．
詳しくはAPIのヘルプを見てください．
編集画面でDrawTextにカーソルを移動してF1キー，

>>424
補足．これはTStringGridのOnDrawCellイベントです．

質問させてください。
Delphi6Personalを使ってプログラミングを勉強しようと思うのですが、
その手の本が、まだ5までしか出ていませんよね。
過去スレを眺めてきたのですが、差はないから、という声もあがっていて、
Delphi5入門本で代わりになりそうかな、とも思ったのですが、
これから出るであろう、Delphi6入門本を待ったほうがいいのかな、とも思いました。
Delphi使いの方々に、どちらがいいのか聞いてみたいです。

入門時には何度も繰り返し反復して勉強しないと覚えられないので
D5の本を買って、勉強して
D6の本が出たらまた買って勉強して
なんども同じような事を復習して学んだ方がいいと思います。
D6本を待つ必要はありません。

また、本当にD5とD6は差がないと思っていいです。

￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　　ﾋﾋﾞ ﾍﾞﾝｷｮｳ
　　　(,, ﾟДﾟ)
　　　ﾉつl⌒|⌒l
　〜(.＿［￣￣￣.］
　　　　　　￣￣￣

質問なんすが・・・
DataType = array[0..7] of byte;
TData = class
Data : DataType;

てなときに
　　for i:=0 to 7 do data2[i]:=TMydata.data[i];

みたいなことができないのはなぜ？
コンパイルは通るけど実行するとエラーになる？？？？
わけわかめ

>>427
レスありがとうございます。
わかりました、まずはDelphi5入門本を買ってやってみることにします。

>>428
var TMyData:TData ;
なの？

TMyData:=TData.Create;
with TMyData do
try
　for i:=0 to High(data) do data2[i]:=data[i];

finally Free;end;

感謝age

Delphiは入門本よりTips本の方がオモシロイＮＥ！

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　画像貼り込むと大きくなるんです（当然
　 U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪

画像を無圧縮Bitmapでリソースに入れておくと
当然実行ファイルが大きくなっちゃいますが、
内部に圧縮画像として持たせる方法ってありますか？

type TStatus = ( A, B, C, D );
var Now : TStatus;

みたいに定義してある状態で

if Now in ( A, B ) then

みたいにやることって出来ますか？

if (Now = A) or (Now = B) then

ってやるしかないのでしょうか？

>>434
inまで発見できてるのならもう一歩ですな。
if Now in [A,B] then

>>433
Jpeg 使えば劇的に小さくなるが。

　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　久しぶりだモナー
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）

>433
DelphianWorldに[圧縮保存機能付イメージコンポ]ってのがあるから
それを使うとPNG並に小さくなるよ。と言うかZLib使ってるからねえ・・・。

>>435
（）ではなく[]でしたか！
ありがとうございます。

EXEをUPXで圧縮というのは後ろ向きかな？
リソースのbmpとかは圧縮効かないのかな？

>>435
度々すいません。

if Now in [A,B] then
の「A,B」の部分を引数としてもってくることは出来るのでしょうか？

start( [A,B] );

procedure start( var ST:??? );
begin
　if Now in ST then

のような感じに・・・。
このへんってマニュアル読んでも見つからないので。

　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　集合型です
乙,,＿_つつ.　　＼＿

type TStatus = (A, B, C, D)
　　　TStatusS = set of TStatus;

procedure start( var ST:TStatusS);
begin
　if Now in ST then

>>441
うう、なんか順序型と集合型の使い方がわかんなくなりました。

type Status = ( A, B, C, D );
var Now : Status;
〜
という「現在の状態を記録するもの」を用意しておいて

Now := A;
現状を記録して

・現状が「A or B」なら実行
・現状が「A or B」でないなら実行
とやりたい。そしてこの条件は引数で指定したいわけです。

if 〜 else if 〜 よりか
case of 〜
のがスッキリした記述になるから順序（集合？）にしたんですが、
なんか stringで if 使ったほうがいい気がしてきました。（TДT；）

自分で書いててなにがなんだか。

>>442
集合型なら
　type Status = set of (A, B, C, D);
でしょう。

>・現状が「A or B」なら実行
　if Now = [A,B] then
　　...

>・現状が「A or B」でないなら実行
　if not (Now = [A,B]) then
　　...


ちなみに型名の頭には T を付ける慣習があるので、
付けるようにした方が見やすいよいと思います。
あと集合型の名前の末尾は s が付くようにした方がよいでしょう。
Delphiで定義している集合型と列挙型の名前を参考にしてみれば
よいと思います。

ギコスレはレベル高いのでこちらで質問します。
よろしく

すいませんが質問です。

チュートリアルに

「コンポーネントパレットの［Additional］ページにある ActionManager コンポーネントを
　ダブルクリックして，フォームに配置します。このコンポーネントは非ビジュアルなので，
　フォームのどこに配置してもかまいません。」

って書いてあるんだけど、［Additional］には

BitBtn、SpeedButton、 〜、ColorBox とあるんだけど、ActionManagerはありません。
これってどういうことなんでしょうか？

[Additional] に ActionManager あるよ。
pro版使ってるけど。

整数(Word)を実数(Extended)にキャストするには？

>>445
ＣＬＸアプリのときはないね。

キャストなんて出来ないよ・・・

>>447 キャストの結果どちらをお望みですか？

１）整数の値をExtendedにしたいなら単に代入すれば大丈夫です
２)内部のビット情報をそのまま移動する　abosolute で別の変数を同じアドレスにする
　　か record で case を使う
　ただし、ビット幅が違うので無意味です

>>450
質問をいろいろ間違えてました。すみません。
Sec : Word;
x,y,r : Integer;
なときに、
x := r * Cos(2*Pi/(Sec/60) )
をやりたいのです・・・

x := floor(r * Cos(2*Pi/(Sec/60) ))でとおると思う人ー

ふーん
x := r * Cos(2*Pi/(Sec/60) )
こういうのVBだととおるんだねー

>>453
すんません。Cでも通ります。ほんとすんません。

>>452
Truncというのを使うことにしました。
Floorは未定義とか言われて弾かれました。ごめんなさい。

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　みんな面倒がって説明しないけど、
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
>>445
超外出で、ﾁｭｰﾄﾘｱﾙの記述ミスです。

なんとか自分で工夫してみてくれ。

>>446
どのボタンの間にあるんですか？

>>455
ありがとう

>>456
ActionManagerはPro版とEnt版のみです
（Delphi6バージョンアップ案内の機能一覧より）

>>458
なるほど、ありがとうございます。

TImageでいろいろ書いたのをアイコンにしたいです。
やり方がわかったらここに書きます。

>>443

>>・現状が「A or B」なら実行
>　if Now = [A,B] then
これは「A and B　なら実行」になってしまうのではないでしょうか？

あと、 case でスッキリ書くことを目的とするならばやはり
集合じゃなくて順序になるんでしょうか？

しかし大きなヒントを得ることができました！
ありがとうございます。

ちなみに VBを使っていたクセで「intInteger、strString、prcProcedure」
みたいに型を頭に付けるようにしてます。

>>437
圧縮保存コンポ探してみるです。Thx!

だめだ・・・さっぱりわからないです。
TIconはファイルまたはストリームからしか設定できず、
TImageはそのどちらにも出力できないですよね？

hInstanceはvarのところに定義しなくても使えるようですがなんで？

>>463
TImage.Picture.SaveToFile(const FileName: string);
とか
TImage.Picture.Icon.SaveToStream(Stream: TStream);
とかあるけど・・・

>>464
定義済み変数のひとつです（所在はSysInit）

>>465
ありがとうございます。で、さっそく

iconStream : TMemoryStream;

Image1.Picture.Icon.SaveToStream(iconStream);
Application.Icon.LoadFromStream(iconStream);

として実行してみたところ、

ソースパスが見つかりません
Graphics.pas

といわれてしまいました。
ライブラリか何かを指定しなければならないのでしょうか？

>>466
定数じゃないんですよね。
その管理とかをしなくても、必要なときに使って問題ないんでしょうか？

>>468　全然問題ないです
VCLの中でも実際に使われています
（CreateWindowExとかで）

>>467
uses の中に Graphics が入っていないとか？
（Formを使っていれば自動的に書かれているはずですけど）

>>470
usesの中にはGraphicsは入ってました。

ここで無いと言われたGraphics.pasというファイルは、検索しても
確かにありませんでした。
ライブラリかなんかのソースだと思うんですけど、
Delphi6のPersonal版にはついてないんですかね。

で、ためしにコンパイルして実行してみたところ、
アイコンイメージが不正です
といわれてしまいました。
どこか致命的なミスがあるんでしょうね・・・どこでしょう。

>>433
リソースって，リソースファイル？それとも設計時にイメージコンポにいれちゃうこと？

前者ならどんな種類のWindowsビットマップでも読み込めます．
イメージコンポはＤ５以後だとＤＩＢやＪＰＥＧのイメージをそのままの形で格納するようになったようです．

ちなみにＤ５はＲＬＥの読み込みができないバグがある．要アップデート．

違った・・・usesにGraphicsが入っていなければそのメッセージはでないものね
誰かHELP!

>>471
>アイコンイメージが不正ですといわれてしまいました。
Imageコンポーネントへ絵を読み込んだ時
オブジェクトインスペクタのPictureが(TIcon)となってないと駄目みたいですね

>>469
ありがとうございました。
これで気兼ねなく使えます（ｗ

>>474
どもです。

Imageコンポーネントに絵を読み込んでるのではなく
自分でまるとか三角とかを描いてるんですけど
そういう場合はアイコンに出来ない、ということでしょうか？

　　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
（　´∀｀）　＜　最近、気が抜けて駄目だモナー
/）wwｗ）　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
'｀∨∨´
　 ＾　＾

>467
ttp://www.users.gr.jp/ml/archive/Delphi/46147.asp
これは、どう？

>>477　参考になりました
イメージリストを使うとは思いつきませんでした
CreateIcon APIでしこしこやるしかないかと思ってましたけど

いずれにせよ初心者スレのレベルを越えてますね

>>477
ありがとうございます。
で、そこを参考にアイコンをまずビットマップに描き、そのあと
ico := TIcon.Create;
il := TImageList.CreateSize(bm.Width, bm.Height);
il.GetIcon( 0,ico );
Application.Icon.Assign(ico); ★
としてみたところ、変な四角がアイコンに設定されてしまいました。

ためしに★部分を
ico.SaveToStream(iconStream);
Application.Icon.LoadFromStream(iconStream);
としてみたところ今度はアイコンイメージが不正、となってしまいました。

う〜ん。あともう少しっぽいなぁ

>>478
私はまだDel2日目の初心者です。if文も書いたこと無いです。
CやJavaなら少しできるけど・・・

>>479
アイコンが本当に出来ていないのかどうか SaveToFileメソッドで
外部に保存して確認してみたところ、きちんと生成できていました。

というわけで、Application.Icon にアイコンを設定するところが
まずかったようです。

Personal版だから・・・なんてことは多分関係ないですね。

ico.SaveToFile('e:\tmp\test.ico');
Application.Icon.LoadFromFile('e:\tmp\test.ico');

のように、外部に一度保存したアイコンを読み込むようにしたら
設定できました。
できれば外部ファイルを使わないで済むいい方法を考えます。

これで最後の書き込みです。
il := TImageList.CreateSize(32, 32);
il.GetIcon( 0,Application.Icon );
と、直接放り込んだらうまく行きました。ありがとうございました。

>>461
オレは状態の保持によく順序型をつかってますがなにか？

type
　TStatus = (sYes, sNo, sMakura);
var
　Status: TStatus;

Staus := sYes;

if Status in [sYes, sMakura] then begin
　：
end;

case Status of
　sYes: ;
　sNo: ;
　sMakura: ;
end;

他にもっとエレガントな方法ないかね。

>ちなみに VBを使っていたクセで「intInteger、strString、prcProcedure」
>みたいに型を頭に付けるようにしてます。
ハンガリアン記法はMSがよく使ってるけど、あまり言い評判はきかないね。
オレはPointer型のときにpつけるぐらいかな。
あとはVCLのソース風にしてる。

VCLって何？

>>485
Visual Component Library
ネタ?

TThread使っているのですが、あるスレッドではprocedure宣言がちゃんと
出来るのに、もうひとつのスレッドでは「未定義の識別子」と言われてしまいます。

type
　TMyThread = class(TThread)
　public
　　procedure SetConfig(var S:String); 　// ここだと「未定義」
end;
procedure SetConfig(var S:String); 　// ここだと通る
〜〜〜〜〜
procedure TMyThread.SetConfig(var S:String);
begin
　〜
end;
〜〜〜〜〜
procedure Foo;
begin
　SetConfig('A');
end;

のように書いてます。
しかしTMyThreadの定義の外に書いて、「TMyThread.」を消すと
コンパイル出来るようになります。
これはどのような違いなのでしょうか。

>>487
説明がいまいちよくわからんのだが、
とりあえずスレッドの前に覚えることがたくさんありそうだな。

オブジェクト指向言語は初めてか?
クラスとかスコープとかメソッドとかわかるか?
なんかの参考書でもう少しObject Pascal勉強すれ。


位置から説明すると大変なので、とりあえずヒントを出しておくと。。。
スレッドのオブジェクトは生成してるか?

MyThread1 := TMyThread.Create(False);

とかしていてそのオブジェクトがスコープの範囲内なら

MyThread1.SetConfig('A');

でいける。がんばれ。

>位置から説明すると大変なので、とりあえずヒントを出しておくと。。。

一からだな。

>>488
説明ヘタですいません。（汗
とにかく実践してみてわからないとこがあったら調べるということをやってるので
スコープ、クラス、継承などは浅い理解しかありません。

TMyThread.Create(False);はしてあります。スコープという言葉をヒントに

procedure MyThread.ProcTest;
begin　〜　end;

procedure MyThread.Execute;
begin
　ProcTest;　// コンパイル通る
end;

なるほど。同じ MyThreadの範囲でなら大丈夫なのですね。
今作っているのが３つのUnitに別れてまして、

Unit1（MyThread1 を作成）
↓　スレッド起動
Unit2（MyThread2 を作成）
↓　スレッド起動
Unit3

そして Unit3 の中に MyThread2 の内容が書かれています。

Unit2 から MyThread2.ProcTest を呼び出すことは問題なし。
これは Unit2 内で MyThread2 を作成しているから、という理解でいいでしょうか。

問題となっているのは、 MyThread2.ProcTest を Unit1 から
呼び出そうとしている時だったのですが、MyThread2 は Unit2 から
作り出されるものだから Unit1 から見えない場所にある。
これがスコープ範囲外ということなのでしょうか。

そして
type TMyThread2 = class(TThread)
の定義外に書くということは TMyThread2 のものではなく、
プロジェクト全体のグローバルな関数になる。

正しい理解ではないかもしれませんが、なんとなくスコープというものが
わかったような気がします。

スコープとは・・・

unit ...;

interface

uses ...;

type
　TFoo = class
　　// デフォはpublic．
　　procedure ...;
　private
　　// クラス（実装部）の内側か，同一ユニットでのみアクセス可．
　　procedure ...;
　protected
　　// ほぼprivateと同様．但しユニット外からでもサブクラスであればアクセス可．
　　procedure ...;
　public
　　// どこからでもアクセス可．
　　procedure ...;
　published
　　// ほぼpublicと同様．実行時型情報を持たせるための物．
　　property ...;
　end;

var
　// 他ユニットからアクセス可．
　...;
const
　// 同上．
　...;

implementation

var
　// ユニット内でのみアクセス可．
　...;
const
　// 同上．
　...;

procedure ...;
var
　// 手続き，関数内でのみアクセス可．
　...;
const
　// 同上．
　...;
begin

end;

end.

だいたいはこんなもんだと思うけど，
間違ってたら誰かつっこんでくれ．

TImageでアニメーションをさせようとしているのですが、
再描画の際にちらついてしまします。
これってどのようにしたら回避できるのでしょうか？

for i := 0 to 10 do begin
　ImageList1.Draw( Image1.Canvas, 0, 0, i );
　Image1.Refresh;
end;

googleって探してるのですが
いまいちこれという回答が見つかりません。

Image1.DoubleBuffered := True;

ありがとうございます。
Image1.DoubleBuffered := True;
だと未定義になりますが、DoubleBufferedで調べてみたら
http://www.users.gr.jp/ml/archive/delphi/51536.asp
を見つけました。

Form1.DoubleBuffered := True;
とすることでちらつかなくなりました。

>>485
Visual Component Library（びじゅある こんぽーねんと らいぶらりー）の略．

ライブラリーっていうのはプログラミングの世界では
あると便利なプログラムの部品みたいなものを集めたもののこと．
あらかじめ用意されているものは特に基本ライブラリーといわれたりします．
ＶＢとかだとエディットもボタンも言語の一部だけど，
他の言語ではたいてい，基本的な命令や関数以外は基本ライブラリーの形を取っています．

コンポーネントは説明不要ですよね．
エディットコンポ，ボタンコンポ，タイマーコンポ，…その他もろもろです．

ビジュアルというのはここでは
エディットやらボタンやらを実行時と同じイメージで
ポコポコ貼り付けられること．
びじゅあるべーしっく（ＶＢ）のびじゅあると同じ意味．
ただし『びじゅあるしぃーぷらすぷらす』（Visual C++）は
なまえこそびじゅあるですが実際は全くそんなことはないので要注意．


>>486
わからなくても無理はないと思うな．

最初に始めた言語がＣとかなら別ですが
BASICやDelphiだったりすると
『基本ライブラリ』などという概念を意識することはないでしょうから．
※BASIC系だと意識しない，以前に全てが言語仕様なので
　『基本ライブラリ』自体存在しない…はず．

Delphi6personalとそれ以外の違いは？
ネット上のフリーのコンポーネントをインストールしようとして、
できないのが多い。
vclieとかfileutil.pasがないと怒られる

　　≡　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣
　　　≡（　´∀｀）＜　JAVA勉強中だモナー
　　≡　（　つ＝つ　＼＿＿＿＿＿＿＿＿＿
　　　≡｜ ｜ |＼
　　　≡（_＿）＿）＼
　≡　◎￣￣￣￣◎

>492
俺は、Form.CanvasにBitbltで直に書き換えている。
バックバッファも自分で管理。面倒だけど自由度あがるしね。

>496
俺もコンポーネント作っているが、エディションに依存するような
コンポーネントは書かない。そもそも使っているのがPersonalだからだけど。
作者に頼んで改良してもらうとかしてもらおう。
それでもダメなら問題個所を修正してしまうのが良いかと。

personalにないファイルを他人から貰うとやばいの？
ていうかフリーのコンポーネントの中に、personalにないが他のエディションに
入ってるファイルを一緒に入れてるのがあったが。
ゴメン、Ｄｅｌｐｈｉは使い出したばかりでもっと勉強してから聞きます

>personalにないファイルを他人から貰うとやばいの？
やばいよ。完全なライセンス違反。
Borlandユーザに犯罪者はいらん。

>>496
vclieってTWebBrowser関連？
それだったら上のほうで回避策が載ってる。

「はじめてのDelphi」にかいてある、
｢ラベル｣っつーのが、Del6personalには無いような気がするんだけど。
どこにあんの？
わかんないんで、StaticTextとか言うやつで代用してる。
ま、それでいまんとこ問題ないけど。

[Standard]のAって書いてあるやつだよ。

鬱だ…
こんなもんも見つかんなかったのか…
目の前じゃねーか…

ちなみに、
LabelとStaticTextって、どう言う風に使われるべきものなの？
「はじめての〜」やった限りでは、
同じように動いてんだけど。

>>504
>TStaticText はフォーム上にテキストを表示するウィンドウコントロールです。
>
>ユニット
>
>StdCtrls
>
>説明
>
>TStaticText コンポーネントは TWinControl から継承されているためにウィンドウハンドルを持っていることを除けば TLabel に似ています。
>ActiveX のプロパティページのように，コンポーネントのアクセラレータキーがウィンドウコントロールに属さなければならないときは，TLabel のかわりに TStaticText を使います。

Personal使っているんですが、
FormatMaskText ってないの？
LightReport2　を組み込もうと思ったらFormatMaskTextが未定義ってでるんだよな・・・

class foo{
static int var;
};
みたいなのはどうすればいいのでしょうか？

>>507
言語が違うということは，実装方法そのものを変えなきゃいけない。ということ。
「みたいなもの」を何をするために使うの？
その内容によって答えも変わる

>500
TUIWebBrowserの話です
上で思い切りガイシュツだった・・
おかげでインストールできました
この板に感謝！

ただpersonalだからか分かんないけど
インストールできんコンポーネントが多いんだよね・・・
delphian worldにあったextmemoは速攻でインストールできたけど。
作るならリッチテキストエディタの当たりか？
テキストエディタは多すぎるから

FAQだね。Delphiだとやけに長くなる。
property使わずにTFoo_Value変数に直接アクセスすれば簡単だけど。

interface

type
　TFoo = class
　private
　　class function GetValue: Integer;
　　class procedure SetValue(const Value: Integer);
　protected
　　property Value: Integer read GetValue write SetValue;
　end;

implementation

{ TFoo }
var
　TFoo_Value: Integer; // TFooで使いまわす共通の変数

class function TFoo.GetValue: Integer;
begin
　Result := TFoo_Value;
end;

class procedure TFoo.SetValue(const Value: Integer);
begin
　TFoo_Value := Value;
end;

　　　　　　　　　　　　
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!
RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!RubyUzai!!

propertyという修飾子のところを勉強することができました。
ありがとうございます。>>510
Delphiを触りだして2日目なので勘弁してください。>>508

|
|＿∧　　ﾓﾅｰッ
|´∀｀）
|　 ／
| /
|/
|

みんな、元気にプログラミングやっているかモナー？

質問とか無いけど、無いことはいい事だ。
みんな悩んでいない証拠だからね。

人間悩むことをやめたら，それは堕落の始まりである（かもね）．

コードの記述についての質問です。
例えば、変数を宣言する時の記述ですが

１．var i: Integer;　// コロン（：）の右側に半角スペース
２．var i : Integer; // コロンの両脇に半角スペース
３．var i:Integer;　 // コロンの脇に半角スペース無し
４．var
　　　　i : Integer; // 改行あり

など、人によって記述がまちまちで、
どれを使えばいいのか、混乱してます。
“正しい記述”みたいなものはないんでしょうか。

>>515
ありません。

比較的その手の規制が厳しい C に比べて

元が教育用言語のpascalなので、
　極端な書き方さえしなければ　可読性を損なう事は少ないですから

あまり気にする必要はありませんよ >>515

Del使いは現行Pascal(Borland独自)が標準化されてない点に
ついてとか危惧したりしないの？
将来を不安がったり。
Borland無くなったら、それで終いよ？

>>518
プログラム言語は別に何でもいい
その時点でもっとも効率が良いと思われるツールを使うだけ

Del使いにはそういうスタンスの人が多いと思うけど

おまえらＶＣＬが無いと、なんにも出来ないもんな。

Delphiスレ一つにしろっていっとろうが!
そんなにDelスレ上げまくって楽しいのか?

何か作ろうとする度に、こういうコンポあります？とか言ってるもんな。

>>519
同意

　あっちのスレでまた始まってるよ はやくお戻り >520

早く某ランドが潰れないかなぁ

>>519
同意。EXEのみで動くという点でDelを使うことにした。

みなさん数学およびコンピューターサイエンスも忘れずに

>>522
車輪の再開発を出来るだけ避けたい、ということだから
むしろそういう姿勢は奨励されるのでは？

もちろん、無い時点であきらめる人はダメダメだと思うけどさ。

カーネルハッカが少ないか、ディストリビューションがないと何もできない
のね、とか、そんな感じ。

MyThread.OnTerminate := procedure;
みたいにイベント発生時のプロシジャーを指定しますが、
ここで引数を指定する方法はないのでしょうか。

MyThread.OnTerminate := procedure（'A','B'）;
みたいに。

受け渡したいものは事前にグローバル変数に値を入れておいて、
それを読ませるとか素直にやるしかないのでしょうか。

TMｙThreadのフィールドとして持たせればよい。
TMyThread=class(TThread)
public
a, b: Integer;
end;

MyThread.a := 10;
MyThread.Execute;

>>531
ううむ、やはり引数指定は無理ですか。
教えたいただいたように
TMyThread内のpublicに記述してやるようにします。

>>530
>>531 さんの方法でよいと思いますが
（フィールド変数はプロパティにしたほうがいいと思う）
もし引数を渡すイベントがほしいのでしたらそういうイベントを定義して，
継承したクラスに追加します．
以下は処理中の進行をあわせて発生するイベントの例．

TMyProgressEvent = procedure (Sender: TObject; Done, Count: integer) of object;

TMyJob = class(TObject)
private
FOnProgress: TMyProgressEvent;
protected
procedure Progress(Done, Count: integer); virtual;
public
procedure Execute; virtual;
property OnProgress: TMyProgressEvent read FOnProgress write FOnProgress;
end;

// 処理
procedure TMyJob.Execute;
var
i: integer;
begin
for i := 0 to 9999 do
begin
if (i mod 100) = 0 then
Progress(i + 1, 10000);
// 作業
end;
end;

// イベントハンドラが割り当てられていたらそれを呼び出す
procedure TMyJob.Progress(Done, Count: integer);
begin
if Assigned(FOnProgress) then
FOnProgress(self, Done, Count);
end;

Quick Startとかいう付属ドキュメント見てんだけど、
ActionMenuBarとかActionManagerとかActionToolBarとかが
Personalには付いてないの？
それ使いまくってるんだけど。
そんで見つかんなかったんで、
何か似てる感じのMainMenu,ActionList,ImageList,ToolBarを使ってんだけど。
これで代替可能なんでしょうか？
ドキュメントで言うとおりの挙動にはしたけど。
何かだましだましやってる感じがしてるんで、ちゃんと知っときたいんです。

Delphi 6 Parsonal を使うにあたってすごくわかりやすいチュートリアルってどこかにありませんか？

ヘルプのヤツって Personal 向けじゃないところがあって・・・

>>533
なるほど、イベントを自分で定義してしまうわけですか。
重要そうなので覚えておくことにします。

すいません、もうひとつ質問です。
例外処理についてなのですが

--------------------
procedure TMyThread.Execute;
begin
　proc0;
　proc1;
end;
--------------------
procedure proc0;
begin
　try
　　〜処理〜
　exception
　　ErrCode := 1;
　end;
end;
--------------------
というコードで、proc0内部で例外を起こし ErrCode := 1; に入りました。
ここまではいいのですが、何故かその後 proc1 まで実行してしまうのです。
残りはパスして TMyThreadを終了し、メインスレッド内にあるエラー表示処理に
とばしたいのですが継続実行されてしまうのです。

http://www.nifty.ne.jp/forum/fdelphi/faq/00236.htm
を見る限りでは exceptionを書かなければエラーフックしないので
素通りすると思っていたのですが。

ひょっとしてこれは TMyThreadというスレッドのルートで実行
しているからなのでしょうか？

>>536
「exception」→「except」ですね。

finally と 勘違いしてるように思うよ >>536

エラー処理(except内部)が終ったらその次から実行されるから
その次の隠れたexitを実行して、return するのが正解

>>536
エラー表示処理というのがよくわかんないが勝手に想像して書くと。

procedure TMyThread.Execute;
begin
　try
　　proc0;
　　proc1;
　finally
　　エラー表示処理（同期処理すること）
　end;
end;

procedure proc0;
begin
　try
　　〜処理〜
　exception
　　ErrCode := 1;
　　raise;// 例外再生成
　end;
end;

「exception」→「except」
間違い。
コピペしたままだった。

>>539
ありがとうございます。わかりました、「raise」でした。
exceptの中を実行して「例外じゃなくなったよ〜」っていう
状態になってたのですね。
raiseで例外再生成することで思い通りの処理になりました！

>>541
わかってよかったな。
エラー表示は同期処理しろよ。

>>516-517
返事が遅れましたが、ありがとうございました。

なんか書き込みがないな・・・

じゃあ書きます。
TListboxでhintを出しているのだが
セル（？）を移動してもhintは更新されない・・・
メーリングリストの例でもいまいち理解しきれんかったので誰か教えて・・・

実際aplication.cancelhintを使うタイミングも解らないし・・・

ヒントが出ているかどうか調べるプロパティがあれば処理できるんですが
ヘルプ探しても見つからなかったもので・・・

sageてどうするよ・・・

>>545
VCL のヒントは、デフォルトではコントロール単位に定義されている。
マウスポインタをのっけると「私はファイル名一覧でござい」と出るわけだ。
リストボックスの場合、各行はそのままユーザーに見えているので、
(たとえばリストボックスにファイル名が出ているとして)
sample.txt を選択状態にして「sample.txt」というヒントが出ても
別にうれしくないよね？

どの状況でどのようなヒントを出すべきなのかはある程度状況が決定しないと
決められないので、そこまで VCL として対応きれない。

>545
WM_MOUSEMOVEでは？

自己レス
例ですが、こんな感じでできました。
マウス動かすたびにパパパっとヒントの文字列が変わる・・・感動だ

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
listbox1.Hint:= inttostr(listbox1.ItemAtpos(point(x,y),true));
Application.ActivateHint(point(x,y));

end;

ヘルプ調べまくりー。
ヒントくれたおかげだかなんだかたどり着けました。
かまってくれてありがとうです。

スレッドの中からアプリケーション終了処理をさせようと
思ったのですが

Application.Terminate;

をやろうとすると未定義の識別子と言われてしまいます。
メインフォームのほうでは問題ないです。
スレッドの中からは終了させられないのでそしょうか？

>>550
Applicatoin が未定義なの？
Terminate が未定義なの？

>>550
uses Forms; ある？

>>551
未定義なのはApllicatironです。
情報少なくてすいません。（汗

>>552
あ、ヘルプのユニットのところに Formsって書いてありますね。
uses に Forms 追加で動作しました。
ありがとうございます。

スレッドからアプリケーション終了していいんか？

メインスレッド以外からApplication.Terminate呼ぶのはまずい。
中で呼ばれてるCallTerminateProcsで呼ばれる、登録されていた
終了関数の中に誤動作するものがあるかもしれない。

単にPostQuitMessage(0)するならそういう問題はなさそうだけど
今度はCallTerminateProcs自体が呼ばれない?

メインウィンドウにWM_CLOSEをPostするとかが無難かな?

>>555
スレッド内で処理するデータの中に「これを読んだら終了しなさい」
というキワードを入れておいて、それを読んだら完全にアプリケーションを
終了させたいと思っています。

この場合は TThread.OnTerminate で指定されてる処理をする必要もないので
直接終了させても問題ないかなと思ったのですが、そうでもないのですか。

>メインウィンドウにWM_CLOSEをPostするとかが無難かな?
とは具体的にどのようにやるのでしょう？

Synchronize でやればそんな気にしなくていいように思うけど？ >555

>>556
PostMessage( Handle, WM_CLOSE,0,0);

>>557
けど? と言われても。
確かにSynchronize使えばVCLのスレッドで実行してくれるので安全だね。

>>557
synchronize(CloseQuit);

procedure TMyThyread.CloseQuit;
begin
　PostMessage(Application.Handle, WM_CLOSE, 0, 0);
end;

とやって確かに終了はしますが、アプリケーションエラーが
発生してしまいます。

例外を発生させて途中の処理を省きスレッドをで終了させ
メインスレッドで終了させたほうが安全でしょうか？

>>559
PostMessageを使うのならsynchronize使わないで
直接実行できるよ。

あと、スレッドはスレッドで自分で終了しないと…

>>559

560さんに追加するにゃ

555 さんが　メインウィンドウにって書いてるにゃ

　渡すハンドルは Form1.Handle　にゃ

>>561
Form1.Handle でできました。
ありがとうございます！

>>557
ひょっとして、
PostMessage( Form1.Handle, WM_CLOSE,0,0);
やった場合って Form1 の OnCloseは実行されないのですか？
最後の状態が保存されないのでひょっとしてと思いまして。

パーソナルのパッケージ版を4800円で買えば正規登録ユーザになれるの？
将来アップグレードのときにProfessinal版が安く買えるようになるのかな。
だれか買った人いないですか？

>>563
　 PostMessage(Form1.Handle, WM_CLOSE, 0, 0);
　だけなら OnCloseも OnCloseQuery も呼ばれる

　PostQuitMessage(0);　やってると　呼ばれないよ

どっかでやってるとか？

>>565
そうですか。ありがとうございます。
もうちょっと原因を調べてみます。

「あめ猫」…20年前に流行った「なめ猫」を思い出した。（笑

PostMessageは綺麗じゃないな。

Form1にCloseByThreadメソッドみたいなの作っといて、
そのメソッドで全スレッド終わったか確認して、Form1自身を閉じれば良いじゃない。

>>567
type EExitApp = class(Exception);

〜スレッド内〜
raise EExitApp.Create('ExitApp');

例外作って「終了コマンド受けました」画面を出して
ちゃんと終了させるようにしました。
Delphiが持つ例外処理の考え方って素晴らしい。^_^

初心者質問で、すいません

FormをCloseで閉じた後、Showで再表示すると
閉じる前に入力していた値が残ってしまいます。

これは、仕様なのでしょうか？

Formを再表示すると、値をクリアしたいのですが、
どのようにすればよいのでしょうか・・・

あめ猫は消極的反対だにゃ　・・・　どっちでもいいけど・・・・

間違えた・・・

>>569
showは画面表示だけなんで実際には消えてない

だからOnShowイベント内部で初期化のコードを

Delあめ猫にゃ さん、ありがとうございます。

OnShowイベントに初期化のコードを書いて解決しました。

VBからDelphiに移ろうとしているのですが、
画面の初期化って面倒なんですね。
VBは画面が完全に消えるので、何にも考えてませんでした。

逆に、画面が残っているDelphiの利点ってあるのでしょうか？
Delphiユーザーの方は、みなさん、初期化のコードを書かれている
のですか？

>>572 正直消えない方が良い。
今日ずっとcloseしたらreleaseされると思いこんでて
どうやって処理しようかと考えていたが・・・ただShowすればいいだけだと今気がついた。

必ず消えるとなったら消えるだけだが、
消えないとなれば必要なときに消せるという選択ができるのでよい。

＞FormをCloseで閉じた後、Showで再表示すると
＞閉じる前に入力していた値が残ってしまいます。
create　と　release　を使えば次呼んだとき必ず初期化されてない？
初期化コード書くよりは楽だと思うけど・・・どうだろ

>>572
おらの場合はVBの方が扱いにくい。
Unloadしてもメモリに残ってるし。

DelやBCB(つーかVB以外の言語)みたいに
表示のみなら.Show & .Hide
完全に初期化したいなら.Destroy & .Create(delete & new)
って明示的に宣言した方が管理しやすいと思われ

>>572
追加。

Show & Hideはツールボックスみたいなのを使うとき便利。
AdobeとかMacromediaのUIみたいなやつ。

Delphiって、Rubyみたいにオブジェクト指向プログラミングができますか？

>576
Rubyとはどんな言語なのか、見たことも触ったこともないのですが、
SmallTalkとは、ちょっと違っていて、C++／C#、Javaとはよく似ている
オブジェクト指向言語を搭載しています。

SetWindowRgn を使ってリージョンは成功したのですが、
これを戻す方法がわかりません。
そんな方法ってありますか？

>>578
SetWindowRgnのhRgnパラメータをNULLにすればいいんでないの?

>>579
nilはダメだったのでウィンドウサイズのリージョン作って、戻したように
見せかけてみました。

で、また切り替えボタンでリージョン設定するとなんか形がおかしなことに。
リージョンって何回も変更できないのですか？

>580
nilはどうして駄目だったの？

>>581
SetWindowRgn(Handle, nil, True);
とやってみたのですが

[エラー] main.pas(574): 'HRGN' と 'Pointer' には互換性がありません

と言われてしまったのです。ううむ。

>582 そこでくじけないで
　nilがダメなら　0を試そうよ

dbExpressを利用してOracleに接続するアプリケーションを作成したのですが、
dbexpora.dllも一緒に配布するのが面倒です。

ヘルプを読んだところ静的リンクをすれば、単一のEXEだけで配布できて（・Д・）ｳﾏｰかなと思うのですが、
具体的にどうやればいいのかわかりません。

教えてください。

CSV形式のテキストファイル（カンマ、改行区切り）は、
どのように行えばよいのでしょうか？

>>585
CVSファイルに「何を」行うんですか?

分からんので読み書きの方法でも。

読むときは
TStringListのLoadFromFileで読んで、各行をさらに
行用のTStringListのCommaTextで分解、かな。

書くときも同様。SaveToFileで書くだけ

>>586

すいません、読み書きの方法を聞くつもりでしたが、
書き込みの時に、きちんと書いていませんでした。
ｍ（＿＿）ｍすいません

でも、つたない文章から読み取って頂いて助かりました。
ありがとうございます。

C++かじってからこっちに来ましたが、

var
const a:Integer=100;{←ここだけ定数で}
b:Integer;{←これは変数のつもり}

とかやって１０分ほど悩んだのは私だけでしょうか？

>>588
悩むのは勝手。
他人の思い込みを書き込まれても共感しないよ。

どこがおかしいのか２分間気がつかなかったよ

age

節ない。

>>583
「0」で戻せました。nilでダメだったと思考が止まってました。

ところでリージョンのデータって一度使用されると破棄されてしまうのでしょうか？
中村拓男氏の NkBitToRgn.pas を使って Bitmapから
リージョンデータを作成し、一度目はうまくいくのですが、
再度そのデータを使ってリージョンをきろうと思ったのですが
反映されてくれないのです。

private、public、protected のどこで定義してもダメでした。

>>593
APIマニュアル読めー。
一度設定すると所有権がOS側に移るので勝手に解放されるし、
もう自分で操作してはならない。

>>594
ありがとうございます。
ううーん、本格的に組むわけではないのですが
APIマニュアルとかやっぱり必要みたいですね・・・。

>>595
まずは Delphi 付属の日本語ヘルプを眺めてみることを勧める。
ネットワーク接続が気にならない環境なら、オンライン版 MSDN 日本語版。
ただし、こちらもすべての API が載っているわけではない。

何も最新の API だけを使いたいわけではないだろうし、Win98/Me で動かしたかったら
古いヘルプに載っている範囲の API を使うしかないんだし。

Tstringlistから空白行を削除したかったのですが

while (stringlist.Items.IndexOf('') >0 ) do
stringlist.Items.Delete(stringlist.Items.IndexOf(''));

とやっても削除されなくて・・・
indexofだと空白は検索されないようですがいい方法ありませんですかね。
もう一つstringlist作って空白じゃなければaddってやるしかないかな・・・
どうも格好悪い気がする。

For i := stringlist.count - 1 down to 0 do
if StringList[i] = '' then StringList.Delete(I);

動作確認とっていないけど、Sort していなければこれで十分では？

>>598 ありがとうございました。
downto　なんて忘れてました・・・
stringlist.items.deleteの時は便利ですね。 indexOf　に拘りすぎてたかな・・・

>0
だと 0 の時は入らないよ。

>598
その場合も空白は見つけられないよ。

えっ駄目！？
いまほかのところを修正中だからまだ実験してないのでした・・・うーん・・・

ところで空白行ってどういう行？
そのへんがあいまいな気がします。

>603
Length(s)=0であるような文字列s

やっぱり>>598で出来たようです。
初心者としてはでかいプログラムになってきたので把握が・・・１０００行程度なのになぁ

>604
それなら
while (stringlist.Items.IndexOf('') >0 ) do
stringlist.Items.Delete(stringlist.Items.IndexOf(''));
で最初の行以外はいけるとおもうけどな。
効率は悪いけど。

598でもＯＫ。

For i := stringlist.count - 1 down to 0 do
if StringList[i] = '' then StringList.Delete(I);

>>607
げ、操作ミス失敬。コードコピーしていじろうとしてたら送信してしまった。鬱

while (stringlist.Items.IndexOf('') >= 0 ) do
stringlist.Items.Delete(stringlist.Items.IndexOf(''));
でうまくいかない理由が知りたい。

>>609
">="ならうまくいくっしょ。
">"だから先頭行が見えないだけ。

>>609
いや例えば
_index:=stringlist.Items.IndexOf('');
だと _index には必ず -1　が入ってるみたい
空白行があろうが無かろうが。

無意味に長くしてみたYO(アホ)

firstEmpty := stringlist.IndexOf('');
if firstEmpty >= 0 then
begin
　stringlist.BeginUpdate;

　(* 空行以外を前に詰める *)
　newCount := firstEmpty;
　for i := firstEmpty to stringlist.Count-1 do
　　if stringlist[i] <> '' then
　　begin
　　　stringlist[newCount] := stringlist[i];
　　　Inc(newCount);
　　end;

　(* 後ろを全部消す; 一発削除があればいいのに *)
　for i := stringlist.Count-1 downto newCount do
　　stringlist.Delete(i);

　stringlist.EndUpdate;
end;

>611
>_index:=stringlist.Items.IndexOf('');
>だと _index には必ず -1　が入ってるみたい

それは、長さ0の行が無いという事です。

ありゃ、じゃあデバッグ用のshowmessage入れるところ間違えたかな・・・
ちょっと実験してくるＹＯ。

StringList.IndexOfはEmptyStrに対応していなかったと思う。

検索文字がEmptyStrならforで頭からEmptyStrを探し
非EmptyStrならIndexOfの値を返すNULL文字対応IndexOf関数を作るとよさそう。

TStringGrid で任意の行を削除する方法はないのでしょうか？

嘘だった。StringsもStringListもIndexOfはEmptyStrにも対応しているな。

>>616
TStringGridのprotected属性にDeleteRowがあるので
継承して見えるようにしたらよいかも。

type
　TOpenStringGrid = class(TStringGrid);

procedure TForm1.Button1Click(Sender: TObject);
begin
　TOpenStringGrid(StringGrid1).DeleteRow(1);
end;

これだけ1行目が削除されるた。

>>617

ありがとうございます、行削除できました。

でも、RowCountを増やして行を追加すると、
削除した行が出てくるんですね。（＾＾；；）びっくり

私の技量では解決できそうもないので、
行を削除する前に、全ての項目値を消してから、削除するようにしました。

お陰で、削除ができました。
ありがとうございます。

IndexOfの挙動が記憶とどうしても違うので調べてみました。

function TCustomComboBoxStrings.IndexOf(const S: string): Integer;
begin
　Result := SendMessage(ComboBox.Handle, CB_FINDSTRINGEXACT, -1, LongInt(PChar(S)));
end;
なんだよ、このソース！！(unit StdCtrls;)
ComboBoxのItemはIndexOfがAPIだからEmptyStrが誤動作していたのか。
(バグがあったのはComboBoxを使っていた時)
HELPみてもこんなのわからないよ

ListBoxについてもこのようなソースがあるので調べていませんが誤動作しているかも。
このような問題があるので注意です。
function TListBoxStrings.IndexOf(const S: string): Integer;
begin
　if ListBox.Style in [lbVirtual, lbVirtualOwnerDraw] then
　　Result := ListBox.DoFindData(S)
　else
　　Result := SendMessage(ListBox.Handle, LB_FINDSTRINGEXACT, -1, LongInt(PChar(S)));
end;

ComboBox.Itemsに対して
TCustomComboBoxStrings.IndexOf
ではなく
TStrings.IndexOfを実行させたいと思い
キャストしてみたのですがコンパイルエラーでうまく記述できません。
実際にはどのようにするのがよいのでしょうか？

>>618
StringGrid1.Rows(i).Text := '';
行の項目削除は上のように一行で済みそうです。
StringGrid.Selectionの選択範囲なども気にすると少々面倒になります。
考えてみてください。

質問ばかりで、すいません。

StringGridで固定行をクリックして、並び替えを行いたいのですが、
固定行をクリックした時に、コマンドボタンのように凹んだような
動作は可能なのでしょうか。

OwnerDraw でできます

>>621
回答ありがとうございます。
初心者なりに、OwnerDrawについて調べてみました。
デザインや色を変更するなんですね。

これで、クリックの際に凹凸（ボタンの様な動き）と描画するという
ことなのでしょうか？

ＨＳＰとどっちをやったらいいでしょうか？

>>623
タダだし両方試してみたら？

＞＞６２４
はい。
ＨＳＰあきたらやってみます。

今日、何度も質問してますが、よろしくおねがいします。
ｍ（＿＿）ｍ

VBからdelphiに移行しようと勉強しているのですが、
どうやれば、VBよりも高い生産性を出せるのでしょうか？

delphiのUnitとVBのグローバルモジュールの違いも、
よくわからない初心者なのです。

マニュアル片手に悪戦苦闘していますが、
delphiってスゴイって体験できる機能を使ってみないと、
いつまでもVBに留まってしまいそうなので・・・
私と同じようにVBから移行された方は、
delphiのどの機能を使って高い生産性を得られているのでしょうか？

>>626
こないだまでちょろっとVBいじってみましたけど、
何かやるたびにDLLが必要という理由で離れました。

ローカルな環境だけならいいのですが、一般への配布を
考えると DLLのインストールって敷居が高いですから。
バージョン違いの問題とかもあるし。

>>627
回答ありがとうございます。
VBで受託開発をやってますけど、MS-Officのバージョン、
IEのバージョンで全く動作が異なり、私も何度も泣かされました。

配布する事を考えるとexeだけでの配布ができるというのは、
環境に影響されないので、とても魅力的です。

ただ、生産性について、まだ見えないことが多くて・・・

type
　TFunc = function: boolean of object;

TTest = class
function Func: boolean;
　　　：
end;

procedure TTest.HogeHoge;
var p: Pointer;
begin
　p := @Func;
　　：
end;
エラー： 変数が必要です。

procedure TTest.HogeHoge;
var
　p: Pointer;
　f: TFunc;
begin
　f := Func;
　p := @f;
　　：
end;

だと、オッケー。
こんなもんなの？
関数参照使えばいいんだけど、リストなんかの項目でPointerでないとダメだと思って下せえ。

あげ

　p := @Func;
だとFuncの返却値(boolean)のアドレスになってちまうから仕方ないのか。

>>626 >>627
一度、VB の事をすっかり忘れると良いと思うな。
VB でああやっていたのに..　と考えちゃうとそこから先に行かない。
VB に限らないけど。

あと生産性云々はコンポーネントを書き換えたり新しく作成できるようにならないと
分からないと思う。転がっているコンポをただ使うだけで満足できるのなら VB の方が
良いかも。

TMethod

>>626
おお、同士！
俺は取敢えずVB的でも良いから一つ作ってみる事にしたよ。
OOなんかはその次からって事で...

>>626
かなり語弊があるかもしれんが
従来のプログラムだと1から10までコーディングして、
OOの場合(VBも含むが)は既存のコンポの機能追加＆改造
のみをコーディングするっていうイメージかな。

この辺の扱いを実践出来るようになると、生産性が大幅に上がるYO!

単純にTStringList、TIniFile、TRegIniFile、TListあたりから
使っていくと便利に思えるのではないでしょうか。
AnchorプロパティやConstrainプロパティなども便利かも。

>629
@@
はどぉ？

VBにDelphiのPanelに相当する部品ってあったっけ？

フォームをデザインする際
PanelのAlignプロパティはかなり便利だと思うけど

>>619
>ComboBox.Itemsに対して
>TCustomComboBoxStrings.IndexOf
>ではなく
>TStrings.IndexOfを実行させたいと思い
>キャストしてみたのですがコンパイルエラーでうまく記述できません。
>実際にはどのようにするのがよいのでしょうか？
>

type
TIndexOfMethod = function(const S: string): Integer of object;

procedure TForm1.Button1Click(Sender: TObject);
var
P: TIndexOfMethod;
begin
P := ComboBox1.Items.IndexOf;
TMethod(P).Code := @TStrings.IndexOf;
Caption := IntToStr(P(''));
end;

「ヘルプ」の「トピックを検索」で
単語を入力しても一覧に現れないんです。
'ExtactFilePath' とか 'TString' とか。
そのくせ、エディタ上で TString と書いてから F1 を押すと
ちゃんとヘルプが表示されます。

なんとかなりませんか。

仕様です

まずはバージョンを言いなさい

>>640
綴り，間違ってるヨ．
"ExtractFilePath"
"TStrings"
ヘルプを見るときは正しく売っていたのかもしれませんし
原因が別にあるかもしれませんが
とりあえずもう一度挑戦してみては？

バージョンは Delphi6 Pro です。

>>644
さてはOSはWindows9x系だな？

>>645
ああ、そうそう Kylix ではなくて Delphi です。
どうすればよいのですか。

サポートに電話しろ。
次の書き込みは、電話してからね♥

>>626
APIを使うときにいちいち宣言する必要がない。
VBつかってたの２までだから今どうなのか知らないけど。

>>639
わおぅ、わたしのような厨房には超絶技巧にしか見えん

>>626
生産性という意味ならどちらも差はないと思います．
フォームを書くのに見ため通りに作れるし，
自分で書かなければならないコードも少ない．
生産性という売りはＶＢに対しての言葉じゃないと思う．

ただ，エラー処理という点ではどうですか？
ＶＢは２しか知らないのですが
特にファイルを開く処理に失敗したときのエラー処理，

・デフォルトだとプログラムが終了してしまうので
　エラー処理ルーチンを書かなければならない．
・しかも開く場所ごとに書かなければならない
　（ＶＢはローカルエラー処理はなかったでしょうか？でもそれなら発生場所ごとに分岐が面倒かも）
・エラー処理コードは結構長くてソースが汚い．なんのコードかわかりにくい．

でもDelphiだと

procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;

このままでＯＫ．読み込みに失敗したらイベント待ちに戻ってくれる．

他のケースで処理ルーチンを書かなければならない場合もありますが，
その場合でもはるかに簡潔にわかりやすく書けますし，
挙動も確実です．
エラー処理でドツボにハマった経験はDelphiでは一度もありません．

ココハホントウニショシンシャスレナンデスカ？

>>651
Delphiは初めてだけど、他の環境ではかなりの経験がある
という人も混じっているようですね

プログラムの初心者はモナースレの方がいいのかも

もう１つ新しいDelphiスレッド立てようよ

Delphi Personalなんてものがあったんですね
今日登録してきました
VisualC++によるWindowsアプリの開発で
自分の限界を知ってしまったので
大学入学を機会にプログラミングを止めてしまったのですが
Del厨なるものを大量発生させるDelphiならば
案外楽しめるかもと思い、挑戦してみます

>>632>>634>>635>>636>>638>>648>>650
みなさん、レスありがとうございます。

TStringGridやTIniFileは昨日使って試しました。
かなり便利だと思います。

土日でdelphiに必死に触れてみましたが、生産性については、
よくわかりませんでした。
ですが、私と同じように移行された方がいらっしゃる事と、
いつまでもこのままでは、ずっとVBで悩まされ続けるので、
本格的にdelphiを習得しようと思います。

継承など便利な機能があるのは本から知りましたが、
まだ良さを理解できない初心者なので、
みなさんが言われるように、生産性ってのは
後から実感できるものかもしれません。
（開発するアプリによっても異なるでしょうし）

大変参考になりました。
ありがとうございます。
ｍ（＿＿）ｍ

ちょくちょく質問を書き込むかもしれませんが、
よろしくお願いします。
がんばります。

汎用関数の作り方が分かりません。
付属ドキュメントにもなんも書いてない。
オーバーロードは書いてあるからあると思うんだが。
どうしたらいいんだろう。

>>656
テンプレート？
無いよ。

なぜか突然クラスを理解できた。override と overload　も。
これでやっとオブジェクト'思考'出来るようになったかもしれない
parsonal にもクラス補完機能が欲しい

質問でつ。
当方ＶＢしかやったことないんですが、移行（フリーのやつへ）は簡単ですか？
操作性が全然違かったりするのでせうか？

プロフェッショナルへの逝行は簡単です。コンポーネントが増えますから。
フリーのやつは、データベースコンポーネントがカットされてるので、
難しいのではないでしょうか。

>>660
どうもありがとうございました。

汎用関数ないんじゃ、
どうやってそれと同じようなことすんの？
やっぱそれなりに必要なもんだと思うけど。

そんな事するなよカッコわりーな

すれ立てるほどでもないスレから引っ越してきました。
MediaPlayerで音楽を聴くときに出てくるみょわーんとした
画像ありますよね。あの手のを作りたいのですが、
参考サイトとかありますでしょうか？ あまり凝らないで良いです。

ソフトの背景に使いたいのです。

>>664

　平滑化という処理判るかにゃ？
　Pixels[X, Y] の四方八方の点から　例えば　(中央*4+上+下+左+右)/8 みたいにゃ計算の事

オフスクリーンのビットマップTBitmapを２つ用意しといて交互に
　これを繰り返すとモワーとなるにゃ

　動かしたいなら重みを替えてみるにゃ　上の重みを大きくすると上に動くにゃ
　中央にだんだん動くようにしたいなら　重みを中央に向くように変更しておくにゃ
　　　|
　　　|　∧
　　　|⌒∂　にゃ
　　　| ┃)）
　　　|ｰ　ミ
　　　|⊂）
　　　|⌒) 　　AA貼ると叩かれるかにゃ？

　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜　ＡＡ貼るなｺﾞﾙｧ
　 　し― ∪　 　　　＼＿＿__________________________

>>665
この手の処理はMMX使うと早いんだよね。
Del5じゃ使えなかった記憶があるんだけど、
Del6Perとかじゃどうなのかな…


>>666
　 ∧＿∧　　／￣￣￣￣￣
　（　´∀｀）＜　オマエモナー
　（　　　　） 　＼＿＿＿＿＿
　｜ ｜　|
　（_＿）＿）

>>667
D5迄だって DB　に置換すれば使えたけど
D6からは
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1002267809&st=237&to=237&nofirst=true
と直接書ける

>>665
AAより「〜にゃ」口調の方がたたかれると思われ…

>>669　了解・・・でも時々は使わせて

ところで フォルダオプション->ファイルタイプで出来る関連付けをDelphiのコード
からやりたんだけど　手軽な方法は？

やりたいのは VC++,BCB4,Delphi5,Delphi6 とインストールしてるもんだから
マウス右クリックに open以外に openVC とかを増やしてるんだけど
これインストールの都度やるのメンドクサイ（入れてるフォルダも違うし）から

VBからだと
Memo1.Lines.LoadFromFile('C:\autoexec.bat');
だけでも便利！と思ったんだがどうよ？
ListBox1.Items.LoadFromFile('C:\\autoexec.bat');
とかも。

　 　 　 　 　 �凵@ 　∧＿∧　　／￣￣￣￣￣
　 　 　 　 �刧� ＼（´∀｀　）＜ 久しぶりだモナー
　 　 　 �刧刧凵@⊂＼⊂　） 　 ＼＿＿＿＿＿
　 　 �刧刧刧� 　｜ ｜＼|
＿�刧刧刧刧凵Q（＿（＿_）＼＿＿＿＿＿＿
＼　 モナー号 一世　 　 　￣　 　 　 　 　 ／
　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿__／

>667
MMXはインラインアセンブラ使うとき。
いくらなんでもアセンブラで書くのは大変でしょ。

俺は、Scanlineを使ってる。
でも、ボカシの処理はどうしても重くなるからアセンブラでやったほうが
良いと思うがやり方が分からないのでやっぱりScanLineでやってる。

重みなんていう考え方があったんだ。はじめて知った。
早速、試してみる。

>>670 はやっぱりレジストリでやるしかないみたい。
　で、以下のようにして関連付けに追加は出来た
　あと、Delphiのパスを自動的に取得出来ないかな


uses Registry;
function GetExtTypeName(ext:string):string;
begin
Result:='';
with TRegistry.create do　try
　　 RootKey:= HKEY_CLASSES_ROOT;
　　　　　　 if OpenKey(ext, false) then begin
　　　　　　　Result:=ReadString('');
　　　　　　　CloseKey;
　　　　　　　end;
finally Free;End;
end;

procedure AddExtAction(ext,actionName,exePath:string);
var typeName:string;
begin
typeName:=GetExtTypeName(ext);
if typeName='' then raise Exception.Create(ext+'が未登録');
with TRegistry.create do　try
　　 RootKey:= HKEY_CLASSES_ROOT;
　if not OpenKey(typeName, false) then
　 raise Exception.Create(ext+'に'+typeName+'が未登録');
　　　OpenKey('shell\'+actionName+'\command', true);
　　　WriteString('', exePath+ ' "%1"');
　　　CloseKey;
　finally Free;End;
end;

使用例
　AddExtAction('.dpr','openDelphi4','C:\Borland\Delphi4\BIN\Delphi32.exe');

　　　　　 ∧∧＿___　　　／￣￣￣￣￣
　　　 ／ミ,,ﾟДﾟミ .／＼＜　Delphiパスはﾚｼﾞｽﾄﾘ決めうちかも。
　　／|￣∪∪￣|＼／ 　＼＿＿＿＿＿
　　　 |＿＿＿＿|／ ﾄｺﾄｺ
　　　 　,,,,∪∪,,, ,,

HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\App
の値がこれでした
C:\Program Files\Borland\Delphi6\Bin\Delphi32.exe

>>674
　だめだった　D5 にゃ 　App　なかった

　Delphi32.exe のファイルを検索してパス名で処理しようかな

>>675
昼に>>670へのレス書き込もうとしたら書き込めなかった鬱。

>>672
>MMXはインラインアセンブラ使うとき。
>いくらなんでもアセンブラで書くのは大変でしょ。
確かに、漏れみたいにアセンブラ書くスキルがないと大変だけど、
ネットを探せばだいたいサンプルコードとかあるでしょ(ｗ
雑誌でもいいし。

>>673
>Delphiのパスを自動的に取得出来ないかな
Del5Pro Update1。
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Delphi\5.0
の名前
App
にDelphi32.exeのフルパス発見。

>>676 おっは〜

そうそうゲームスレで
　http://www.microsoft.com/japan/developer/library/jpgdipf/_win32_alphablend.htm
　こんなの見かけた。　これを１ドットづらしながら実行したら　モワモワは出来そう


で、後半の話、やっぱりDel6にはApp あったけど Del5には無かったよ
　なんか>>679関数のテストしてる間に全部登録出来ちゃったからもういいかって


ところで、このスレ　なんか常連専用スレになってない？

>>677
>やっぱりDel6にはApp あったけど Del5には無かったよ

>>676では Win2k SP2 + Del5 Pro Update1 で確認。
今、Win98 + Del5Pro(Update無) でも確認したけど、やっぱりあったよ。
間違えて消したか、何かの拍子に消されたか、
もしくはインストールに失敗して作成されてなかったか。

同じキーの RootDir って名前の値をとって、しっぽに '\bin\delphi32.exe'
の文字列を足す、いうのは？
漏れはやはり両方で存在を確認したけど。

もしくは実は HKEY_CURRENT_USER と HKEY_LOCAL_MACHINE の間違いだったとか？

とりあえず解決したならそれでﾖｼ、か。


>ところで、このスレ　なんか常連専用スレになってない？
漏れは、Del猫引退(?)の後遺症かしらないが、
ここのところDelｽﾚ全体が活気が少ない気がする。

確かに後遺症あるよね
　なんか話広げるようなレスは躊躇してしまうというか
　答えだけしか書けないというか

>>663
は？

>>677
>ところで、このスレ　なんか常連専用スレになってない？
そんないことないですよ。
結構頻繁に利用させてもらってます。

そろそろ新しいアプリに挑戦してみたいので
そしたらまたお世話になりたいと思います。

たまにバジョージョン情報ダイアログで
http://www.〜 とか作者のサイトが書かれてて
それがwebへのリンクになっているラベルとかありますけど、
ああいうコンポーネントってDelphiではあるのでしょうか？

>>682
Del6だとTBrowseURLアクション

　┏━━━━━━━━━━━┓
　┃100ﾓﾅ　／￣＼　∧冂∧　.┃
　┃　　　　　|　　　　|（ ´∀｀ )o ┃
　┃　　　　　＼＿／ (∪ 　 φ) ┃
　┗━━━━━━━━━━━┛
Del6updateしたモナー。アップデートする前のDelでコンパイルしたＥＸＥは
1301KBだったのに、update後では1200KBまで下がったモナー。
ふざけんじゃないモナー。Debugコードなんか入れて出荷するなモナー。

>682
俺は、TLabelで、カーソル変えさせて色を変えてアンダーバーをつけて、
クリック時に
ExecuteFile('ttp://www.yahoo.co.jp/','', '', SW_SHOW);
みたいにやってるが。似たようなことでmailto:[email protected]みたいなことも
出来る。
ただし、対象マシンで、ブラウザとメーラーがちゃんと設定されてないと出来ないが・・・。

>>683
残念。TLabel には Action プロパティないんだ。

>>685
Actionプロパティになくても
ActionListにBrowseURL標準アクションを追加して(BrowseURL1とする)
LabelのOnClickで
BrowseURL1.URL := Label1.Caption;
BrowseURL1.Execute;
するだけっしょ。
フォントとかカーソルとかもそれっぽくプロパティいじれば完了。

なるほど、いくつかやり方があるのですね。
勉強になります。

>>Delはじめて物語
汎用関数ってどういう関数のこと言ってる？

グローバルな関数・手続きの事だったりして。

C++のSTLみたいなのではなく？

プログラムとは違うのですが、
同じ某ランドのc++Builderとdelphiは言語の記述以外に、
何が違うのでしょうか？

delphiを必死に勉強しているのですが、
周りからは「何でc++builderじゃないの？」って聞かれました。

あまり詳しくないので、delphiの評判だけで選んだのですが、
皆さんは、どうしてdelphiを選ばれたのですか？

質問です。
stringgridで特定のセルの背景色を変えるにはどうしたら良いのでしょうか？
brushというのを使っても変わってくれないのですが・・・

>>691

某ランドは、Turbo Pascalの昔から Pascalコンパイラの
コンパイル速度が速かった。
今でも、DelphiはC++Bより断然速い。

でもって、新技術の投入は通常まずDelphiで行われ、
それから数ヶ月たってからC++Builderのバージョンに反映される。

そもそも、C++Builderは歴史が浅い。
USではDelphiをVer.1から使っているような連中のコミュニティが活発で、
そこからサードパーティ製のコンポーネントなどが出ているが、
彼らの共通語はObject Pascal であってC++ではない。

C++の方が馴染みがあるというだけでは、
C++Builderのデメリットに勝てない。

かく言う自分は、元C++プログラマで、
GNU C++ => UNIX C / VB / VC++ => Delphi と移ってきたけど
Delphiが一番プログラミングが楽。
なれれば文法は気にならない。

新技術ってほどでも無い。
ただのマイナーチェンジ・・

>>692
OnDrawCellイベントでCanvasを使って塗る

質問です。

画面に画像のみを表示するプログラムを作りたいのですが、
新規作成→フォームを削除→project1.dprを編集
で、Image1:=TImage1.Create(?);
のときの「?」の部分にオーナーコンポーネントが必要ということなので、
それも生成しようと考えたのですが、そこでもオーナーコンポーネントが必要ということなので、
もう、どうしたらよいのやら・・・

>>691
Borlandの好きなように拡張できるからだろ。拡張に変な制約がない。
C++は標準ゆえに言語仕様に手を加えることができない。
C++がCのしがらみもあって、現代的には複雑＆低機能な言語仕様のままになってしまっている。

それに比べるとJava,C#,ObjectPascalなんかは「現代的な」機能を備えている。
グローバル関数があったり、GCがなかったりの違いはあるけどね。

ダイアログのコンポーネントが豊富だけど、なしてフォルダ選択は
標準で付けないの？
何か理由があるのだろうか？
いろんなページでサンプル見たけど、「プラットフォームに依存しまっそ！」って
注意される「なんか古くさい形」のヤツ以外はけっこう複雑（オレには）な
ことしないとダメなのねぇ。不思議。

SelectDirectory()じゃないのか？

旧版 SelectDirectory は、デスクトップなどの論理構造を再現できない。
新版 SelectDirectory は、デフォルトで開いているフォルダが指定できない。

>>696
TImage.Create(nil);

>>700
sFolder:='C:\なんたらかんたら';
FOptions:=[sdAllowCreate, sdPerformCreate, sdPrompt];
SelectDirectory(sFolder, FOptions, SELDIRHELP);
では？

ﾊﾔｵｷｽﾚ

フォームに、
Win 3.1タブにある
DirectoryListBox
DriveComboBox の２つを貼り付けて
DriveComboBox1.DirList　を　DirectoryListBox1 に

・・・・ていうのじゃダメですか？>>698

Object Pascalの言語仕様的にいけてない所、改良・拡張してほしい点などは何かありませんか？

>>705
begin〜end を　｛〜｝ に変更して欲しい。

>>705

★クライアントサイド最強の Delphi に物申す★
http://piza2.2ch.net/test/read.cgi/tech/1001442200/

　こっちのスレが適当と思います

>>707
THANX

無料になったBorland Delphi 6 Personal

初めて使った方々、　使い勝手とかどうですか？

>>706
なんかそれやられたらPascalらしくないなあ。
C#にいっちゃうかも俺。(W

括弧はいやだ。なぜって？

try
〜
finally
〜
end;

が、

try{
〜
} finally {
〜
}
になってしまうではないか。

try{

finally

}
だと変だろ。
finally が finally begin の意味もかねているから、
begin が存在せず end だけがあっても違和感がないのだ。

括弧なんぞ利用すると、try , finally .. end に複数
命令を書くときはいつでも括弧でくくらなきゃいかん。

物事には始めと終わりがあるのです。

Delphi系スレッドだれかロギングしてる人いる？

google

>>691
Delphiを選んだ理由．当時はまだC++Builderはなかった（笑）から．
私は元々仕事でもBASICを使っていたので
Cにこだわる理由はなかったのです．
「C++以外はなじめない」
とか
「C++でないといやだー」
「多重継承マンセー」

というのでなければ
Delphiのほうが良いのではないかと．
ＶＢの実行とほぼ同じ感覚でコンパイルが終わってしまうのは驚異的．

>>698
全く同感．コンポーネントにして標準装備してくれればいいのにね．
結局自分でフォルダ選択コンポを作りました．
（まだバグ有りですが）
ちなみにフリーのフォルダ選択コンポがあったとおもいましたが
あれはフォルダの初期指定，出来たかなぁ．．

>701
とりあえず、実行できました。

ParentにCanvasを持った何か指定しないと表示できないようです？

いろいろ意見レスどうもです。
やっぱり、そー思ってる人はいるんだ。
自分だけかと思った（＾＾；。
まだ始めたばかりなんで。つーか、無料にしたってのはやはり
大きいなぁ。スゲーぜ＞ボー
無料じゃなかったら絶対関心持たなかったもんな。
>>715
コンポーネント自作っスか！スゴイっスね！
なかなか難しいこってす。ハイ。

>ちなみにフリーのフォルダ選択コンポがあったとおもいましたが
>あれはフォルダの初期指定，出来たかなぁ．．

できたよ。

SHBrowseForFolderでいいじゃん

>>698
これの拡張子をpasに変えてusesすればよろしい。
http://www.geocities.com/Milano/1121/dat/browsefolder.txt

アドレス間違えた。
http://www.geocities.co.jp/Milano/1121/dat/browsefolder.txt

>716
bitbltでハンドル使えば転送できるよ

＞フォルダ選択コンポ
m&i氏のサイトにたしかそんなコンポがあった記憶が…

だめ、もうわからん。
目的に似たことができるコンポーネント拾って使います。

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／
　ミ,,ﾟДﾟ彡＜　 これ、フサも使っています
　 ﾐつ　つ 　＼
〜ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　Ｕ Ｕ

FolderDialog
http://member.nifty.ne.jp/m-and-i/tips/tipspage.htm

結局、既存のコンポーネントを組み合わせて作っちゃいました＜フォルダ選択
やり方のｔｉｐｓの分かりやすいページがあったんで。
感謝感謝だなぁ＜解説ページ
まだまだ分からんこと多いけど（＾＾；。

>>724
何が分からんのか、どのスレの人か書かんと分からんよ（笑

訂正。「レス」だ…。

FormのBorderStyleをbsNoneにしたときのフォームの移動でなんかいい方法ありませんか？

ボーダーが無いウィンドウをマウスで移動したいのなら、どこを
つかんだら移動状態にしたいのかを考えてみなされ。

フォームをつかんだらってことで、OnMouseDown、Upで
UpのときにTopとLeft変えて移動させてみたんですけど
ボーダーをつかんで移動させるようにはいかないのかな？と・・・

「タイトルバー ない ウィンドウ 移動」 by google

これ？
http://nt.sakura.ne.jp/~miwaki/progtips/dialog/movedlgbymouse.shtml

ニフより
if ssLeft in Shift then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE or 2, MakeLong(X, Y));
end;
をOnDownへ　（ただし、上にはみ出さない？）

ニフチってまだ人いるの？

ニフ、まだまだいるよ。
FDELPHIもまだ結構書き込みあるよ。
あそこは優しい人が多いね。

>>728
「Ｄ６が無料になったんで勉強しだした者」なんですけど（＾＾；、
不定形リージョンについて解説してるページで解決できそーだと思うんですが、
どーでしょう？

※ここのスレって、どういう時にsage進行にしてるの？

|　　　|　　|　　　　　|　　|　|
|　　|゜⌒／..|　＼　|　゜｜
゜　⌒／/　..|　゜　＼　　゜　　|
| ／　/　|　|　|ヽ゜　＼⌒゜　|
| .￣￣￣￣||￣￣￣￣
　|　　∧ ∧|| 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　　 ミ,,ﾟДﾟ彡　＜　ずぶぬれた。寒い！
゜　|　ﾐ∪　Φ　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　|　| .ﾐ ,,　ミ　　　|　　　|
＿＿_.Ｕ..Ｕ＿＿＿＿　　　　　゜


http://www.borland.co.jp/qanda/delphi/d0002348.html

だけどこれだとForm上にコントロールがあるとダメなので

例えばPanel1を押して動かしたいのなら

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
　var Handled: Boolean);
begin
　if (Msg.hwnd = Panel1.Handle)
　　and (Msg.message = WM_LBUTTONDOWN) then
　begin
　　SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE or 2, 0);
　　Handled := True;
　end;
end;

このようにしてもいいかも。
でも>>732さんの方法の方がもっともよさそう。

SendMessageをPanel1.Handleとしても面白い。

>>735
気ままにsage進行

　∩ ∩
　ﾐ ﾞ''ﾞ〜
　ﾐ∧,,∧　　／
　ミ,,ﾟДﾟ彡 ＜　>>730、Formのボーダー？
　Ｕ　Ｕ　　　＼そりは難しい・・・・・・

WM_NCLBUTTONDOWNひっかければいいと思われ

>※ここのスレって、どういう時にsage進行にしてるの？
会話が成立している間はsage
話し相手が欲しければage

基本的な質問ですみません。
宣言した関数を別のオブジェクトで呼び出すにはどうすればいいですか？

>>740
??
議論対象になりうる具体例きぼん

>>740
interface 〜 implementation　の間で定義した関数類は
その xx.pas のファイル名を uses すると　使う事が出来ます

procedure TForm1.Button1Click(Sender: TObject);
var
moji:string;
begin
moji:='aiueo';
label1.Caption:= moji;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
moji :string;
begin
label1.Caption:= moji;
button1をクリックした後に同じ関数のmojiを使っているButton2を
クリックしても結果が表示されないのですが・・

>>743
ネタですか？

>>743 名前が同じでも　メソッド内部に書かれた変数同士は独立です
メソッドの外に書くか、こういう場合は
クラスに書きましょう

付属のサンプルコードを良く見てみましょう

疑問１

>>743 のコードを見る限り、moji は関数ではない。
変数の事を、単に「関数」と呼び間違えただけなのか、それとも
関数を使おうとして、間違ったコードを書いてしまっただけなのか。

743 のコードが正しいならば、moji をグローバル変数にすれば
良いだけの話ではないか？

>>746
グローバル変数ですか？
N88-BASICしかやったことの無い自分は昨日
Delphiの無償版を入手したばかりで・・
ありがとうございました。

>>747 いや、だから　クラスのメンバーに書きなさいって
　　というかまず、Delphi6\demos の下にある DPRを順に開いてみては
色々試してみては？

コードの一番上の変数宣言で出来ました。
>>748 ありがとうございます(__)

タブ型のメモ帳やブラウザなんかをつくるには
TTabControlを使ってるのだと思うが
やっぱりページごとの内容を配列で保存してるのかな？

TMemoのインスタンスをタブ毎に生成して
TTabControl.Tabs.Objectsに対応するメモを代入しておく

>751
なるほど。
その場合、タブが１，２，３とあって２を閉じた場合うまくいきますか？

2を閉じる直前に
(TTabControl.Tabs.Objects[1] as TMemo).Freeする
インスタンスの管理はTTabControlが負うってことにしとけばいいよ

>753
その方法でやってみます
どうもありがとうございました

ネット対戦のゲームつくりたいんですけどTClientSocketとTServerSocketをつかえばいいんですよね。
ヘルプはリンク切れ、グーグルはヒットせず……。
すいませんがTClientSocket等の基本的な使い方を教えてください。お願いします。
ひょっとして4800円のパッケージ版には説明書いてます？

>>755
ソケットとか TCP/IP の知識もってるの？

ないんなら DirectX つかえ

昨日のTTabControlの続きです。

・　TMemoの親にTTabControlを指定して後処理をまかせる
・　タブを増やすときと減らすときにTabIndexに気を付ける（−１にならないように）
・　同様にタブの数を０にしないように
・　切り替え時（OnChange）にTabIndex以外のVisibleをFalseに

と、いった感じに作ってみました。


そこで、新しくタブを増やすときに
procedure TForm1.Button1Click(Sender: TObject);
var
Memo1: TMemo;
begin
　：
　：　タブ生成（Create）
　：
TabControl1.Tabs.Objects[TabControl1.Tabs.Count-1]:=Memo1;

としたのですが、これで問題ないでしょうか？

Memo1 := TMemo.Create(TabControl1);
TabControl1.Tabs.AddObject('newtab', Memo1);

>>755
正直、コンポーネント(のヘルプ)に頼る必要性はないというか、
それ以前にソケットを意識せずにまともなもん作れんから注意ね。

>>756
>>759
TCP/IPとソケットですね。そっちから勉強してみます。
サンプルとかあればすぐにできるかなぁと、ちょっと甘かったようです。
ゲームならやはりDirectXなんですね。
でもDelphiXがDelphi6に対応してない…と思ったら方法がありました。
http://turbo.gamedev.net/delphixd6.asp

どうもありがとうございました。

あのぅ・・・、StringGridのスクロールバーがいつも同じ長さで
マックみたいに使いにくいのですが
あの長さをＩＥとか普通のアプリみたいに動的にするには
どうすればいいんですか？
それともできないのでしか？

>>761
Mac でも、サムの幅は変更できるぞ？というか今はほとんどそうだが。

>>761
そういやそれオレも欲しいでし（藁

>758
なるほど、そういうやり方がありましたか。

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　 ／　>>761　普通はできません。
　ミ,,ﾟДﾟ彡＜　　前から挑戦しているのだけど上手に作れないの。
　 ﾐつ　つ 　＼　簡単に実現するならStringGridのScrollBarの真上に
〜ﾐ　　ﾐ.　　　　￣TScrollBarを配置して値を設定する方法がいい。
　　Ｕ Ｕ

だから、TScrollBar側からStringGridフックしたり
する必要があったり、いろいろなのね。

一応、ソースを置いておきます。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999294620&res=28


いまなら標準スクロールバーの挙動がわかったから
TScrollBarなど使わずに
StringGrid付属のスクロールバーをコントロールできるかもなあ。

Halbow氏のページを見て勉強したら
俺よりうまく作れるかもね。