モナーの *やさしい* Delphi質問スレ Ver.7

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜ ｜ ｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

前スレ モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/test/read.cgi/tech/1017803412

>>2-10あたりに関連情報あり
○過去スレ
○関連スレ
○Delphi製品情報
○関連リンク
○質問者へ
○ソース置き場案内

　　＿_＿＿＿＿＿＿＿＿＿＿＿
　（つかえねぇ奴らだな。氏ね！！）
　　￣￣￣Ｖ￣￣￣￣￣￣￣￣￣
　　　|￣￣￣￣￣|　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿
　　　|　∧＿∧　　|　　　　∧＿∧　　　／
　　　| （　´∀｀） 　|　 　　（´∀｀　）　＜オマエモ・・・オレモナー？？
　　　| （ ???:bI ）　.|　　　 （ Id:??? ）　　 ＼
　　　| ｜　|　　| 　.|　 　　｜ ｜　|　 　　　 ￣￣￣￣￣￣￣￣￣￣￣
　　　| （_＿）＿）　.| 　 　 （＿（＿_）
　　　.￣￣￣￣￣

※偽者防止のため、IDは必ず出しましょう。

上の前スレ案内は間違い。スマソ。

前スレ
モナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/test/read.cgi/tech/1019134412/

■過去スレ

モナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/test/read.cgi/tech/1019134412/

モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/test/read.cgi/tech/1017803412

モナーの *やさしい* Delphi質問スレ Ver4(HTML化待ち)
http://pc.2ch.net/test/read.cgi/tech/1016467137/

モナーの *やさしい* Delphi質問スレ Ver3(HTML化待ち)
http://pc.2ch.net/test/read.cgi/tech/1014474727/

モナーの *やさしい* Delphi質問スレ Ver2(HTML化待ち)
http://pc.2ch.net/test/read.cgi/tech/1011649179/

モナーの *やさしい* Delphi質問スレ(HTML化済)
http://pc.2ch.net/tech/kako/1003/10031/1003113413.html

■関連スレ
一番上が新しいスレです。書き込みは新しいスレに。

○ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室
Delphi や Borland に関する話題、雑談や質問をしながらﾏﾀｰﾘくつろごうや
�A http://pc.2ch.net/test/read.cgi/tech/1013298748/
�@ http://pc.2ch.net/test/read.cgi/tech/1003664165/ (HTML化待ち)
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室
DelphiやBorlandに関する雑談や質問しながらみなーで、くつろごうや
part4 http://pc.2ch.net/tech/kako/1002/10024/1002469894.html
part3 http://piza2.2ch.net/tech/kako/1001/10010/1001039863.html
part2 http://pc.2ch.net/tech/kako/999/999482946.html
part1 http://piza2.2ch.net/tech/kako/997/997348797.html

○Delphi相談室 現在その３
Delphi関連のTips Ｑ＆Ａ　はこちらです。
その３ http://pc.2ch.net/test/read.cgi/tech/1010153466/ (HTML化待ち)
その２ http://pc.2ch.net/tech/kako/995/995950803.html
その１ (逝ってしまったようです)
(続く)

■関連スレ(続き)

○***すれ立てるまでもない質問はここで***
どのスレッドに質問したらいいか、わからないときはここで質問してみよう。(略)
第13刷 http://pc.2ch.net/test/read.cgi/tech/1018752281/l50
第12刷 http://pc.2ch.net/test/read.cgi/tech/1016631412/ (HTML化待ち)
第11刷 http://pc.2ch.net/test/read.cgi/tech/1014478527/ (HTML化待ち)
第A刷 http://pc.2ch.net/test/read.cgi/tech/1012536901/ (HTML化待ち)
第9刷 http://pc.2ch.net/test/read.cgi/tech/1010673275/
第8刷 http://pc.2ch.net/test/read.cgi/tech/1008908052/ (HTML化待ち)
第6刷 http://pc.2ch.net/tech/kako/1004/10041/1004183881.html
第5刷 http://pc.2ch.net/tech/kako/1001/10019/1001998049.html
第4刷 http://pc.2ch.net/tech/kako/998/998403891.html
第3刷 http://piza2.2ch.net/tech/kako/993/993933402.html
第2刷 http://piza.2ch.net/tech/kako/990/990082077.html
第1刷 http://piza.2ch.net/tech/kako/975/975576060.html

○Pascal の初心者用の質問・相談所
コンソールのみ。GUI は扱いません。
http://pc.2ch.net/test/read.cgi/tech/1009903617/

○kylix相談室(閑散)
２ http://pc.2ch.net/test/read.cgi/tech/988815580/ (HTML化待ち)
１ (行方不明)

○Delphiで小さな実行ファイルを作ろう
http://pc.2ch.net/test/read.cgi/tech/1009080085/

○delphiで作られた有名ソフトって何がある？
delphi自身もdelphi？てか、今delphiやってる人へ希望を与えてやって下さい。
http://pc.2ch.net/test/read.cgi/tech/990056026/

■Delphi製品情報

○公式サイト
http://www.borland.co.jp/delphi/

○Delphi 6 Personal
無料でダウンロードできる。持っていない人はこれを機にやってみよう。
ダウンロードするファイルはは59MBあり、またサーバーが重いので注意。
使用者登録が必要。
http://www.borland.co.jp/delphi/personal/

○Delphi 6 アップデート・ダウンロードサービス
最新のアップデートは次の通り。
Personal: Update Pack 2 (2002/3/19)
Professional, Enterprise: Update Pack 2 + 追加アップデート (2002/3/29)
http://www.borland.co.jp/delphi/del6up.html

■関連リンク

ここに貼っておきました。
どんどん追加して構いません。

こちらへ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538

■質問者へ

○ここはDelphiのプログラミングに関する質問スレです。
スレ違いの質問は罵倒されるので、ほかのスレを探してください。

○厨房並みの初心者の質問はOKですが、厨房は質問するな。

○まずは自分で調べてみよう。回答にGoogleの検索結果を貼られないように。
Google http://www.google.com/intl/ja/
2ちゃんねる検索 http://2ken.net/
Delphi-ML検索 http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/search.cgi

■ソース置き場

このスレのソース置き場を作ってみました。
このスレに載せきれないソースはここへどうぞ。
○3000行までOKです。
○ソース書き込み時は等幅に設定してください。インデントが使えます。
○激しく長いソースは、同時にソースファイルを添付しておくと（ﾟДﾟ）ｳﾏｰです。
○置くのはソースでなくても構いません。
ファイルのアップローダーとしてもどうぞ。

こちらへ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1017673221


以上。

最新情報とかは確認してません。
あしからず。

-------風俗の総合商社・ＭＴＴどこでも-------

〇デリバリーヘルス〇デートクラブ〇女性専用ホストクラブ〇
〇ハードＳＭ奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種！
●露出オナニーの会●アナル愛好会●痴漢痴女同好会●母乳人妻不倫の会
○楽しく遊べます！　090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
　 http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能-----
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/

っつ〜かダブってるよこのスレ。

↓こっちに合流する？
http://pc.2ch.net/test/read.cgi/tech/1021201697/l50

ていうか、まだこのスレには質問がないものね

>>1
せっかくで申し訳ないけど削除依頼してもいいかも

このスレたてたのDelモナーじゃないじゃん。
でもたててくれた心意気はよし。>>1

なんだと。このやろ。

>>15
２行目以下読めよ・・・。

重複スレがあるのでage

>>17
何やってんだか・・・

age

いまさらなんであげるんだか…

というわけでsage

初心者・中級者・上級者の3スレあればよい。
ここは初心者向けかな。

フサフサが中級、相談室が上級。という棲み分けはどうだろうか。

Ver.7も900超えてるし、このスレを再利用してVer.8にするか。

前スレ
モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/test/read.cgi/tech/1021201697/l50

　pCharをファイルに書き込む際、
var
p: pChar;
f: file;
begin
（略）
BlockWrite(f, p, StrLen(p)+1);
（略）
end;
としているのですが、読みとり方が分かりません。
#0が出るまで1Byteずつ調べていかねばならないのですか？

>>23
ヌルターミネートなら当然そう。
それを避けるんだったら普通は文字列の前に長さを書く。

>>24
　ありがとうございます。

FAQにもなってる、StringGridの右寄せなんですが、OnDrawCellにサンプル
ソースを真似て書き込んでもどうもうまくいかないのです。
他の方のコンポーネントを導入しようとおもったんですが、Delphi5用とか
3用とかでうまく入れられません。
Delphi６用で動作する、右寄せ可能SringGridの定番ってありましたら、ご
教示願えないでしょうか？

>>26
D5用とかD3用とかのコンポでもソースがあれば、
D6に入れることはできる。
うまくいかないとすれば多分DsgnIntfまわりだと思うが、
その場合はusesのDsgnIntfをDesignIntfに書き変えてみ。

すみません。
あれから、この深夜まであちこちサイトを探したりしてたんですが、いまだ
うまくいかず。
Vectorでhttp://www.vector.co.jp/soft/win95/prog/se128144.html
を見つけたんですが、これに同梱してあるHELPファイルのインストール
方法でやってみてもうまくいかず…。
「通常は Delphi のインストールフォルダにある \Lib\dclusr40.dpk
(または\Lib\dclusr50.dpk)〜」って、Delphi6だと無い…
作者の方はDelphi4の環境しか無いようで、質問するのも気が引けるので
申し訳ありませんが、Delphi6の環境がある方、上記Vectorの奴か、
他にもいいコンポーネントがあれば、紹介願います。
P.S.
>27様。その域まで達してないです。すみません。

>>28
http://www.vector.co.jp/soft/win95/prog/se128144.html
を落としてみたが、SGridEx.pasがないので、Del6ではインストール
出来なかった。

他のを探すがよろしかろう。

というか　このFAQでどう巧くゆかなかったの >>26
http://www.borland.co.jp/qanda/delphi/d0005044.html

1) FAQ をそのとおりにやってもうまくいかない
2) 他人のコンポーネントをつかおうとしてインストールできない

うーむ、普通は ３０ さんのいうとおり、１）の問題を解決するべきだと思ふ

コードを示せば簡単に解決できるのに！

自作コンポをインストールしようとしているのですが、
「パッケージ C:\program files\borland\delphi5\Projects\Bpl\MyComponents.bpl を読み込めません。
システムに装着されたデバイスは動作していません。」
と出ます。
この、「システムに装着されたデバイスが動作してい」ないことと、
.bplファイルのインストールがどう関係するのか意味不明です。
当然Cドライブは生きていますし、
MyComponents.bplも読み取り専用ではありません。
尚、今回インストールしようとしたコンポーネントは、
TCustomControlを継承したもので、特別なことは何も実装していません。
強いて挙げればTCollection及びTCollectionItemを使っていることぐらいです。
データベースなどとも関係していません。
どなたか、正常にインストールする手立てをご教授ください。
宜しくお願いします。

某のサイトによると、del4はアップデートに失敗すると起動時にそのメッセージが出るらしい。
>>32のはdel5みたいだけど、もしかしたら関係あるかモナー。
http://www.borland.co.jp/delphi/devsupport/install/

>>33
情報ありがとうございます。
僕も見ましたが、なんかこれじゃぁ再インストールするしかなさそうで・・・。
アップデートなど、IDEに影響するようなことは、
最近した覚えはありません。
引き続き、お願いします。

タイトルバーに、日付を　2002/06/12 (木)　とか出したいんですが、
VBみたいに書くと、Caption:=Format('yyyy/MM/dd(ddd)',Date)とかだと
思うのですが、Delphiでの正式な書き方はどうなるのでしょうか？
m(_ _)m

>>35
FormatじゃなくFormatDateTime

DelphiのFormatの後ろに何も付かない方の関数は
VBのFormat関数よりもC言語のprintf系関数の書式に近い。

VBからの移植はFormatFloatかFormatDateTimeを使うべし。

ありがとうございます。
関数が豊富なのはいいのですが、VB対応表みたいなのないかしら？

FillRectなどでTRect型を要求されたとき、いつも

var
　Rect : TRect ;
begin
　Rect.Left := 100 ;
　Rect.Top := 100 ;
　Rect.Right := 200 ;
　Rect.Bottom:= 200 ;

って感じで変数を作ってひとつひとつ代入して使っているのですが、
もって一括で代入したりする方法ないですか？

Rect := ( 100, 100, 200, 200) ;

↑こんな感じ

>>38
こちらで。
http://www.wwlnk.com/boheme/
http://member.nifty.ne.jp/deepforest/index.htm

>>39
ズバリ Rect 関数あるよ。

>>41
俺もＣからDelphiに移ってきた当初は
構造体そのものを関数値で返せるんでびっくらこいた。
同様な関数にPointやBoundがあるな。

　　 ∧,,∧　　　 ／前から気になっていたんですがTRectって
　　ミ,,ﾟДﾟ彡　＜　　TopとBottom、及び、LeftとRIｇｈｔの値の大小が
　　 ﾐつ　つ 　　＼　逆転してたりしても、正しく処理できるんだろうか？？
　＠ﾐ　　ﾐ 　　　　　
　　 ∪''∪　TRect系の処理を書くときは
　　　　　　　みんなそういうところ、注意しているのかな？
　　　　

>>41
こ、これは・・・
ヘルプの例題で見かけてはいましたが、まさか関数だとは思ってませんでした（型キャストかなにかだと・・）

お手数かけました、すいませんでした・・・（汗

名前入れ忘れました。44=39です。

>>43
いまさっき試して見たらちゃんと正しく処理されてましたよ

>>42 Cで構造体を返せないあなたにマジびっくらこいた。

>>43
ペイントソフトで矩形描くとき、必ず左上から右下に
ドラッグしろって指定されてたらイヤだろ？

関数値ってなんじゃらほい？

関数の戻り値でない？

返値？

びっくらこきまろ

>>40　お気に入りに登録させて頂きました。m(_ _)m

>>46
ごめん、Ｃで構造体は引数でのポインタ渡ししか使った事ないもんで。
どうやるの？
#typedef struct (
int x;
int y;
) HOGE;

HOGE h;
h = getHoge;

の実装は?

>>53
＞h = getHoge;

＞の実装は?

この２行について説明求む。

>>54
ごめん。
h = getHoge(50, 100);
の関数getHogeの中身。

>>53 何がわからないの？
struct HOGE getHoge(int x, int y)
{
　　HOGE Result;
　　Result.x = x;
　　Result.y = y;
　　return Result;
}

>>42=53 本当にCをやってたのかと小一時間…ﾊｧﾊｧしたい

>>56も致命的だ。

>>58
訂正。
構造体宣言に見えたよ。。。、

ResultはgetHoge内のスタック領域に取られたローカル変数だよね。
関数を出ると破棄されるのでは？
メンバ単位のコピーが正常に行なわれるの？

>>58, 59 いや、ｽﾏｿ。確かに間違ってるとこある。C++やってるとstruct付けるの忘れる…
struct HOGE Result;
だな。

いや、#typedefしてるから合ってる。

>>60
ガタガタ言わずに試すのが吉。
メンバ単位とか言う前にsizeof分メモリコピーすれば住む話。

>>60 正常に行われる
>>62 Cは変数の宣言の前にもstructいるだろ。

そもそも「#typedef」て何という疑問

>>64
typedefしたらいりませんが？

ぐぁ･･･失礼

>>65
ごめん。Ｃ離れて永井もんで。

>>64
為になった。ありがとう。(ANSIのいつからなんだろう？)

>>69 昔はできなかったの？

BCC32でアセンブラのリスト出して確認した。
確かにメンバ単位のコピーは行なわれてる。

>>70
K&Rでは無かったような？


_getHoge proc near
?live1@0:
;
; HOGE getHoge(int x, int y)
;
push ebp
mov ebp,esp
add esp,-8
mov eax,dword ptr [ebp+8]
;
; {
; HOGE h;
; h.x = x;
;
?live1@16: ; EAX = return
@1:
mov edx,dword ptr [ebp+12]
mov dword ptr [ebp-8],edx
;
; h.y = y;
;
mov ecx,dword ptr [ebp+16]
mov dword ptr [ebp-4],ecx
;
; return h;
;
mov edx,dword ptr [ebp-8]
mov dword ptr [eax],edx
mov edx,dword ptr [ebp-4]
mov dword ptr [eax+4],edx
;
; }
;

「メンバ単位」のコピーの話だったのか。
でも、仮にメンバ単位のコピーでなくても構造体を返せるかどうかとは関係ないと思うけど…。

ちなみにPascalでは配列を関数値にできる。
多分>>42はその辺と勘違いしたのでは。

type
　THoge = array[0..9]of Integer;

function Hoge(i,j:Integer): THoge;
begin
　//省略
end;

海外のサイトから、コンポーネントらしきものをダウンロードしたのですが、
中身を見ると、
about.dfm
about.pas
config.dfm
config.pas
fmod.dll
main.dfm
main.pas
spectrum.pas
testbed.dpr

という内容でした。
fmodと言う、ogg形式のサウンドを再生できるプレーヤの
delphi版らしいのですが、これを自作のアプリに組み込む事は可能でしょうか？

コンポーネントのインストールがいまいちよくわかっておりません。
勉強できるサイトなどありましたらご教授頂ければ幸いです。

よろしくお願い致します。

>>74
　　　 (ﾟдﾟ)　　それ、ファイルが足りない気がするので、
　　　~(　 )−　本家からアーカイブを落としなおして再構築ｼﾙ
　 　　/　>　　　（ちなみにプレーヤーのサンプル ﾃﾞｼﾀ）

どうも、*.dcuが足りないみたいなのですが、
配布されるんでしょうか？？
結構探したのですが、見つかりません

本家は、ここです。
http://www.fmod.org/

>>76
　　　 (ﾟдﾟ)　　アーカイブの中にfmod.pasとfmoderror.pasがあるから、
　　　~(　 )−　それらをサンプルプロジェクトに追加して再構築ｼﾙ
　 　　/　>

　あるルーチンを実行すると、
そこから呼び出していない関数内でエラーが起こります。
　しかもエラーの起こる関数は毎回違っていて、
たまにエラーを出さずに強制終了されることもあります。
環境はDel4（ServicePack2,3）+WinMeなんですが、何か前例はありますか？

出来ましたぁ〜（T-T
ありがとおございます。
いぢり倒します。

sage忘れましたぁ（T-T

>>78
そのルーチンをステップ実行してみましょう
１、帰った直後で->スタックを壊した
２、どこかのメソッドで->イベントか仮想メソッドを壊した

DOSのコマンドを入力した結果を知りたいんだが、、、

たとえば、DOSで

ver

と入力すると、

Windows 〜〜〜〜

と結果が表示されるのだが、、、
それを変数の中に入れたい。

DOS窓はいちいち開かずにやりたいのだが・・・

>>82
無名パイプ（名前なしパイプ）を使いましょう

http://www.nifty.ne.jp/forum/fdelphi/samples/01014.html

ただ、途中でパイプが詰まるとやっかいかなあ

Perlで言う「crypt」を、Delphiでできませんか？

>>84 出来ますよ　トリップ解析用に一時流行しましたね

方法はGNUからでも crypt.c を　そしてボーランドからBCC32 を手に入れてコンパイルし
delphiから objファイルを呼び出せば良いだけです。

それが面倒なら DESCrypt+Delphi で検索してコンパイル済みのを手にいれるといいでしょう

ttp://www.torry.net/cryptstrong.htm

Delphiで株のチャート分析＆予想をするソフトを作ろうとしています。

色々とネットを検索したらTeeChart?,Tchart等を使う方法やPaintBoxを
使っている人等がいて、何でトライしたら良いのかいまいち良く分かりません。

お薦めの方法、あるいは参考になるサイトやスレがありましたら教えてください。
今まで画像系の処理はした事ないので四苦八苦してます。
開発環境はD6パソ(自宅)＆エンプラ(会社)です。

>>87
お好きな方法で。

誰も教えてくれない。鬱だ。相談室逝って来る。

>>89
複数やり方があって自分で自分にとってベストなやり方も見つけられい。
プログラマーってもっと高尚なお仕事。

>>90
高機能はいらないので、とっつきやすい簡単にできる方法を探してます。

>>87
折れなら、TImageを貼って自分で Image1.Canvas で書いてみる
再描画とか考えなくてもいいし駱駝ろ

ギコナビって、登録しないと巡回できなくなったのかよぉ・・・。
他のに移行しようと思うけど、どれが一番使いやすい？

誤爆してしまった、ごめんなさい。

Delphiに限らず、Excelとかでもなんですが、aaaという表示形式で、
平成とかになるのは、OSがやってくれてるんでしょうか？
つまり、平成の次の新元号になった場合、WindowsのファイルをUpdate
すれば、ExcelでもDelphiでも新元号を表示してくれるようになるんで
しょうか？

すみません。gggでした。

質問があります。
現在テキストエディタを作っています。
プログラム終了時に、ファイルが変更されたか否かをチェックしたいのですが
どのような方法があるでしょうか？
メモ帳などでも編集したあと保存せずに閉じようとすると、「hogehogeを保存しますか？」
と、ダイアログが出ますよね？　あれを実装したいと思っています。

すいません、バージョン書き忘れました。
ウチのはDel5です。

>>97

TMemo や TRichEdit の Modified プロパティーを見れ

>>99
ありがとうございます！解決しそうです。
すばやい対応ありがとうございました！

ツリービューでドラドロを行おうとしています。
OnMouseDown で、
TreeView.BeginDrag(False, 5);
を書いているのですが、マウスのボタンを押すとすぐにドラッグが
始まってしまいます。
TreeView以外のコンポーネントなら正常に動きます。(TPanelとか)
TreeViewの場合は何か必要なのでしょうか？？

Windows2000 SP2 + IE6.0
Delphi6 + UP2

>>93
最近メンテされてないみたいだけど「かちゅーしゃ」がいいとおもう。
しかし、ここに誤爆するってこたー、Delphi使えるんだろ？ソース見て修正できないのか？

すみません、全角カタカナ+全角濁点の2文字を
全角カタカナ1文字に、しようとしています

サンプルを利用してつぎのソースを書いてみたのですが、置き換えられません、へんな部分を、御指摘いただけないでしょうか?

function ReplaceCharInString(S, FindStr, ReplaceStr: string): string;
var
I, L: Integer;
begin
Result := '';
L := Length(FindStr);
I := AnsiPos(FindStr, S);
while I <> 0 do begin
Result := Result + Copy(S, 1, I - 1) + ReplaceStr;
Delete(S, 1, I + L - 1);
I := AnsiPos(FindStr, S);
end;
Result := Result + S;
end;


function dakuonHenko(s: string): string;
var
dakuon,dakuten :array[1..29] of string;
moji1,moji2 :string;
i,j,k : integer;
begin
Result := ''; j := 1; k:= 1;
for i := 1 to 27 do begin
moji1 := 'ガギグゲゴザジズゼゾダヂツヅデドバパビピブプベペボポヴ';
moji2 := 'カ゛キ゛ク゛ケ゛コ゛サ゛シ゛ス゛セ゛ソ゛タ゛チ゛ツ゛テ゛
ト゛ハ゛ハ゜ヒ゛ヒ゜フ゛フ゜ヘ゛ヘ゜ホ゛ホ゜ウ゛';
dakuon[i] := copy(moji1,j,2);
dakuten[i] := copy(moji2,k,4);
Form1.Memo1.Lines.add('dakuon'+IntToStr(i) +'='+ dakuon[i]);
Form1.Memo1.Lines.add('dakuten'+IntToStr(i) +'='+ dakuten[i]);

j := j + 2 ; k := k + 4;
end;

for i := 1 to 27 do begin
ShowMessage(s+ ' '+dakuten[i]+' '+dakuon[i]);
Result := ReplaceCharInString(s,dakuten[i],dakuon[i]);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var st :string;
begin

Memo1.Lines.Add(dakuonHenko(Edit1.Text));

end;

end.

Memo1.Lines.Add(ReplaceCharInString(s,'タ゛','ダ'));
とすると、'ダ'に変換されるのですが

ただ、次のように変数になると動かない。不思議。
Result := ReplaceCharInString(s,dakuten[i],dakuon[i]);

>>104
あの、質問なんだけど漢字を表現するには何バイトいるか知ってる？

最強を誇るプログラミング言語「C」
Cはそのまま「シー」と発音します
CとC++はプログラマを目指す人には憧れであり、絶対に通らなければならない言語です
このC言語は、現在のプログラム言語の中ではもっとも強力な言語で
優れたアプリケーションのほとんどがC/C++で開発されています

では、そんなすごいプログラム言語「C」の特徴とはなんでしょう
当然、他のプログラム言語にはない優れた能力があるはずですよね。簡単に説明すると

プログラムの移植が比較的容易である
メモリやCPUなどを直接利用するプログラムに適している(OSやデバイスなど）
C言語プログラムの中でC++の関数や変数を利用可能
高速でコンパクトなプログラムを実現できる
といったところでしょうかね
う〜む、これまでインタプリンタ言語をやってきた人には夢のようなことです

さて、ここまで読んで「そんな優れたC言語のコンパイラってどうやって作られたの？」っと疑問に思いませんか？
コンパイラももちろんプログラムでできてますよね。ということは、なにかの言語から作られたということです
じつは、C言語のコンパイラはアセンブラという言語から作られたのです
最初に小さいCコンパイラがアセンブラで作られて、その後にC言語でC言語のコンパイラを作り上げてきたそうです
ICをICで作ってLSIになったような感じかもしれませんね（＾＾

＞ICをICで作ってLSIになったような感じかもしれませんね（＾＾
（ﾟДﾟ）ハァ？

>>106
まぁ、特に間違ってはいないけど、で？

時間式（XX時YY分ZZ秒)から一日の経過時間割合を出す式わかりませんか？
Windows2000、Delphi2.0Developerです

109は荒らし

>>109
あっちで答えでてるは小学生以下の質問を繰り返すわたまらんな。

初めてなもんで。すみません>ALL

>>105
2バイトですよね。

>>112
初めてとかの問題じゃないと思うぞ。
小学生でもわかる質問は普通にウザイ。
おまえが幼稚園児なら、頭良すぎでウザイ。

>>113
dakuten[i],

これはdakutenのi文字目でしょうか？
それともdakutenのiバイト目でしょうか？

>>114
怒りながらも三行目で笑わせるあなたが素敵。

>>115
103のソースの一部で
var
dakuten:array[1..29] of string;
として
dakutenのi番目の、string変数です。
誤解を与えるかきかたですみません。

>>106
質問スレなのに
質問にも、回答にもなってなさそ。

これに対応する質問ってあった？

>>117
ANSIPosって2バイト対応？

まぁ、要所要所にShowMessageかませるかデバッガ使って書く変数の流れおってくダサイな。

>>118
ちょっと前にC言語は何から出来たんですか？と言うのがどこかのスレであったよ。
マシン語で書いたとか言う愉快な奴がいて散々叩かれてたから仕返しじゃない？

>103
ReplaceCharInStringって関数自前でつくってるけど
StringReplaceじゃだめなんすか？

>>106
面白すぎる。
で、インタプリンタって何？

>87
使いまわしとか考えるなら、コンポーネントつくるのがベスト。
といっても、どんなものつくっていいかわかんないときは92さんのほうほうで
Canvasに書き出してからTGraphicControlやTCustomConstrolから
派生させて自前のコンポつくったら、別のソフトを作っても簡単に表部分は移行できるとおもわれる。

DateTimePickerコントロールを、凹んだ状態ではなくて、
平らな状態で表示させたいのですが、
どうすればよいのでしょうか？

Bevel*あたりを変更かな？

124です。

Bevelをいろいろ変えてみたのですが、
見た目に変化がありませんでした・・・　他になにかあるのでしょうか（T T）

>103

> for i := 1 to 27 do begin
> ShowMessage(s+ ' '+dakuten[i]+' '+dakuon[i]);
> Result := ReplaceCharInString(s,dakuten[i],dakuon[i]); // これが間違い
> end;

『sの中のカ゛をガに置換して，その置換した文字列の中のキ゛をギに置換して…』

とやらなければならないところを

『sの中のカ゛をガに置換して，（その置換した文字列を放置して）sの中のキ゛をギに置換して…』

となってしまっています．
結果としてsの中のウ゛をヴに置換したものが戻り値になってしまうわけです．



ところでブレークポイントやステップ実行などのデバッグ機能はお使いですか？
こういうミスも見つけやすくなりますよん．
デバッグ用にメモコンポーネントに書き出したりShowMessageを使うのは
上の方法が使えないときだけでよいと思います．

手前MP3プレーヤーに、スペクトラムアナライザ
（音声出力に応じて16本ぐらいの棒がにょきにょきと伸縮する、アレ）
を実装したいのですが、良い方法は無いでしょうか？
MP3再生コンポーネントはMP3player(http://www.sams.co.jp/kei/mp3plyr/manual/manual.htm)
です。でも、これにはそういったイベントは無いみたいです。

みなさん、どうやって実装してるんだろう^^;

>>128
フーリエ変換でスペクトルを取得。

>>128
　イベントが無いので、ソースを弄るしかないかもしれませんね
　ただ、リンク先を見ると OnChangePositionイベントというのがあるようです
　これでEqualizer[Index: Integer]: Integer;　というプロパティを見て表示すればいいのでは？

MP3からスペアナ表示をするには一般的に
１、MP3のエンコード情報を使う。
２、デコード結果から>>129さんのいうFFTを使う
３、デコード結果から2次帰還フィルターで分析
　　（Qを無限大にする方法もある）

>>93
＞ギコナビって、登録しないと巡回できなくなったのかよぉ・・・

俺一人の判断で規制しているわけじゃない。って何度も書いているんだけどなあ。

音に同期して他のアプリからデータを取ろうとしているのですがうまくいきません。

あるアプリが処理を終わると音を鳴らしてtxtファイルに結果を出力して開いてくれます。

この、音が鳴った事に反応して、自動的に
１、音の検出
２、キー入力とマウスを一時的に無効化
３、開かれたファイルを探し出し、データをコピー
４、そのアプリの終了ボタンをクリック
５、自作アプリにコピーデータを表示
と言うことをやろうとしています。

５は出来るのですが、１〜４がうまくいきません。
１と２は全く分かりません。
３と４はハンドラの見つけ方が分かりません。
ハンドラさえ分かればそれをアクティブにするなり、終了ボタンにSendMessage出来るのですが。

どうかヒントだけでも結構ですのでご教授願います。

すみません、書き忘れていました。
開発環境はD6Proです。

>>133
たったそれだけのために音声解析するのはバカらしい。

>>134
音は音声ではないです。
あるwavファイルを毎回鳴らします。
なので、そのwavファイルが使われているかどうかを検出出来れば
と思っているのですがとっかかりさえ分からない状態です。

>>132
>あるアプリが処理を終わると音を鳴らして
>txtファイルに結果を出力して開いてくれます。
アプリがtxtファイルを作成・変更するのを検出したら?

>>136

その方法も考えたのですが、出力するデータが何も無い場合、
txtファイルは変更すらされません。
txtファイルの作成や、変更を監視していても
txtファイルは毎回閉じられるわけではないので、駄目なのです。

毎回アプリの終了ボタンを確実に押せればその方法も可能なのですが、
連続して音が鳴る場合があるので、その時はtxtファイルは開きっぱなしで
一部データが追加されたり、何も変更されなかったりします。

色々と考えたのですが、どうも音で監視するしかないみたいでして。

>>137
音声データの意味も理解してないのに無理。

プログラム呼び出し。３０秒変化がなければタイムアウト。

音声出力を標準出力にリダイレクトしろ。

>>138
サウンドファイルが使われているかどうかを監視しようと思ったんだけど
無理なのかなあ。

>>139
標準出力にしたらどうなるのか意味が分からないので調べてみます。

>>139
出来るの？UNIXとかならともかく。

あれ？すみません誤解があるようですのでちょっと捕捉します。

>１、音の検出
はマイクで音を拾ってそれが希望の音かどうかを判断して・・・等という事を
やろうとしているのではないです。私のスキルではとてもできないですし。

毎回使われるサウンドファイルは決まっているので、そのサウンドファイルが
使用中かどうかを検出しようとしています。

対象のアプリケーションが音声ファイルを開こうとするのを
フック出来ないですかね？

>>143
はい、それを狙っているのですが、やりかたが分からないもので。
ヒントややり方だけでも結構ですのでどなたかよろしくお願いします。

>>131
今頃気が付く辺りからして、マメにホームページ見たりバージョンアップとかしてないんしょ。
それはそれとして、巡回はいらんけど「お気に入り」は絶対ほしいです、
昔は、それこそ巡回をお気に入り代わりに利用してたんですけど、今はとても不便に
なりました。（登録すりゃいいだけなんでしょうがね＾＾；）
あれなら、履歴リストの中身を前回終了時の状態でiniファイルにでも書き出して次回の
起動時に再表示させてくれてもいいけど。

>>144
WinSight32で該当アプリを監視してみたら？
音で判断なんて馬鹿げてると思うよ、終了のアクションが他にあるだろうに。
遠回りしているようにしか思えない。

因みに、そのアプリは何？一般には出てない物なの？
まさか、競馬関連か？（藁）

すみません。色々やっているのですが、どうしても出来ず、こんな深夜になってしまいました。
StringGridで、マウスクリックやカーソルキーで、セルを選択した場合の現在行を取得したい
のですが、OnSelectCellイベントで、Rowを取得しても選ぶ前の行の値になります。
今回選んだ行の値を取得するにはどうしたら良いのでしょうか？

（今日はもう寝ます…）

>>147 はぁ？
OnSelectCellのイベントの中でARowの値を参照したらモロに現在行になるだろ？
荒しか？

そういや少し前に株式の更新を知りたいからって画面を監視して更新があったら音を鳴らす
アプリを作ってるって奴がいたな。
もしかして、そういつが作ったアプリが鳴らす音を検出しようとしてるんじゃあるまいな？

>>146
それやりました。
と言うかずっとやってました。
どうしてもWinSightが掃き出す、膨大な量のデータの中から
該当データを取れなかったのです。
きちんとした使い方を学びたい･･･

そのアプリはアメリカの会社が出しているアメ株の取り引きソフトです。
画面には該当銘柄の値動きが表示されているので、それをHook出来れば
一番良いのですが、私には出来ませんでした。
このソフトは注文が約定するとピンポーンと音が鳴り詳細を表示してくれます。
持ち株の売り指し値の５セント上で空売りを注文していると音が連続して鳴って
両方の詳細がほぼ同時に表示される事もあるので。

どなたか良きアドバイスを。

>>150
という事はFindWindowとかEnumWindows で探してGetWindowTextで取得というのは
もうやってるわけね？

>>151
いえ、WinSightが掃き出した膨大なデータの中から該当ソフトのハンドラを
見つけられなかったのでやれませんでした。

WinSightの使い方をきちんと学ぶべきなのでしょうけど、FDELPHIや
DELPHI-MLの過去ログを検索しても無いですしお手上げ状態です。

最近のバージョンのヘルプって使いにくくないですか？
俺はVer. 2の形式が好きだった。
説明文の中にリンクがいっぱいあって、すぐに目的の所まで
行けた。プロパティとかも、一覧表示だったからスクロール
させなくても全部見えたし。
Ver. 6で元に戻るのでは、、と淡い期待を抱いていたけど、
やっぱだめか。。

ごめん、誰かに言いたくて。。

なのに言えなくて。。

>>132等
目的のウインドウをタイトルバーの文字から探す＞FindWindow
見つかったウインドウの子ウインドウを列挙してシラミつぶす＞EnumChildWindow

探すよりもフックかけるほうが初心者には難しいかと。

VCLとCLXの違いが　ヘルプを何度読んでも理解できない自分は
逝ってしまったほうがよろしいですか？


と　書いてみるものの　実際のところ素でやさしいレスを期待しています
ごめんなさいごめんなさいごめんなさい
馬鹿な質問なのでしょうか。。。それすらわからない初心者です

。。。ごめんなさい
わかりました
開発者ガイドに思いっきり書いてありました
ヘルプにも軽く書いてありました

逝ってまいります

>>156
思いっきり厨な発言で申し訳ないけど、
【VCL】
delphiで利用するクラスライブラリ（コンポーネント）
コンパイル時にexeにリンクされるので、別途ランタイムを
添付する必要が無い。　
delphiで作成可能。

【CLX】
kylixで利用するクラスライブラリ（コンポーネント）
こちらは配布時にＱｔを添付する必要がある。
kylix・pro以上のdelphi　で作成可能。

>>148
あっ！そうなんですか。氷解です。一生懸命、悩んでました。
WEBでは、ArowとかがただのRowになっていたりして（Version違いだから？？？）
これは、何？状態でした。荒らしではありません。
早速出来ました。Thanksです。

ぐあー！GPLて何！？「フリーだけど、これ使うたらソース公開すれ！あと
GPLだって書きやがれ！」ってことなんか？
日本語にしる！

>>160
そんなもん。

>>161
そっかー。どうも腑に落ちないなー。好きになれん＜GPL

>>160
具体的に何が腑に落ちないの？

つか、まぁ、とりあえずコレでも読んで
ttp://www.gnu.org/japan/gpl-2j-plain.txt

>>163
そのダラダラ長いのを読むのもイヤ（藁

GPLとは・・・

・ソースを公開しなくちゃいけない。
・GPLのソースを使って作られたソフトはGPLに従わなくちゃいけない。
・それ以外は何をやってもいい。

で良いでしょうか？

・イエローモンキーに著作権は存在しない

これ以外に重要

>>164
＞そのダラダラ長いのを読むのもイヤ（藁
好き嫌いの前にお前生きてるだけで無駄に地球の酸素が消費される。
shine

お前生きてるだけで×
↓
お前が生きてるだけで○

日本語覚えてこい。ハゲ。

仲良くしなさいクズ>>167-168

>>152
WinSightは慣れが必要だから、取っつきにくいだろうね。英語だし。
該当ウィンドウとメッセージの監視方法は、

1.該当アプリ起動
2.WinSight起動
3.Spy→Follow Focusをクリック
4.該当アプリをアクティブにする
5.すると、WinSightのツリーが該当アプリのところへ移動する
6.FollowFocusのチェックをはずす
6.ツリー表示の見方は、例えばエクスプローラのウィンドウだと

Overlapped 000301EE {ExplorerWClass} Explorer.EXE (816,114)-(1678,750) "ローカルディスク(C:)"

必要なのは {ExplorerWClass}と"ローカルディスク(C:)"
前者はクラス名、後者はキャプション。両方ともFindWindow(Ex)で使用する。
これを基にしてFindWindowしてハンドルを取得し、
SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, 0);
を送れば、該当アプリは終了できる。

7.該当ウィンドウのツリーを選択
8.View→Message Traceにチェック
9.Message→Selected Windowにチェック
10.Helpメニューの左側が「Start!」となっていたら、クリックすると
　メッセージのトレースが開始する。「Stop!」となっていたら、もう
　トレースが開始している。
11.下にメッセージがだーっと出てくるので、音を鳴らして根気よくメッセージを
　探っていく。WM_XXXXXというのがメッセージの名前。何を意味するかは、
　Win32.hlpを参照。
12.ただ、音を鳴らすメッセージが見つかっても、該当アプリで送受信されるから
　ブロードキャストされてない限り何もせずにキャッチすることは難しい。
　フックDLLを作らなきゃならないかな…フックしたくなければ、音が鳴るときに
　該当アプリに何か目に見える変化がないかよーく探して、その変化を
　FindWindow(Ex)で1秒おきにチェックする、みたいなことをしなきゃならんか。

>>127
ありがとう

なんか、捜し物のペンが、あきらめかけた頃に
目の前の書類の下から出てきた、みたいな心境。

すぐ目の前にあったのに気ずかないみたいな

いやあ、お恥ずかしい。

ブレークポイントや、ステップ実行は、使って無いです。
使い方について、よく分かってないもので、デバック
について解説してるWebも、みつからないもので。

>>155
見つかりました！
Delphi壁の穴と言う所を見つけてWinsightを見ながらいじったらきちんとハンドルを
取得出来ました。

しかし、出来たのはここまでで変更があった時にどこが変わるのか、どのような
トリガがかかっているのか等さっぱり分かりません。
どなたかヒントをください。

170さんも答えてくださってたんですね。取り込み忘れてました。
じっくり読ませていただきます。
読んだあとで再チャレンジしても駄目だったら再度発言します。

ありがとうございました。

ＧＰＬってかいつまんでいうとこんな感じ。


俺の物は皆の物
オマエの物も皆の物

っつー博愛ジャイアニズムみたいな感じ。

>>174
アフォだな。本質からわかってないじゃん。

すべての人がジャイアンですべての人がスネ夫になり得るんだ。

>>121 正直なところ StringReplace関数の存在を、知りませんでした。

>>174
GPL で自由になるのはソフトウェア。

つーか、GPL スレに移住しる！
火星にGPLの理想郷を！
http://pc.2ch.net/test/read.cgi/tech/1008813243/

ん？いや、だから、ソフトウェアの自由は誰のためかっていえば、皆のためじゃないのか？
少なくともGPLを使っている人々はそう思っているわけじゃないの？

>>178
うむ。

GPLが嫌って言うなら今すぐgcc使うのやめてもらおうかと。
ソラリンでも使ってなと。

>>172
そろそろ自分でなんとかする気にならんか？

>>181
すみません、馬鹿なもんで。
ただ、最初からソースくれくれ厨にはなりたくないので少しづつヒントください。

今、自分でフォームにLabelとタイマーだけ貼りつけて
毎秒、カウントアップするアプリを作って、それをフック出来ないか
試してます。

今はWinsiteで変更のメッセージは見つけられたのですが、どうやって
中身を覗くかが分からなくて色々と調べている状況です。
むつかしいっす。

>>182
馬鹿とかは問題でないと。しばらく試行錯誤してから帰ってくる手はとれんのかと。
そこそこヒントもらってみたいだし、と。

まとめ：
ヒントきぼんぬ→つまづく→ヒントキボンヌ→よくわからん→・・・
このように延々と繰り返しいては、最終的にソースくれくれ厨となんら変わらないのでは？
よく考えればわかるとこなので焦らず前進！

どうして平気でマルチポストすんのかねぇ？
誰って言うわけじゃないけど。
今もマルチ見てしまった…。

１．類似スレが多いから
２．頭悪いから
３．ド初心者だから

平日の昼頃に書き込んでから数十分書き込みがないと
アゲたり催促するのは２．か３．

関係無いから、これっきりにするけど…。
>>186
こないだ「ほぼ同じ時間にマルチ」がいた…。トホホ。
やっぱり答える側の気持ちになったら「アカン」ってことが子供でも分かると思うんだが…。
ま、答える側になんてほとんどならんけど（藁

TBitmapの内容にぼかし処理をしたいんですが、どうすればできますか？

>>188
TBitmap.ScanLine で直接操作。

エクスプロ−ラ風コンポーネントでいいのがあったら
教えてください
（Delphian World以外）

>>190
最初から付いてるやつ。

そーいや、D6からなかエクスプローラの偽者みたいなコンポが付いてるなぁD5でもあったっけか？
でも、あれって居様に重いような気がするがきのせいかな？

>>189
ソース晒してください。

>>188
StretchDrawで1/8くらいに縮めてから、元の大きさにStretchDrawし直せば
モザイクがかかるぞ。
ブラーとかかけたいんだったら、画像処理スレにでも行って勉強した方が早い。

>>193
おたふくソースとってください。

>>188=>>193=ソースくれくれ厨か？
大体>>189はアドバイスしてるだけで、ソースなんて書いてるわけ無いだろ。

>>196
ネタだってばよ。多分な。また来たら放置しる。

DateTimePickerは、どんどん数値を下げると、1752/09/14まで設定可能の
ようですが、これって、この日付以降だったら、日付計算はうまくいくので
しょうか？
DateTime型は、Double型が元との事で、マイナス値でもいい感じですが…

それと、DateTimePickerは1752/09/19の次が、1752/10/01になるのですが
何故でしょうか？　m(_ _)m

>>198
歴史の勉強をしましょう。

>>198
うん、暦って矛盾だらけなのよ。
サイトで太陽暦とかシリウス歴？とか検索してくださいな。

暦のユリウス歴→グレゴリオ歴はわかっていたのですが、各国で切り替えた日が
違うようですので、はてこの日付の飛びは当然日本じゃないだろうし…と思いま
して…。(Delphiってオランダ生まれでした？？)
Excelのシリアル値などは、1900年システムや1904年システムですので、1800年代
の人（明治初期など、まだ生存している方）の年齢計算は独自の年齢計算マクロと
かを組んでいました。

Delphiでは、1900年より前（正確には1899/12/30より前）をDateTimePickerで
指定しても構わないのかしらん？と思ったのですが…。
いかがなものなんでしょうか？　m(_ _)m

>>199-200
え、まじで1752年にはそこが抜けてたの？
つーかDateTimePickerはグレゴリオ暦で記述されてるんじゃないの？
単なるバグなんじゃ・・・

でも不安だから調べたら
http://www.borland.co.jp/products/borlandcpp.html
＞日付クラスであるTDateクラスは、1901年1月1日を基準（0）とする
＞通算日数をもとにしています（1900以前は負の値として表現されます）。
＞グレゴリオ暦が始まった1752年9月14日より前では正しく動作しません。
＞なお、Borland C++ 5.02 ではグレゴリオ暦から対応するユリウス暦への
＞変換に問題があります。この問題を回避するために、この date.cpp を
＞使ってください。
だそうだ、Delphiも多分同じだろう。賢くなたーよ。

DateTimePickerの9/19→10/1への飛びは、単なる「一週間単位」での
表示の都合上という事でいいんでしょうか？

1752年というのは、英国だったようです。お騒がせしました。

でも、何か変ですよね？1752/09/14以降は通常どおりって事なんでしょうけど
9/19→10/01への飛びは、やっぱり変？？？？？

ローマ法王グレゴリオ13世は、ユリウス暦の1582年10月5日をグレゴリオ暦の10月15日と定めました。
日本がグレゴリオ暦へ切り替えたのは、1873年1月1日からです。

1952年9月2日の次は1752年9月14日で、全体として19日間。
それを1から19に詰めて書いてしまう間抜けなDateTimePicker。
そのくせ1-13日はしっかり選択できなくしてある。
マイクロソフトが悪いんだよね？
September 1752
S M Tu W Th F S
1 2 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

>190
DelphianWorldにはShellComponetLibraryがあったと思うけど、
あれが嫌ならこれ見て自分でシコシコ作れ。
ttp://www.cmagazine.jp/bookreview/19990402.html

PostgreSQL(7.1)をPQコンポというフリーのコンポを使って使おうとしていますが、
ロックをかけて、ロックのかかったテーブルを触ろうとするとタイムアウトが発生
しない為に永久に待ち状態になってしまいます、なんとか逃げの方法はない
でしょうか・・・。

>>208
デッドロック・・・？

デッドロックと言うか、２つのＰＣで同じレコードを更新しようとしたような状態です。
先に更新しようとしたプログラムが該当レコードをロックしたままだと、この先のプログラムが
開放するまで、後から更新しようとしたプログラムは止まってます。
先の更新が終了すれば、後の処理が開始されて正常には終わります。
希望としては、「ロック中ですので更新できません」のメッセージの一つも出せたら
良いのですが、SQLを投げて固まるまでこれを判定する手段がないみたいなのです。

スレッドで動かして一定時間経過し帰ってこなかったら破棄したらどだろか

でも、破棄したついでにＤＢ側が壊れなきゃいいけど、やはりちょっと乱暴かな

ありがとうございました、スレッド破棄とか色々と実験してみます。

subject: [FAQ] ActionManager はどこですか？

Q. Delphi 6 Personal をダウンロードし、インストールしました。
Delphi は初めてだったので、同梱されている「クイックスタート」の
チュートリアル "TextEditor" をすることにしました。
ところが、このチュートリアルでは、ActionManager コンポーネントを
使うように記述されていますが、それを見つけられません。
ActionManager は、どこでしょうか？

A. 残念ながら、ActionManager は、Personal には、*付属していません。*
Professional 以上に付属するコンポーネントです。

しかし、ActionManager を使わない、古いチュートリアル "TextEditor" で、
Delphi を体験できます。

Delphi 5 クイックスタート・アップデートファイル
<URL:ftp://ftp.borland.co.jp/pub/delphi/d5onlinedocup/D5DOCTET.zip>

これを解凍して、TextEditorTutorial.pdf を読みましょう。

---
投稿する勇気の無いヘタレのためここに書き込みます。

>>214
自ら「FAQ」であると認識していることを、改めて書き込む意図はなに？

>>215よ

>>214の真意はここにある。
>投稿する勇気の無いヘタレのためここに書き込みます。


つまりじゃ、てめーが

「投稿しょうかな〜でもなぁ〜はずかしいな〜　誰か俺の代わりに投稿しろよ〜
でもまってても誰も書いてくれないし・・・　ええい！書いてみよう！！」

っつって勇気をふりしぼって投稿したことを誇りたいんじゃ。
よくやったの。>>214

google で検索すると、

Delphi 6 Personal には、ＡｃｔｉｏｎＭａｎａｇｅｒ は無い。→既知
Delphi 5 のチュートリアルは、ActionManager を使っていない。→既知
Delphi 5 のチュートリアルは、Borland のサイトからダウンロードできる。→知られていない。

だから、FAQ を更新する。

”繰り返される質問”は、回答とセットで意味を待つと思います。

それから、投稿しようとした宛先は、Borland の news group です。
Delphi 5 のライセンスを持っていないユーザーが、Delphi 5 のチュートリアルを
使うのは、目的外の使用とも解釈できるので、情報の公開の前に、著作者の
了解が必要かもしれない。おそらく、怒られることは無いと思うけど、
この辺の確認は、省きたい。→２ちゃんねるにしよう。

それが、何か？

ところでActionManagerて便利なのか？
わしは相変わらずActionList使ってるけど。

未だに使い方解りません・・・　list　も manager　も

ﾂｶｯﾃﾅｲ<ActionList

頼むから、ActionListぐらいは使ってくれ。

>>221
俺も使ってない、無理に使う必要がないように感じるのですが、使うとどの辺りで幸せになれる？

>>214 [FAQ] ActionManager はどこですか？

この FAQ の答えになってないと思うけど？
*付属していません。* という答え以外は、単なるおせっかいでしょ。
どうしても TextEditor を作りたいのならともかく。

>>223
それは、"subject" ですが？

"Q."　をよく読んでください。

これから出てきそうな（よく出てくる）質問に先回りして答えるのがＦＡＱだと思う
>>223

>>224
>"Q."　をよく読んでください。

読んでも、 ActionManager を使わない TextEditor を作りたい、とは
書いてありませんが？

>>225
>これから出てきそうな（よく出てくる）質問に先回りして答えるのがＦＡＱだと思う

Frequently Asked Question の意味を（以下略）

先回りするのはよくあること。

>>228
先回りして、しかも著作権の確認が面倒なので、他スレに書き込む、って
よくあることなの？ そうなんだぁ。

>>229
何で勝手にいろいろ付け足すの？変な奴。

教えてください。
TMemoryStream に読み込んだ任意のデータをクリップボードを通して
やり取りしたいのですが、どうしたらよいでしょう。受けとるほうも、
TMemoryStream に読み込んだ形にしたいです。

>>230
229 は 214 と 217 について粘着してるのよ

>>232 そうか、サンクス。
FAQについてレスしただけなのに困ったもんだ。

>>231 質問はageたほうがいいよ。（俺は知らないのでパス）

>>232
粘着して、先回りして、しかも著作権の確認が面倒なので、何で勝手にいろいろ付け足すの？
他スレに書き込む変な奴、って
よくあることなの？知らなかったなぁ。本当に？そうなんだぁ。

>>235
あなたは確実にキモイ

キモイのは放置。

RichEdit で、あるタイミングで赤い文字を追加したいのですが

function AddRedText(AText:string);
var
Col:TColor;
begin
with RichEdit do
begin
Col := DefAttributes.Color;
DefAttributes.Color := clRed;
Lines.Add( AText);
DefAttributes.Color := Col;
end;
end;

としても赤い文字にならないのですが…
なにが悪いのでしょうか。

DefAttributesをSelAttributesに変えてみれ。

>>239
ううむ、変わらなかったです…
ちなみに、先頭に赤い文字を追加しようと思って以下のように書きましたが、これもうまくいかないのです。
色は変わりますが、その後に追加した文字列もすべて赤色に…

function InsertRedText(AText:string);
var
　Col:TColor;
begin
　with RichEdit do begin
　　Col := DefAttributes.Color;
　　Lines.Insert(0,AText);
　　SelStart := 0;
　　SelLength := Length( Lines[0] );
　　SelAttributes.Color := clRed;
　　DefAttributes.Color := Col;
　end;
end;

漏れが書いたのはこんなカンジ。
Button1を押した時は赤文字のテキストが、Button2を押した時はデフォルトカラー
の文字列が追加できとるよ。

procedure TForm1.Button1Click(Sender: TObject);
var
　Col:TColor;
begin
　with RichEdit1 do
　begin
　　Col := SelAttributes.Color;
　　SelAttributes.Color := clRed;
　　Lines.Add(Edit1.Text);
　　SelAttributes.Color := Col;
　end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　RichEdit1.Lines.Add(Edit1.Text);
end;

キモくて、粘着して、先回りして、しかも著作権の確認が面倒なので、
何で勝手にいろいろ付け足すの？って放置されて
他スレに書き込む変な奴、ってよくあることなの？まじっかなー。ウソクセー。
知らなかったなぁ。本当に？そうなんだぁ。へー。ﾏｼﾞ情報？な？な？答えろよｱﾌｫ

あの、
実行ファイルの作成日時というか、自分自身のコンパイル年月日を知ることはできませんか？

たとえば、[バージョン情報]というボタンをクリックすると、その
プログラムがコンパイルされた日時を表示するようにしたいのですが…

実行ファイルの作成日時を取得すれ。
FileDateToDateTime(FileAge(Application.ExeName))

>>231
たしかクリップボードはGlobalAllocなんかで確保する形式だったかな。
なので、Moveでメモリーコピーすれば充分な気が。

凝ろうと思えば、TStream派生の、確保済みのメモリーに読み書きするクラスを作るなんてどうでしょう？
TAccessStream.Create(ポインタ, サイズ) なんて。
そうすればCopyFromでTMemoryStreamとやりとりできると思います。

…ここで確認のためヘルプを見る…
CLXの方にはTClipboard.GetFormatなんてそのまんまのがありますね。VCL側には無いみたい。
なのでもしCLXを使っていれば一発です。

あ、やっぱり実行ファイルの作成日時＝コンパイル日時でいいんですね。

ファイルを移動した場合とか変わっちゃうかと思ったらそうじゃないんですねえ…

どうもありがとうございました

コピーや移動、圧縮などではタイムスタンプも大抵保存されますけどね。
でも、リソース書き換えツールなどでいじられたら変わってしまいそうな。

>>246
それがいやなら、自分で定数ででも定義しておくしかないでしょうな。
その場合バージョン＝年月日なんかにしておくと楽かも。

>>245
>たしかクリップボードはGlobalAllocなんかで確保する形式だったかな。
>なので、Moveでメモリーコピーすれば充分な気が。

あっ、そうですか。ちょっと調べて、いろいろ試してみます。
あいがとうございました。

× あいがとうございました。
○ ありがとうございました。

訂正。ｽﾏﾇ

>248
バージョン情報のリソースに日時を埋め込む手もあるな。

無料のＤｅｌｐｈｉを入手しました。
ＸＭＬを処理というか、読み込むコントロールは無いですか？
ギコナビという、たしかＤｅｌｐｈｉ製のアプリでＸＭＬを読んでいたので、自分のソフトにもＸＭＬを
読み込む方法が無いか探しています。

>>252
そうですか。

>>252
まず第一に
TXMLDocというクラスはEnterPrise以上と説明があり、
ヘルプもないが、なぜかヘッダーファイルが存在する。
実は使えるという可能性がある。

第二に
MSXMLを使うということ。
メンドクセーが可能ではある。
根性があればどうにかなるが
数日徹夜することになるかもしれん。

>>252
まず第一に
TXMLDocというクラスはEnterPrise以上と説明があり、
ヘルプもないが、実は使えるという可能性がある。
BCB5パーソナルではヘッダがあったから怪しい。

第二に
MSXMLを使うということ。
メンドクセーが可能ではある。
根性があればどうにかなるが
数日徹夜することになるかもしれん。

すまそ、ダブルクリックしてもうた

>>252
OpenXML

もしかして、すごーく恥ずかしい質問かもしれませんが、ご教示願います。
EditBoxのKeyPressを監視して、Enterが押された時点で、Buttonに設定した
イベントをさせたいんですが、何か良い方法はないでしょうか？
今は、その処理させたい内容をサブルーチン化して、EditBoxからとButtonの
両方から呼んでいるのですが、処理はButtonのイベントハンドラにそのまま
書いて、EditBoxで、if key=chr($13) then [buttonのイベント］みたいに
したいんですが…
SetFocusして、キーを押したように見せかけるとか、考えてるんですが、はて？？

【Q】
質問です。
DirectoryListBoxで選択したパスに指定フォルダ名を付加したいのですが、
ルートの場合だけ「C:\\hoge」となってしまいます。
C:\program files\hoge　とやると￥マークが重複せずに済むのですが・・・

hogeが付加したいディレクトリ名です。

>>258
何のイベントだかわからないけど・・・
[buttonのイベント］=> Button.Click みたいな感じ？

>>260
そうです。procedure TForm1.Button1Click(Sender: TObject);
の処理を、EditBoxで、Enterを押したら、実行させたいのです。
今は、EditBoxのイベントでSetFocus(Button1)させて、もう一度
Enterを人間に押させてますが…

>>258

//key_unit.pas
unit key_unit;
interface
type
　ken_key = Integer;
const
　　key_Ent = 13; // Enter
　　key_Esc = 27; // Esc
　　key_F1 = 112; // F1
implementation
end.

>>258　　（さっきの続き）

//にkey_unitを追加
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, kt_unit, StdCtrls;
（中略）
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('ボタンが押されました！');
end;

//Edit1でEnterを押したときの処理。
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
　Shift: TShiftState);
begin
　case key of
　　key_Ent : Button1Click(Sender);　　　　　　　//Enterを押した処理
　end;
end;

>>261
だから Button1.Click じゃん

　Dialogs, kt_unit, StdCtrls;
　　↓
　訂正
　　↓
　Dialogs, key_unit, StdCtrls;

259は仮想キーコード知らないのか？

QuickReportを使っているのですが、プレビュー表示ができません。
ソースは、
procedure TForm1.cmdPreviewClick(Sender: TObject);
begin
frmreport.qRep.Preview;
end;
です。何も表示されずに、処理が終わります。
何かプロパティを設定しないといけないのでしょうか？
どうか、ご教授お願いします。

>>266
Delphiじゃなくてkylixで育ったからこんなコードになっただけ。
それに直にマジックナンバー使うの嫌だし。

もしかして、要はButton1Click(Sender);を付けるだけ？？
大変大変、失礼しました！！！！！

>>268
少しはヘルプファイルを読んだ方がいいと思われ。

>>269
普通は Button1.Click を使うと思うけど。オブジェクト指向するなら。

>>269
なるほど、手続きの呼び方が分からなかったって事ね。
ひとつ勉強になったね。

>>266
あのやり方は普通だと思うけど。
仮想キーコードを使うにしてもconstで切った方があとで修正するときに手間省けるよね。

>>259
ドライブがrootかどうか調べて・・・
ごめんこれ以上わからん。
家に帰れば本が有るんだが。
GetDriveなんとかって言うので調べれなかったっけ？

>>259
パスの末尾の文字を調べればいいと思うけど。

仮想キーコードを自前でconstで定義されている方々は
Windows.pasを"VK_"で検索してみると発見があるかも知れませんよ。

>>272　そうなんだけど、日本語ファイル名を考慮すると　末尾が２バイト文字の２バイト目でない事も考えないと

パスのサイズが３バイトかどうかで判断すれば？
C:\はルート。
D:\でもE:\でも同じ。

var
　size : Integer;
begin
size := Length(WideString(パス));

いろいろ調べたら、どうもReportに使っているADO Queryコンポーネントが悪さをしているようです。
引き続き、がんばってみます。

良く関数の最初に
Sender: TObject
とあるのですが,これはなんでしょうか？
Delphiのソースを読んでいるのですが,これがわかりません

>>277
イベントハンドラだね
そのイベントを起こしたもの（主にコントロール）が引数として渡されるんだよん

複数のコントロールのイベント処理をひとつのイベントハンドラに書くような場合
呼び出し元によって処理を振り分けたりできるんだよん

>>278
ありがとう

おまえら、
Del用のドキュメント生成ツール（VB仕様書工房のようなソフト）
使ったことがある奴がいたら、

使い勝手を教えてください。

>259

別の考え方を提示すると。指定パスの
\hogeの\を削ってはどうですか？

IncludeTrailinjgbackslash関数を使えば
選択したパスに\つけられますからね。

ありゃｊがミスって余計にはいってしまった。

誤　IncludeTrailinjgbackslash関数
正　IncludeTrailingBackslash関数

manifestを使った状態でTComboBoxでBackSpaceを押すと
日本語でも1バイトしか削除されなくて文字化けしてしまうんですがどうすれば解決出来るでしょうか？

delphi6のＣＤから落としておいたほうが良いファイル
って何がある？
とりあえず、古いAPIの日本語版helpとWin32.hlpは落としたけど。

お薦めがあったら教えて。

>>252
ソース見てないでしょ。。公開してるのに。
ギコナビでは海外のSAXコンポーネントをインチキ改造して無理やりSJIS通しています。
ただ、外人さんのコンポーネントなので、SAX自体のソースは添付してないです。
ソースダウンロードすれば、そのコンポーネントのダウンロード先が書いてあるよ。
でもギコナビのは、適当に読んでいるだけなので、参考にならんかと。
もし参考にするならb15じゃなくてb16のを見てください。
DOMを使うなら、>>254氏のやつか、XDOMかな。
XDOMは日本語対応した人がいたはず。
MSXMLは、IEとかに標準でついてくれば利用者が増えると思うのに。。。
（あれ？付いてたっけ？）

>>282
今ならIncludeTrailingPathDelimiterかな？

>>283
manifestを使ったことないんで分からんけど、AutoCompleteをFalseにしたらどうなるかな？

>>284
アメリカ版のDelphiヘルプ

>286
そのとおりでした。
私のほうも
D6だと機種依存があんたらかんたらとでてしまいます。

Delphiでプロジェクトを作成しプログラムを組んでるとバックアップファイル（unit.~pas）などが出来ますよね？
これって出さない方法ありますか？
もしくは別のディレクトリに一括にまとめる方法など。

Delphi初心者です。
文字列の先頭を持って来るにはどうしたら良いのでしょうか？
Mid関数みたいなものがあればと思ってます。

くだらない質問で申し訳ありません。

>>289
a :String;

a[1]

>>283
>manifestを使った状態でTComboBoxでBackSpaceを押すと
>日本語でも1バイトしか削除されなくて文字化けしてしまう

再現しました。QualityCentral 行きにします。

>>289
StrUtils に MidStr 関数があります。VB 互換。

>>288
危険なオプションだから GUI では設定できないようにしているのかな？
レジストリの borland\delphi\6.0\editor\Options に "Create Backup File" が
あるから、False に設定。

>>288
DelDel.BAT
--------------------------
CD /D %1
del *.tds
del *.~*
del *.dsk
del *.dof
del *.dsm
del *.dcu
--------- ここまで -----
これを SendToにでも入れておいたら　いいんじゃない？

ADO Queryで集計関数を使わずに、QRExprコンポーネントを使用して集計を行うと、
きちんとプレビュー表示できました。
みなさん、どうもありがとうございました。

デザイン時に小さいフォントで作っていて、そのEXEファイルを大きいフォント
の環境で実行すると、コンポーネントに位置がずれずれになります。
これって、上手い具合にdpiを上手く計算とかしないと駄目なんでしょうか？

ばかばかしい
ツール-エディタオプション-表示-バックアップファイルの作成

>>297
みつけられなかったんだよぉ..

オラクルのストアドファンクションから値（OUT引数）を取得するには
どうすればよいですか？

音を監視するのはやめてプログラムに表示されている数字が変化するのを
監視するように変えたのですが、WinSightで見てみると
WM_Paint Sentで座標を指定して書いて、
WM_ERASEBKGND Sentで消してました。
数字を送っているだけだろうからそれをフックして抜き取れば
と思っていたのですが、甘いでした。

なかなか高いハードルみたいです。
これはペイントデータを抜き取ってＯＣＲするしか方法は無いのでしょうか？
ご存じの方がいらっしゃいましたら教えてください。

>>300　普通はソレしかない事が多いです GetWindowText　出来るのは滅多にありません

しかし、数字だけに限ればそれで十分実用になりそうですが？

>>296
Scaledぷろぱてぃ

>>302ありがとうございます。
すみません。それとStringGridの内容をマウスでドラッグして、他の
アプリに持っていきたいんですが(TEXT情報)、コピーできません。
別個クリップボードに内容をコピーしてやるルーチンを組まざるを得ま
せんでしょうか？
何か、コピーを許すとかいうプロパティは無いでしょうか？

>>300
わりとウザがられてるし。
いい加減にどのソフトをｸﾗｯｸしたいのか教えなさい。
そうすりゃすぐに答えが出るはず。

VCLのDrag&DropはVCL内で勝手に処理しているので他のアプリと互換性は無いです。
OLE Drag&Dropのコンポーネントが、付録CD-ROMに入っていたと記憶。
手書きしてもいいけれどそれなりに手間はかかります。

TDBGridコンポーネントのオプションを変更して複数行選択可能にした時に、
SelectedRowsプロパティを見れば選択されたレコードを取得できますが、
実行時、SelectedRowsにレコードを追加することはできるんでしょうか。
TDBGridコンポーネントの全レコードを選択するボタンを作りたいので、
よろしくお願いします。

説明不足でした。
Drag&Dropでなくて、単純にセルを選択して、Ctrl+Cで持って行きたかった
んですが、無理でしょうか？。
やっぱり、Buttonでも作って、コードでクリップボードに送ってやるしか
ありませんか？

>307
ボタンを配置せずとも、TStringGridのOnKeyDownで駄目ですか。
中で、

if (ssShift in shift) and (Key=VK_C) then
// クリップボードに送る処理

みたいなんじゃ？実験してないし思いつきですけど。

>308
スマソ。これじゃ、Shift+Cになっちまいます。

>306
TBookmarkList.CurrentRowSelectedを調べてみ。

>>301
レスありがとうございます。
そうですか。
ではとりあえず、文字を覗き見てImageに貼りつけられるか頑張ってみます。
難しそ〜。

>>304
うざくてｽﾏｿ。
アメちゃんの証券会社のソフトだから言っても分からないですって。
顧客にしかソフトを配布してないですから。

日本には超マイナーな国の株も投資出来る証券会社って無いんですよねえ。。。

>310
ありがとうございます。
最初、チラと見たときに、「これじゃ一つのレコードを選択・非選択にするだけ
じゃん」と思ったんですが、なるほどTrueにして次のレコード･･･と処理させれば
うまくいくのですな。助かりました。（ただ、ちょっと遅いけどしょうがないです
かね）

すいません、少し皆さんのお知恵をお貸しください。

ホームページで使用するDLLを作成しているのですが、
毎回ユーザー毎にデータベース接続の接続をしているので、
ページが表示されるまで待ち時間が長くかかっています。

接続を１つにまとめて、
それを使い回す様なことをしたいのですが、
可能なのでしょうか？　可能であれば、どのようにすればよいのでしょう

m（＿＿）m　よろしくおねがいします


ちなみに・・・
ホームページ側は、クラスではないライブラリしか呼べないです

>>313
＞ホームページで使用するDLL

の時点で、

＞にデータベース接続の接続をしているので

こんなもん扱えるわけがないと思うのは俺だけでしょうか？

>>314

＞＞にデータベース接続の接続をしているので
＞こんなもん扱えるわけがないと思うのは俺だけでしょうか？

接続の接続ではなく・・・
接続だけです。入力ミスです、すいません


ASP・Perl・JSPなどのサーバサイドスクリプト -> DLL -> DB

ここでのDLL部分で悩んでいます。
サーバサイドスクリプトなので、ユーザーには結果だけが表示されるのですが、
処理時間が遅いのです。

　　 ∧,,∧　 　>>303>>307さん
　　,ミ ﾟДﾟ彡　Ctrl+Ｃを使いたかったら
　 ﾐ　　∪　　Actionを作ってShortcutＫｅｙを設定して
　ﾐ〜,,　ﾐ 　　Action｡Executeを記述するといいと思われ
　 ∪ ∪

>>313さん
Webアプリは難しいですよね。
ASPしかわかないですが
ASPのApplicationオブジェクトとかSessionオブジェクトで
管理できるといいんですけどね。

ASP.NETに逝こうした方が素直でいいかもね。

Windows2000プロフェッショナルで作成したDelphiのEXEを
WindowsNT4.0WorkStationで実行すると、
「アプリケーションエラーが発生しました」と表示され、
プログラムが起動せずに強制終了します。

BDEを使ってオラクルに接続だけ確認しているプログラムなのですが、
何が原因なのでしょうか？

BDEを後からインストールしましたが解決しませんでした

>313
googleでもどこでもいいから「セッション管理」で検索してみれ。
可能かどうか、と言われれば可能だけど問題も色々あるからよく検討するように。

>317
BDEやオラクルのバージョンも書かないで質問を投げられても判断不能。
問答無用で逝ってよし。

>>297
p-chanﾊｹｰﾝ!!

>>TeamBさん
QualityCentralって某アメリカなんですか？
ｼﾞｬﾊﾟｰﾝのｲﾊﾟｰﾝﾕｰｻﾞがﾆﾎﾝｺﾞでバグ報告できるところはないの？

>>317
NT4 WorkStation...
・最新のコモンコントロールがインストールされていない
でしょうか。まだ Delphi の CD に収録されているかな？

>>315
ASP・Perl・JSPなどのサーバサイドスクリプト -> DLL ->　EXE -> DB

DLLでEXEが動いていなければEXEを動かす
DLLとEXEはプロセス間通信(メッセージとかパイプとか　簡単にメモリマップファイルとか）

こうしておけば、DLLやサービスより動作状態も目で見えてデバグも楽

>>319
おはようございます。
QualityCentralって某アメリカのです。
某 ML の方々はまだ誰もポストしていないようです。

日本語で書き込んだら何が起きるかな。

「ｼﾞｬﾊﾟｰﾝのｲﾊﾟｰﾝﾕｰｻﾞがﾆﾎﾝｺﾞでバグ報告できるところ」
ここでよろしいんじゃないですか？

Word が 2 バイト、LongWord が 4 バイトだとすれば、
以下の構造体のサイズは 14 バイトになるはずなのですが、
SizeOf 関数を通してみると 16 バイトになっています。なぜですか。

program Project1;

{$APPTYPE CONSOLE}
type
　TBitmapFileHeader = record
　　FType: Word;
　　FSize: LongWord;
　　FReserved1: Word;
　　FReserved2: Word;
　　FOffBits: LongWord;
　end;

begin
　WriteLn( Sizeof( TBitmapFileHeader ) );
　ReadLn;
end.

>>323
アラインメント調整。
いやならpackedをヘルプで轢く。

おお、なるほど！
たしかに packed をしないと 4バイト境界にあわせられるとかいてありますが…

すると、Word の部分がすべて4バイトぶん確保されて
4 * 5 = 20バイトになるのでは…？？
いや、関係無いのですが。

みなさま、こんにちは && おつかれさまです。

(1) EditコントロールにはAlignmentプロパティ(右寄せ、中央揃え等)はないんでしょうか？

(2) オブジェクトをサブクラス化するサンプルコードはどこを探せばあるでしょうか？

(3) VBのMeキーワード(自己参照)に相当するものはDelphiにありますか？

(4) ShowDialog等で、VBのMsgBox関数の、vbDefaultButtonX(既定のボタンの変更)
　　に相当することは可能でしょうか？
　　また、ダイアログのタイトルの変更(おなじくMsgBox関数の第3引数に相当)は可能
　　ですか？

以上、ご存知の方、いらっしゃいましたら、ご教示ください。

>>326
Windowsメッセージ投げる。

オブジェクトって色々な物の呼び名なので特定不能。

self

メッセージ

>>326
VBユーザーのためのDelphi6プログラミング
http://www.amazon.co.jp/exec/obidos/ASIN/4274064514/249-6085935-6568357
これ嫁

>>327-328

感謝。

あとは自分で研究します。(つうか、安易な質問だった・・・)

検索かけてもわからなかったので、質問させてください。
環境はWin2000+Delphi6.0personalです。

mona : array[0..255] of Char
と宣言した変数に返り値がPCharの関数を代入しようとしたら、
「'Array' と 'PChar' には互換性がありません」と言われます。
どうしたらいいんでしょうか…

つーか、キャストとか良く分かりません（汗
（型変換とまでは理解してるんですが…）

検索で見つけたページに
＞ただし、NULL文字を含む固定長文字列(宣言：変数名 : Array[0..文字列長] of Char)、
＞文字リテラルは型キャストの必要はありません。

と書いてあったんですが、API関係は特にわからなくて、つまづいています。

>>330
mona := 'omaemona';

とかしたわけ？

Strcopyを使いましょう。

Delphi-ML でよく発言される
戸田英夫さんの言い方には、カチンときます。

みなさんはそんなことないですか

匿名掲示板でよくみられる
個人名を晒してあげつらうようなやり方には、カチンときます。

みなさんはそんなことないですか

>>332
あなたのレス、コピペして投稿しました。

　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧,,∧　　　 ／最近のメールソフトには
　　ミ,,ﾟДﾟ彡　＜　メール振り分け機能がついているので
　　 U　　つ 　　＼不必要なメールは自動削除すれ
　＠ﾐ　　ﾐ 　　　　 ￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∪''∪　

>>335
Delﾌｻは、彼のメールは自動削除している。と。

>>330
var ウルトラマンコスモス:string;
begin
ウルトラマンコスモス:='ﾀｲｰﾎ';
なんたら関数(Pchar(ウルトラマンコスモス));
end;
ではダメ？ダ…ダメ？ﾋﾞｸﾋﾞｸ…。

先生！全角ってなんですか？

>>336
彼のメールの内容は「過去ログ嫁」しかないから削除しても誰も困らない。

>>338
私はその質問も一緒に削除してます

>>337
何　が　言　い　た　い

けれど過去ログがいつも/いつまでも正しいとは限らなし、
初心者の質問は常に新鮮な目で見ないと。

何事にも謙虚さが大切ですね。

Delphiのちょっとしたテクニックをお聞かせ下さい。

Labelがいくつか有ったとします。
プロパティに直に書き込むのはあれなのでストリングテーブルを作ろうかと思うのですが、
Delphiの場合はみなさんどのようにやってますか？

>>342
　なぜ"プロパティに直に書き込むのはあれなので"と思うのですか？

　 　| 　　　　>>336してます
電　| 　　　　>>338剥げ同意
　 　|∧,,∧ 　>>341その通りだと思います
柱　ﾐ,,ﾟДﾟ彡　
　　⊂　ミ 　　誕生日計算ﾈﾀも
　 　|,　,,ﾐ 　　新たな発見がｲﾊﾟｲでしたね
　 　|∪
, '　,　;　'　;

>プロパティに直に書き込むのはあれなので
ああ、あれですね。あれ、あれですか？
あれ？ってどれ？
StringListを使うのがいいんじゃないでしょうか。

>342
「あれ」が何なのかわかりませんが...
通常のクラスと異なる動作をさせたければそれを実装したクラスを再定義するのが
正しい道だと思いますよ。

プロパティデフォルトを変えたければ Create コンストラクタで値を設定する
クラスを定義すれば余計な作業は必要なし。

たとえば .INI ファイルやレジストリ、リソースから読み込みたいときは
簡単に実装したければ ReadFromIni のような手続きを用意して
Form の OnShow で初期化。

TStringListって、SaveToFileが使えて便利なのですが、
TListで簡単にファイル保存するような仕組みって無いのでしょうか？
例えば、TStringListへ一旦入れ込んでSave出来ないか？とか試して
みましたが挫折しました。

>346
まあ、TListはTObjectを継承した単純な仕組みですし。継承してSaveToFile定義
するのが楽なんじゃないでしょうか。TListは何型の値が入るか決まってませんし、
そういう状況を考えると、TListに保存機能を求めるのってナンセンスでは･･･？

>>347
>TListに保存機能を求めるのってナンセンスでは･･･？

ですよね・・・、SaveToFileを定義するのであれば、いっそ、毎回手書きで
保存した方が読み込み時の事も考えると見通しが良いですよね・・・。

ご意見ありがとう！

>>331
ありがとうございます。
コンパイルは通りました。が、別のエラーが（汗

ここにソース貼っていいですか？50行ちょっとありますが。。。

３年ほど前までDelphi4、AS/400の組み合わせで仕事していた
元職業プログラマーだったんですが、当時からAPIはほとんど
触らなかったんで、未知の領域っす。

今は、印刷関係の仕事をしてて、テキスト処理をDelphiでやり
つつある所です。

ものすごくくだらないことで悩んでいる気がしてるのですが
いくら調べてもわからないのです

プロセスの終了記述って　どうすればよろしいのですか？（汗
プロセスがあがったままなんです。。。

自分で自分がいやになる質問だ。。。（鬱

>350
プロセスの終了･･･って、アプリケーションプロセスのことでしょうか。
だったら、Application.Terminate;で終わりますけど･･･違うのかな？
ちなみに、Win98系でアプリケーション終了後に残るタスクバーのボタンは、あれは
Win98の問題らしいですよ。BorlandのDelphiFAQページに載っていたと思うんです
が･･･。
見当違いかもしれませんけど、よろしく確認ください。

>>351
あぁ。。。
優しい対応うれしいです

アプリケーションを動かすと、プロセスが残ってしまうのです
プログラムを終了させる記述が必要なのでしょうが、
Ｄｅｌｐｈｉ6.0でありえるWindowsアプリケーションのプロセス終了記述が、
わからないという。。。

ご回答いただいたApplication.Terminate;以外にも方法はあるのですか？
いくつかあるようでしたら、調べて最適な記述をしたいと思っています。

>352
　昔はHalt;なんて使っていましたが、これはどうなんでしょうか。強制終了みたい
なものだから、状況によってインスタンスが何か残るかもしれません。
　適当な回答で申し訳ありませんけど、お試しください。

>>353
ありがとうございます。
Application.Terminate;
でプロセス終了いたしました。
手元にある本がDelphi関連だけなのですが、
ＡＰＩ関連も必要ですね。。。

Delphiで（Pascal?）自プログラム（プロセス）終了の記述というのは
しないものなのか、そもそも存在しないものなのか。。。。
Windows単独アプリケーションなのですが、セオリーってどのようなものなのか。。。

>354
Application.Terminate;は、API呼び出しではなくってDelphiのTApplication
クラスのメソッドを呼び出しています。
TApplicationは、作成したアプリケーションの情報を色々もっているので、ヘル
プで見てみると中々面白そうで役に立ちそうな機能満載で楽しいですよ。

･･･ちなみにここはsage進行がよろしいのでしょうか？（あげてた･･･）

セオリーはGUIアプリなら メインフォームをClose
コンソールアプリなら普通に　リターンしていけば終るかと

>>355
おー
そうですか
TApplicationをよく調べてみまする
ありがとうございます！

質問の内容が恥ずかしいのでsageておりました（ｗ
多謝です！

>>354
フォームがあればメインフォームをCloseでは?

>>356
ＧＵＩアプリです
TCustomForm.Close
これですか？
おお。。。なるほど。。。確かに終了するとの記述がありますね
TApprication.Terminate
とどちらでも良いのかな。。。

勉強いたします

>>358
CloseとTApprication.Terminateとで　悩んでおりまする。。。

>>356, 358
その通りですね。その方が確かに楽チン･･･。

>>361
おぉ。。。
そうですか。。。
両方をよくみてみます
結果は同じでも、命令が違ければ何かが違うはず。。。（ｗ

楽ﾁﾝぢゃないほうが何かいいことがあるんではないかと。。。
探ってみまする

メインフォームが閉じられる時に、自動的にTerminateが呼び出されると
ヘルプに書いてありましたぁ

みなさま　ありがとうございます

>362
うーん･･･。
将来、当該フォームを他のアプリケーションで流用する可能性がある場合に関して
は、CloseとTerminateはしっかり分けた方がいいのかもしれませんね。
　Terminateはアプリケーションの終了
　Closeはウィンドウを閉じる
わけですので。
このフォームをメインフォーム以外として使用した場合にはウィンドウが閉じられて
予定外の結果になるかもしれませんし。もちろん、流用することなんてありえないの
であれば、関係ないですけど。

>>364
あ〜。。。そうですね
自分もその辺の応用がきくように。。。と考えているので、
検討しなくてはならないですよね
かなり拡張していく可能性がある状況ですので

ご意見助かります

TLabelのFontColorプロパティにて
プルダウンで出てこない色を使用することというのは
可能なのでしょうか？

>>366
普通に代入すればいけそうですが。
詳しくはヘルプにてTColorを参照していただくとよろしいかと。

>366
ダブルクリックしたら例の色指定のダイアログボックスが出ませんか？

>>367
１６進での指定ですね
わかりました

>>368
今、感動にのたうちまわっております

フォームにタイトルバーを出したくないのですが、
フォームの概観を少し浮き出た感じにしたいのですが。
BorderStyleをbsNoneにすると、タイトルバーは消えますが、
概観がまったいらになってしまいますし、
BorderStyleにbsToolWindowを設定して、BorderIconsを全部Falseにしても、
タイトルバーは消えてくれませんし。

何か方法があるのでしょうか？

ADO Express + TClientDataSet で
キャッシュアップデートしたいのですが、
なんかApplyUpdateするときに
Ｉｎｓｅｒｔ Into の構文がおかしいよとか言われてしまいます。
もしかして、ADOExpress + TClientDataSet って使えないの？

>>371
(1)フォームのBorderStyleをbsNoneにする

(2)フォームのところにprotectedを追加して以下の宣言をする
procedure CreateParams(var Params: TCreateParams); override;

(3)以下のコードを書く（サイズ変更したけりゃ、コメントの位置を逆にする）
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
//Params.Style := Params.Style or WS_THICKFRAME;//サイズ変更可
Params.Style := Params.Style or WS_DLGFRAME;//サイズ変更不可
end;

↑のやつは、>>370へのレスでした。

Delphi5なんですよ。

で、日付の計算をしたいんですけど、何月何日から何日あとの日付、ってのは、どうやって計算すればいいんですかねえ。

標準の関数では何ヶ月経過後、しか計算できないみたいですけど。

>374
TDateTime型をヘルプでよく調べろ。
例えば現在の日時から一日後の日付を得たいのなら
　a := Now + 1;
でＯＫなことが分かる筈。

基本的な疑問なのですが、TutobPascal時代は置いといてWindows環境になってからだけでも、
Delphi2->3->4->5->6と買って、ついでに、JBとCBとKylixまで持ってるのですが、ボーランドから
感謝状もなんも来ません（藁

そりゃいいとして、Delphi4辺りから、劇的に何かが変わるってのが無いようなのですが、
今度出るDelphi7も似たようなものなのでしょうか。
もっと心配なのは、コンパイル後のexeのサイズが同じソースであっても太る傾向にあるようですが、
なぜでしょう？

早く直す早く！

delphi6 personalの使用者登録の仕方がわかりません。
誰か教えて下さい。おながいします。

>>378
青い紙に「祈願・登録」と書いて、「オン・アブラウンケンソワカ！」と３回
唱えた後に南の方角に向かって印を結びながら紙を飛ばしなさい。
いいことあるでしょう。

>>378
osorano hoshini inorinasai

>>378
readmeか何かに載ってなかったっけ？

とりあえず
http://register.borland.co.jp/delphi_personal.htm
見て

ネタデナカッタンデスカ。

>>378
インストールできますた。
どうもありが�d。

ガ━━(ﾟДﾟ;)━━ン! 自分にレス！
そーゆー時代？
ナウイ？
新人類？

>>385
なにいってんだボケ、激しくスレの進行を妨げてるんだよ！逝け。

>>386
スレッドストッパー。

最近は再帰呼び出しが流行ってるんですか？

program Project1;
{$APPTYPE CONSOLE}
uses ShellApi;
begin
　ShellExecute(0,ParamStr(0),'','',0,SW_SHOW);
end.

>375

なんだ、そうだったのか。関数ばかり調べてたよ。算楠

タスクバーもどきを作りたいのですが、
タスクバーに表示されているアプリケーションは
どのようにして取得すればよいのでしょうか。

FindWindow で、Parent ハンドルが 0 のものだけを探し出す
ようにしているのですが、タスクバーに出ていないものまで
引っかかってしまいます。

逆に、タスクトレイに登録されているアプリケーション名もしくは
アイコンもしくはウィンドウハンドルを取得するにはどうすればよいでしょうか。

　Delphiで作成されたと思われる Resource Hacker というリソース解析ツールが
ありますが、これを使ってDelphiアプリをチェックしても、たとえばスピードボタ
ンのGlyphで読み込んだりImagelistで保持しているビットマップは、Resource Hacker
のBitmapのところを調べても表示されません。これはどういうわけなんでしょ？

>>391
ビットマップリソースとして管理してないからです。

>>391
Delphiアプリのリソースは、フォームに保存されます。
で、フォームは、リソースのどこか（名前忘れた）に保存されてる。

>>391
DFMがそのまま覗けるからそこからテキスト編集中のフォームへコピー。

>>390
プロセスを取得するAPIなかったっけ？
それか、findwindowでparentがnullでvisibleなやつとか。

TOpenDialogを使ってファイルを選択するダイアログを出そうとしてるんですが、
これを呼び出すボタンってどのコントロールを使うのが一般的ですか？
よく[･･･]ってなっているボタンをみかけるんですが。
たとえば、オブジェクトインスペクタのTOpenDialog.FileNameプロパティに
表示されるあのボタンです。

TButtonのCaptionを"..."にしてみたんですが、なぁんか違うなぁと。

>>395
funckingyouとかね。

>>396
TEllipsisEditとかいうコンポがある。

>>396
ありがとうございます！ 検索します。

>>399
VCL ソースをお持ちなら、Grids.pas の TInplaceEditList.PaintWindow を
見てみては？ボタンの幅に合わせて小さな黒丸を三つ描画しています。

お手軽に作るときは、スピードボタンに ... でしょうか。

Delphi初心者なんですけど
１０個の実数を読み込んでそれらを昇順に並び替えるにはどうすればいいんですか
お願いします　教えてください

>>401
丸投げ
自分で作ろうという気がないのか？

>>402
考えたけどまったくわからないんです

>>403
２つだったら並び替えできる？

>>404
できます。

>>401
フローチャート書いて見たら？
ﾏｼﾞﾚｽﾀﾞﾖ。

>>405
３つの並び替えはできます？

じゃあサービス >>401

program Project2;
uses
Windows, SysUtils, Classes;

var i:Integer;
var s:string;
begin
AllocConsole ;
with TStringList.Create do try
for i:=1 to 10 do begin
write(i,'>');readln(s);Add(s);
end;
Sort;
writeln(text);
finally free;end;

end.

>>407
ちょっと無理かも

どうかな。

begin
for i:=1 to 10 do
readln(a[i]);
i:=1;
while i<10 do begin
p:=a[i]>a[i+1];
if p then begin
s:=a[i]; a[i]:=a[i+1]; a[i+1]:=s;
end;
i:=i+ord(not p or (i=1)) shl 1-1;
end;
end;

これで動くかしらん？

補足しますと、
a : array[1..10] of real;
i : integer;
p : boolean;
です。どうかな。参考になれば。パスタですが。

すみません　やってくれてから言うのも悪いと思いますけど
まだ　if while for repeat 配列　しか習ってなくて
これで作らないといけないんです。

モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/test/read.cgi/tech/1021262086/l50

>>412
なるほど宿題ですか。

>>414
宿題ではないけど、先生に聞いても、
ちゃんと教えてくれないんです。
もう、ココくらいしか聞ける所がなくて

>>415
んー。言語を教えてくれている先生が教えてくれないなら、酷い先生ですナァ。

>>412
配列はわかる？
もしかして、フローチャートって知らない？

配列はわかりますけど
フローチャートはよくわかりません

>>418
フローチャートは、プログラムの流れ図で、
プログラムを組む前段階の作業っす。

白い紙に、矢印や記号を買って、
プログラムの流れ作業を書いていく。

ここじゃ図解するのめんどくさいから
http://www.am.chs.nihon-u.ac.jp/~yaku/cai/pascal/p0102.html
ここ参照。ノイマン形の方。

あとは、自分ならどう言う手順で並び替えをするか文章化して見る。
で、その文章をフローチャート化し、フローチャートから
コーディングっていう流れが理解しやすいかも。

数字のソートの文章化なら、
数字が書いてある紙が不規則に散らばっている。
１・それのうち、一番近くにある１枚を拾う。
２・２枚目を拾う。２枚目が１枚目より大きければ上へ。小さければ下へ。
３・３枚目を拾う。３枚目が一番上のカードより多ければ上へ。
　　小さければ１枚下へ。
　　ａ：その下のカードが３枚目より小さければさらに１枚下へ
　　（ａ：を繰り返し）
って、感じでしょうか。かえってわかり辛いかも…。

>>419
＞白い紙に、矢印や記号を買って、

訂正

＞白い紙に、矢印や記号をつかって、

>>419
ありがとうございます。
とりえずやってみます。

すいません、ちょっと教えてください。

function F54_GetPrinter(PrintIndex : Integer) : PChar ;
//プリンター情報取得
var
device, driver, port: array[0..80] of Char;
h: THandle;
Str: array[0..255] of Char;
begin
Printer.PrinterIndex := PrintIndex;//プリンタを指定
Printer.GetPrinter(Device, Driver, Port, h);
// win.ini の [windows] の device に書き込む文字列を作る。
StrCopy(str, Device);
StrCat(str, ',');
StrCat(str, Driver);
StrCat(str, ',');
StrCat(str, Port);

strcopy(Result,Str);
//CharをPCharにキャスト

end;

これの、最後のstrcopy(Result,Str);で
「EAccessViolation クラスの例外を生成」
がでてしまうんですが、さっぱり原因がつかめません。

どなたか、ヒントでもお願いします。

>>422
Resultのメモリ領域が確保されていないのでは。

>>423
Resultのメモリ領域確保って必要なの？（汗

えーと、えーと、どうやって確保するんですか？（大汗

Delphiのヘルプってわかりづらい…

>>424
この関数の場合返り値がpchar型ですんで、4バイトのポインタを返すだけです。
領域の確保、破棄は自動的には行われません。
string型で文字列を返すようにするか、あるいは、getmemを使ってメモリ確保する
か（この場合、別途破棄も必要です）、あるいは、呼び出し元でメモリを確保する
ようにするかですねー。
問題が無いならstringを推奨です。（DLLとかだと逆に面倒ですが）

>>419
流れ図なら構造化プログラミング図（SPD)ってのもなかなかいいですよ。
フローチャートに比べると各処理のブロック化(構造化？)がし易いので、
長文のときは全体の構造がすっきりしてくる。
俺は実際に図を書くことは殆どないけど、
脳内でSPDをイメージしながらコーディングしてるよ。
まぁ、読みやすさは書く人のスキルによって変わってくるんだけどね。

pascalにはソート関数はないのでしょうか？
Cにはqsortなんてのがあったんですが、、、、

>>425
サンクス(ﾟ∀ﾟ)ｺ

動きました。

実はこれは職業プログラマー時代にサンプルソースを切り張りして作った
通常使用プリンター切り替え関数の一部。

ＭＬにも投稿したことがある（汗

なのに、このざま（爆

>>427
私なんか、TurboPascal暦4年で癖が染み付いちゃってて、Delphiに移ったときに
オブジェクト指向を全く理解せずに5年半くらい？使っておりました。（爆
ようやくクラスの設計をし始めたのがここ1年。（泣

NTにSP6aで使っているのですが,DELPHI6大丈夫ですか？
オフィシャルの動作環境では　SP5なんで…

>>428
職業プログラマー時代、
オリジナルの入力制限Editを作ってみて、
なんとかオブジェクト指向理解しかかったけど、
開発プロジェクトの他のメンバーがそのEdit使ってくれず、
結局、サブルーチンの共有化に落ち着いた…。

今は、Parsonalを使ってるけど、
データベールコンポーネントが使いたくてたまらない…。
↑付きのやつ高いしなぁ

雑談sage。

データベールってなんじゃねん。
データベースです。

>>430
あり。
Personalって商業ベース配布不可じゃなかったでしたっけ･･･？
一応私の所では、Personalは商業ベース配布が不可だったからDel5のProfessionalを
購入したような気が･･･。おかげで、一応データベースコンポーネントがついておりま
すが、これまで趣味のゲームプログラマだったのでデータベースなんか使ったことが無
く、今、色々試しながらアプリケーション開発中です。

>>432
＞Personalって商業ベース配布不可じゃなかったでしたっけ･･･？
フリーソフトなら配布可能です。
サポートにメールして聞きました。

まあ、ほとんどが社内向けのツールですが。
（会社っていっても10人みまんだし）

ちなみに、いままでに作ったヤツ
・文字電卓（文字数から必要な大きさを計算）
・テキスト自動変換（一括置換＆タグ付け）
・HTMLの表自動生成
・進行表（ネットワーク対応）
・PDF自動印刷
・フォント見本帳タグ作成

とかっす。去年からDelphiにでもどったので、
月産１本程度。小物ばかりですが。

いやぁ。プログラムってほんっとに面白いですねぇ〜

>>433
なるほどー。
私も、会社で半分が社内で利用するツール作成、半分が他社製品のカスタマイズ
ですねー。
最近になってようやく会社オリジナル作品の制作を行えるようになりまして。そ
んなわけで、オリジナル作品の制作中です。

ほんとにプログラムって面白いですよねぇ〜。
（他人のプログラムいぢくるのはもうウンザリですケド）

勉強の為に数値入力コンポーネントを作成したいのですが、
何かシンプルな作りで参考になるようなお勧めコンポーネントありませんか？

こんなのどーよ
ttp://homepage1.nifty.com/ht_deko/junkbox.html

>>436
これだったら機能が多くないので私でもなんとなく読めます（＾＾；
これを使って勉強させて頂きますありがとうございました

ttp://homepage1.nifty.com/ht_deko/junkbox.html
ここから落としてきた数値入力コンポなんですが、設計時にプロパティのvalueに
9999999999999 を設定すると実行したとたんに、

EReadErrorがモジュール Project1.exe の 〜
NumEdit1.Value の読み込み中のエラー: 不正なプロパティの値です.

と、アプリケーションエラーが出るようです、
ソースを眺めてみたんですが、何処で出ているのか全然分りません（汗
因みに、ソースの中で Valueに 9999999999999 を送ってもエラーは出ません
Create時の処理が悪いのでしょうか？
こーいった場合には、何処から探れば宜しいでしょう。

>>438　ValueがCurrencyだからじゃないか？作者にメールしる

>>438

ちらっと見た所　プロパティの型がCurrencyなので、デフォルトのプロパティエディタが
無い為の現象かと思います。

自分でプロパティエディタを定義するか currencyをやめたら？

>>439-440
なるほど、参考になりました、色々と試してみます。m(．．)m

テキストファイルを読み込む→編集→保存をしたいのですが、
適したコンポーネントはありますか？
TMemoのような簡単な画面で、LoadFromFileとSaveToFileが使えれば
充分なのですが。

>>442
＞TMemoのような簡単な画面で、LoadFromFileとSaveToFileが使えれば

TMemoのLinesはTStringクラス。
TStringクラスにはSaveToFileとLoadFromFileがある。
頼むよ・・・。

むあー。そうだったのか。すまんす >>443
TMemo.Text見て「はてー？」と思ってました。

cleateprocessで起動させたアプリケーションを、逆に終了させる方法を
お願いします

実行時型情報って何ですか？
利点みたいに言われてることが多いけどいまいちよくわかりません。

>446
例えばイベントとかでSenderに対し

if Sender is TEdit then
begin
　〜


とかってやるのは実行時型情報を利用してるってこった

RTTIは知らず知らずに使ってて、すでに恩恵にあずかっているという罠。

最近、Delphi6personalを使い出して、その素晴らしさに惚れました。
それまでVisualC++やJavaをかじったものの、不満ばかりが残っていたのですが。

そこでいずれはproを買いたいのですけど
あの値段は。。。。
personalとproの価格に差がありすぎではないですか？
これではDelphiに感動した人のお布施みたいなものです。
とても価格の差ほどの差がpersonalとproにあるとは思えない。。。
一般ユーザーは納得して買ってるのでしょうか？

Dephi用ウェブブラウザコンポーネント
ttp://plaza21.mbn.or.jp/~takoyakusi/delphi/UIWebBrowser/index.htm
を落としたのですが、
[致命的エラー] UIWebBrowserPG.dpk(32): File not found: 'c:\program files\borland\delphi4\imports\vcl50.dpk'
と言われてコンパイルできません。
どうしたら良いのでしょうか。

環境はWinXP＋Delphi4UpDatePack3です。

>>446
C++にも実行時型情報というのはありますが、これはクラス名の比較に限定された
情報でしかありません。

delphiの場合
クラスのpublished 節で定義されたものには
メソッドには、そのメソッド名がアドレスと一緒に実行ファイル内に保存されています
プロパティも同じです。型名、列挙型などはアイテム名まで実行ファイルに保存されています

これらは設計時にフォームポトペタする時に利用されます。フォームの情報は
実行ファイルにはリソースで保存されていますが、このリソースからフォームを作り
直す時にも利用されています。

この実行時型情報は、プログラムからも呼び出して使う事が出来ます。
自作スクリプトを作るような時には非常に重宝します。ギコbasicで使われてます

>>449
proの値段は、あの値段でVCLソースがついてるだけでも、納得出来る値段
だと思っていました・・・最近のデフレでちょっと高いかなとも思うけど
企業が存続するには　仕方ないのでしょう。

　ヤフオクで古いバージョンのユーザ未登録のものを買い
　バージョンアップで買うのが一番廉くあがるパターンですね

FormのCanvasに描画した際、
上にほかのウィンドウを重ねると消えてしまいます。
消さないようにするにはどうしたらいいでしょうか

上に重ねたウィンドウに描く

>>453
１、フォームのOnPaintで描く・・・これが普通の作法、描画は常にOnPaintでね
２、フォームにImageを貼って　それに描く

>>455
それでも上にウィンドウを重ねるとだめでは？

あっ、失礼、再描画の問題ね

>>450

> 'c:\program files\borland\delphi4\imports\vcl50.dpk'
delphi4 で Delphi5 用のパッケージをインストールしようとしましたね？

今ちょっと調べられないんだけど、蛸薬師さんのコンポーネントですから
説明書きに何か書いてあると思います。

>>453
TBitmapのオブジェクトをTFormのメンバで持っておいて、フォームへの描画を行い
たいときは、基本的にTBitmapオブジェクトへの描画を行い、描画したらフォームを
Invalidateして。そんで、455さんが仰っているようにOnPaintでそのBitmapオブジ
ェクトを転送･･･という方法が良い場合もあります。

>>451
リフレクション対応と言うこと？

>>458
　Delphi4の場合、っていうヘルプの記事に従っているんですが・・・。
タイプライブラリの取り込みの画面ですでにヘルプの内容と違うんです。

>>445
いきなりTerminateProcessというのも手ですが、あまりにも乱暴と思うので、
CreateProcessならスレッドのIDがわかっているはずなので、PostThreadMessageでWM_QUITを送ってみるとか、
EnumWindowsで起動したプロセスのウィンドウを探して、片っ端からWM_CLOSEを送りつけるとか。

>461
パッケージじゃなく個別に入れてみたら。

>>462
＞PostThreadMessageでWM_QUITを

Window持ってない奴にはノーダメージな罠。
保存しますか？ダイアログが出た場合切ない罠。

132=300=311です。

色々やったのですが、どうしても当該アプリの覗き見が出来ませんでした。
確認の為IEの画面を覗き見ようとIEのCapitionでFindWindwsして
Sendmessageを監視して内容がWM_PaintだったらClipboardにコピーして
それをまた自分の所のImageに貼りつけるようにプログラムをしました。
しかし、何もコピー出来なかったり、自分のフォームの画像がImageに取り
込まれるだけでした。
丸一週間頑張ってみましたがお手上げ状態です。

すみません、ソースくれくれ厨にならせてください。
どなたかどうかよろしくおながいします。

B83W59H86(14歳）セルフヌード衝撃うｐ祭り開催中！！
http://tmp.2ch.net/test/read.cgi/mog2/1022943102/l50

＞４６５
ここは質問スレでソースキボンヌスレじゃない。

>>467
なぜＭＬに投げてみないの？

↑
× >>467
○ >>465

>>469
DelphiのＭＬには参加してないです。

>>465
　ようするに文字認識でデータを取るなら　窓ハンドルを得たら
GetWindowRectで表示位置を取得して

h:=FindWindow(nil,PChar(title)) ;
if h<>0 then begin
　 GetWindowRect(h,rct);
　 Caption:=Format( '%5d %5d',[rct.left,rct.top]);
　mcanvas:=TCanvas.Create;
　mcanvas.Handle:=GetDC(0);
　try
　　Image1.Picture.Bitmap.Width :=rct.Right -rct.Left;
　　Image1.Picture.Bitmap.Height:=rct.bottom-rct.top;
　　Image1.Picture.Bitmap.PixelFormat:=pf16bit; //色数は適当に
　 with　Image1.Picture.Bitmap do
　　Canvas.CopyRect( Rect(0,0,Width,Height) ,mcanvas,rct);
　finally mcanvas.Free;end;
　end;
end;

>>450
正直、最初はUIWebBrowserにお世話になろうとしてたけど、
インストール出来なかったり（２ちゃんスレの過去ログのは試した）、
いろいろ思うことあって、「embeddedwb」にした。ちょっとつっかかったけど、
インストール出来たし、とてもいい！英語だけどネ。
後は、「フリーウェアとして、特に断ったりしないでもアプリケーションとして
自由に配布出来るのか？」がよく分からんとこだけど、２ちゃんブラウザも使ってるのが
あるみたいだし、「フリーウェア」って書いてあるから、GPL（？）ではないか…
と結論してるのだが。
単なる意見でした。

>>465
つーか、「おながいします」じゃねーよな。「おな」（藁
どっか他で真面目な書き込みして、ソースもらえば？

>>132 DelphiのＭＬには参加してないです。

参加するのに５分もあればＯＫ。タダだし。
ちゃんとしたところで質問すると、ちゃんとした回答が
得られる確率が高くなる

ここで質問してしまった手前、ＭＬでアドレスがバレテ、ひょっとメール爆弾でも
喰らったら寂しいと思っているの鴨

ソース >>471 で出てるんじゃないの？
他の窓に隠れたらとれないけど、それはしょうがない

>>471
ありがとうございます。試してみます。

>>476
ちょっと待ってちょ。
昨日から試してます。
TopWindowにバックグラウンドで動かせる方法が無いか
試してるんですけど、難しいです。
一時的にトップに持ってきて元に戻すしか無いんですかねえ。

グローバルフックでなくて他のアプリからアクセスが無ければ
DLL化しなくてもいいと、昨日初めて知った。

>>477
って言うかメッセージ投げればいいのでは？
WM_MOVE

>>477
>>TopWindowにバックグラウンドで動かせる方法

　そもそも描画領域が隠れていたら描画そのものをしない場合も多いでしょ

そこまでやりたいなら、そのアプリをデバッカにかけて　内部データの位置を
見つけた方が速いんじゃないの？

>>478
えっ？すみませんそれはどういうことでしょうか？
SetWindowsHookExではWM_Moveはフック出来ないようですが･･･

私がとりあえず今考えているやりかたは、
ターゲットのアプリのCaptionは分かっているので、
１、FindwindowsExで子Windowsのハンドルを取得
２、SetwindowsHookExでWM_GetMessageを覗き見
３、覗いたデータをImageにコピー
４、取り込んでOCR
これだったら隠れていても上手く取得出来るのではないかと思い１〜３までを
とりあえず完成させようとしているのですが、四苦八苦していまして
まだ動作確認できていません。

>>479
すみません、私デバッガを使ったことがないものでして、その方法は
検討していませんでした。

良いデバッガや参考になる方法、URL等がありましたら教えてください。

　デスクトップに絵を直接描画するプログラムを作っています。
デスクトップのハンドル(?)をTCanvas.Handleに代入してDrawする、
という方法を用いたところ、別のウィンドウ上に描画された場合、
そのウィンドウをドラッグしても絵がウィンドウに張り付いたままになってしまいました。
　これを防ぐにはどうしたらいいでしょうか？アドバイスお願いします。

>>481 それこそ UpdateWindow(hwnd)　でも投げたらいいんじゃないの？

>>482　これはすべてのWindowに送らなければいけないのですか？

>>480 = 132
>２、SetwindowsHookExでWM_GetMessageを覗き見
>３、覗いたデータをImageにコピー
>４、取り込んでOCR
>これだったら隠れていても上手く取得出来るのではないかと思い

メッセージフックして、WM_PAINT でのイメージを覗くわけですか
隠れているウィンドウが WM_PAINT を受けとるはずはない、と思ふ

なんか壮大な計画を一気に完成させようとしているみたいですが
ひとつひとつ簡単な確認用のコードを確かめてから、それらを組み合わせて（以下略）

>>484
えっ？WM_PaintはアプリからWinへ出力はされるけど隠れていたら
描画されないんじゃないんですか？
それだったらほんとにデバッガのお世話になるかも。

最初からアプリを作るのは無理だと思っていますので、とりあえずは
隠されたIEの再描画をフックしようと色々四苦八苦してます。

WH_GETMESSAGE じゃ まだ描画前だ

>WM_PaintはアプリからWinへ出力はされるけど

ウィンドウメッセージを勉強する必要があるね

キャプチャを作ってます。
各ウインドウ矩形での選択をしたいのですが
（タスクバーだけ選択とかボタンだけ選択とか）
どうすればできますか？

>>488
Windowsハンドル取ってDCを取得してその内容読む。

>>488

スクリーンに表示されているのなら 471 のコードの応用

>>489-490さん
レスありがとう。
やってみます。

ScrollBoxの上にイメージコンポーネントを置いて、AutoSize=Trueはよくある
パターンですが、このスクロールをカーソルキーやPageUpDownキーで行えないで
しょうか？
特に何もプロパティを設定しなくても、マウスのホイールではスクロールしてく
れますが、カーソルキーではスクロールしてくれません。
キーイベントを別個に書かなくてはいけませんか？？

皆さん何度もありがとう。

>>486
描画前のメッセージキューに送られた時にフックしようと
思っているのですけど、無理なのでしょうか。
これが出来ないのとなるとデバッガを使うか471さんが
書いてくださった方法しか手がなくなってしまうので。

>>493
　いっそ　TextOut DrawText をフックしたらいいんじゃないの？
　DLLは関数ポインタによる呼び出し（間接コール）になってるから
　そのアドレスを探して、この２つを書き換えてしまえば全部の描画文字列を
　取得出来るよ

>>494
そのアプリをWinsightで覗いてみたのですが、WM_Paintと
WM_EraseBkgndしか出力してなくて駄目でした。

　四角（Rect構造体）で指定した枠内にあるウィンドウのハンドルを
取得する方法を教えてください。

>>496
FindWindowでせっせとやれば？

>>496
1点だけならWindowFromPointでできるけど、
矩形の場合だとウィンドウを列挙して、IntersectRectで
領域内に入っているか地道に調べていくしかないと思われ。

>>497
　FindWinowは使い方がよくわからないのですが・・・。

>>498
　なるほど・・・。しかし秒間10回ほど行う処理なので少し厳しいですね。
或いは画面全体を再描画させる関数が有ればそれで良いのですが。

ちなみに言い忘れましたが、
>>496 = >>481です。

>>500
何だ、その話か。
InvalidateRectすれ。

>>501
　GetDC(0)で得たハンドルに描画しているので、
InvalidateRect(0, )としてしまうと、画面全体がちらついてしまいます。
高速に繰り返す処理なので・・・、何か方法はありませんか？

>>502
再描画の必要な領域だけ無効化するとか、最後の引数をfalseにするとかしてる？

>499
既に>498が回答になっていると思うが。

>秒間10回ほど行う処理なので少し厳しいですね。
実際にコーディングして試してみたのか、おい？

>FindWinowは使い方がよくわからないのですが・・・。
APIのリファレンスはDelphiについてるでしょ。
使い方だってネット上をちょろっと漁ってみれば大量に出てくるぞ。

>>502
　前者は、第二引数の話ですか？
　後者はやっています。
>>504
　>実際にコーディングして試してみたのか、おい？
　連続描画でアニメを表現しているので速度は変えられません・・・。

>>495 = 132
>そのアプリをWinsightで覗いてみたのですが、WM_Paintと
>WM_EraseBkgndしか出力してなくて駄目でした。

アプリがこのメッセージを出力してるんではない、と何度いったら
理解できますか？ WM_PAINT をフックしても、それで隠れたウィンドウ
の描画をのｚくことができる、なんて保証はないよ。

確認したいのですが、WM_PAINT を＜受け取って＞ クライアント領域を
描画しているのはアプリのコードであると知っていますか？ ウィンドウ
関数にわたる前にフックして何するつもりなの？

>>492
>キーイベントを別個に書かなくてはいけませんか？？

いけませんね。

>>500
>連続描画でアニメを表現しているので

アニメをデスクトップに描画するなんて、どうかしてるよ。
なんで自分のウィンドウに描画しないの？

>>508
ユーザーのマウスやキーボードの入力に反応するようにしているので、
所謂、デスクトップアクセサリのようなものを作っているのです。

>>506
すみません、アプリがWM_PaintをWindowsに渡して、
それを受けとったWindowsが描画していると思っていました。

解決策のヒントをいただけないでしょうか？

>509
普通、デスクトップに直書きするのではなく、
ウィンドウリージョンで変形ウィンドウを作ると思いますが、如何？

>509
だったらデスクトップになんか描画するなよ。
リージョン使って絵にあわせたウィンドウを作ればいいじゃん。
とりあえず
http://www.vector.co.jp/soft/win95/prog/se082336.html
のソースとにらめっこしてみ。

>>510=132
>解決策のヒントをいただけないでしょうか？

例の音の出力検出以来、ずっと助けてやりたいと思っていたんだけれど
どうもオレの知識じゃ足りないみたいなんだよ。否定的コメントばかり
ですまん、とは思っているんだが、間違った方向へは行かないように、
とすこしは助けてるつもりなんだよ。

それで、確認したいんだが、音の出力検出についてはまったく知らない。
それが無理だとして、そのほかにどのような変化があるわけですか。
TMemo や TListBox などのウィンドウコントロールに変化はないのですか？
これがあれば、メッセージをフックできると思うんだが。たんに、ＧＤＩを
もちいた描画だけが変化するんだったら検出は難しいぜ。特に、隠れていて
表示されていない時は。

文字列の変化には、ＶＣＬの TLabel みたいにＧＤＩで描画せれているのと
スタティックコントロールのようにウィンドウテキストを変更している場合
がある。ＶＣ++で作られているダイアログアプリなら後者の場合が多いので
メッセージをフックできることもある。前者の場合は難しい。

>>511-512
　いえ、デスクトップに直接描画したいのです。
ウィンドウがあると重なった部分のウィンドウが使えなくなってしまいますし。

一人の厨房に振り回されちゃって大笑いだねこりゃ

>>514

アニメをデスクトップに描画するなんて、どうかしてるよ。
ウィンドウを最前面に保つようにするコードがあったはず。
おれは知らんが。

どうしてもデスクトップというなら、画面の更新にも責任もってね。

手段や方法よりも先に目的が間違ってることってあるよな。

以後>500と>132は放置ということでよろしいか？

目的にいちゃもんつけるのは余計なお世話。

>519

132 はまともだと思う。知識がたりないだけだし。

↑
× >519
○ >518 ｽﾏﾇ

>>513
たびたびありがとうございます。

音と同時に数値が変わるだけでして、その子Windowを
WinSightで見てみたら前に書きましたWM_PaintとWM_EraseBKGNDが
出力されただけでした。

> 文字列の変化には、ＶＣＬの TLabel みたいにＧＤＩで描画せれているのと
> スタティックコントロールのようにウィンドウテキストを変更している場合
> がある。ＶＣ++で作られているダイアログアプリなら後者の場合が多いので
> メッセージをフックできることもある。前者の場合は難しい。

この両者の違いが分からないのですが、バイナリエディタでそのアプリを覗いたら
msvbvm60.dllやc:\Program Files\Microsoft Visual Studio\VB98\VB6.OLB
等の記述があるのでたぶんＶＢで作られていると思います。

（´-`）。o ○ （なんか、粘っこい人が増えたなぁ…）

↑自分がわからない質問を続けられるのがイヤな人

５２４＝自分がわからない質問を続けられるのがイヤな人

？

で？

>>526-527
オイオイ。顔を真っ赤にして２つもくだらねーレスすんなよ。

>>525の意味は不明だが>>523=525なのはわかる。

俺は526だけだが。真っ赤にしてるのは誰？

俺は527だが、顔は赤くないがなにか？

526=527=530(ﾌﾟ

赤いのは523と525と528。

ああ、嘘ついた。526だけじゃなくて524も俺だ。恥ずかしくて真っ赤だよ。

>>522=132
>この両者の違いが分からない

えーと、TLabel は TGraphicControl の派生クラスで、親ウィンドウの
特定の領域の描画をしているだけ。これは外のアプリからはみえない。
一方、スタティックやエディットやリストボックスのようなＶＣＬの
TWinControl の派生クラスなら、子ウィンドウなのでそれは外のアプリ
からも見えるし、それを制御するためのメッセージをフックすることもで
きる。この両者の違いは大きいです。

>音と同時に数値が変わるだけでして、その子Windowを
>WinSightで見てみたら前に書きましたWM_PaintとWM_EraseBKGNDが
>出力されただけでした。

ふーむ、だとするとＶＢアプリであることも考慮すると TLabel 相当
なんですかね。そうなら、おれの知識では、その変化を検出するのは
無理みたいね。すまん。

真っ赤で泣いてるのが533

長編な質問はＭＬで質問したら？読みづらいし期間が長いと飽きちゃうよ（ｗ；

>>537
http://pc.2ch.net/test/read.cgi/tech/1021262086/470

>>537

そうだよね。ＭＬ加入を何回もすすめてるんだよ。

>>538-539　うむ・・・ （汗
MLに自分の意思で入らない人もいるんだねぇ、初めてそのような人々の存在を知ったYO!!

>>540

おれもいろいろなＭＬに加入したけど、Delphi-ML はかなりまともな
ＭＬだと思う。FreeMail からハンドルネームでの投稿を非難されない
し。基本的なエチケットさえちゃんと守れば、どんな質問だってＯＫ
だし。「過去ログ見ろ」の回答だって、「そうですね、ありがとう」
といえばそれなりの情報は手に入るし。加入しても損はないと思う

>>535
> えーと、TLabel は TGraphicControl の派生クラスで、親ウィンドウの
> 特定の領域の描画をしているだけ。これは外のアプリからはみえない。
> 一方、スタティックやエディットやリストボックスのようなＶＣＬの
> TWinControl の派生クラスなら、子ウィンドウなのでそれは外のアプリ
> からも見えるし、それを制御するためのメッセージをフックすることもで
> きる。この両者の違いは大きいです。

詳しい説明ありがとうございます。良く分かりました。


ＭＬに参加しなかったのはメール鯖が会社の管理する寮の鯖でして、
一日２０通を超えるメールを受信すると会社から「共用リソースを大切に・・・」
とメールが来る非現実的な所にいるもので、参加していませんでした。
Freeメールでも大丈夫、とのお話だったのでさっそく参加させていただき
ました。

まだ場の雰囲気が読めないので雰囲気が分かってきたら質問させて
いただきます。
皆さんありがとうございました。

>>514
恐らく、ウィンドウにしてしまうと、表示してしまった部分は
下のウィンドウが操作できなくなることを危惧しているのでしょうが、
それにはちゃんと方法があって、WM_NCHITTESTでHTTRANSPARENTを返せば、
マウス操作を素通りさせることができたはず…
// 試したことはないのでできなければごめん

>514
デスクトップマスコットがいて、その絵の下のウィンドウに触れるってほうが
俺は気持ちが悪いぞ・・・

>>543
MSDN Library より
HTTRANSPARENT
In a window currently covered by another window in the same thread
(the message will be sent to underlying windows in the same thread
until one of them returns a code that is not HTTRANSPARENT)

同じスレッドのウィンドウじゃないとダメ、みたいに読めるが？

>>542=132

Delphi で Timer を使って、Label1 にランダムな数値を１秒ごとに
表示している、と想像してください。これを Label1 のプロパティーを
使わずに、その変化をどうやって検出するか、という問題と同じです。

それでは、ＭＬでまた会えるかもね。

>>546
訂正

× Label1 のプロパティーを使わずに
○ Form1.Handle だけをつかって

>>547 さらに訂正すまぬ

WM_TIMER をフックするというのは、なしでお願いします。

>>514
とても独創的な発想の持ち主とお見受けしました。

TEditorはpersonalで使えないのでしょうか？
何とか使う方法はないのでしょうか？

QuickReportで、Accessの帳票みたいに
サブレポート様なことは実現できないのかのう？

TListViewでアイテムの移動ってどの様にすれば良いのでしょう?(;´Д｀)

ぐぐるで検索しても出てこない……

>>552
MLの過去ログからですが、これでしょうか？
http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/article/065/065944.html

質問です。よろしくお願い致します。
TStudent というクラスを作って、広域的に？public？に、どのコントロールからも使えるように
オブジェクトを使いたいのですが、どこで、「student :TStudent;」と書けば良いでしょうか？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

type
TStudent = class

private
Name : string;

public
function GetName:string;
procedure SetName(N:string);
end;

function TStudent.GetName:string;
begin
result := Name;
end;

procedure TStudent.SetName(N:string);
begin
Name := N;
end;
end.

本見ると、概念的な説明はのってても、実際の使い方はほとんど載っていなくて、
判らず困ってます。昔ＶＣはやってたんですが・・・　ご教授お願いします。

>>553
感謝です。
Assignでコピー出来るなんて知らなかった……。

>>554
そのまま、{ Public 宣言 }のところじゃないかな

>>555
そうすると、
[エラー] Unit1.pas(16): 未定義の識別子 : 'TStudent'
と、出てきてしまいます。

定義する前に宣言しちゃっているからだと思うのですが・・・

どうすればいいか、わから〜ん！　ヽ(;´Д｀)ﾉ

TStudent = classがstudent :TStudent;より上に存在しないとエラーな様な……

>>556
マニュアル読めや

実現部に定義してるクラスはインターフェイス部では使えないよ
別のユニットに書いてusesするなり、インターフェイス部のTForn１より上に書くとかしてみれば？

>554
implementation以下は実装部分なのでここでクラス定義はしないのです。
unit〜implementationの間がＣで言うところのヘッダみたいな場所なの。
ヘルプの「ObjectPascal言語ガイド」で「プログラムとユニット」を見てちょ。
余談だがTStudentは別ユニットに分割した方がいいと思う罠。

type
　TStudent = class
　private
　　Name : string;
　public
　　function GetName:string;
　　procedure SetName(N:string);
　end;
　TForm1 = class(TForm)
　　Button1: TButton;
　　procedure FormCreate(Sender: TObject);
　　procedure Button1Click(Sender: TObject);
　private
　{ Private 宣言 }
　public
　{ Public 宣言 }
　end;
var
Form1: TForm1;

implementation
(以下省略)

>>560 & All

どうもありがとうございます。ヽ（´∀｀　）ﾉ

Formのiconに設定するアイコンを作成しようと思いました。
ピクセルを32×32にして、アイコン描写後、Formのiconで読み込んでみると、「イメージが不正です」と怒られてしまいます。
どうしたらいいでしょうか？よろしくお願いします。

モザイクかけないと

ごめん。書いてから後悔した。くだらなすぎる。

>>564
ちょっと笑いましたけど。ｗ
誰か教えて下さい。　・゜・(ノД`)・゜・

お詫びに考えてみる。

あれだ、拡張子を.bmpから.icoに変えただけのエセアイコンファイルを使ってるんだな、きっと。

Delphi6を使用してます
TLabelをインデックスで管理したいのですが、
lbl_memo[0]とかってできませんでしたっけ？
プロパティにIndexがあった気もするのですが、ないですね。。。
久しぶりにDelphiで開発するのでとまどいが隠せない今日この頃。。。
お助けください

>>566
保存する時に、16色bmpで拡張子を.icoにしたので、その状態かもしれません。
どうすれば治るのでしょうか？

properttyでIndex使ってもできるけど、簡単なのはこっち。
--
var lbl_memo: array [0..5] of TLabel;
begin
　lbl_memo[0]:= Label1;
　lbl_memo[1]:= Label2;
　　：

>>568 添付のImageEditor使ってアイコンにすれば？
嫌ならアイコンエディターなんてフリーでいくらでも転がってるよ。

>>568
.icoファイルをサポートするソフトで読み込んで.ico形式で保存し直しだな。

くだらないは、かぶるはで鬱だ氏脳状態

>>570-571
ImageEditorの存在忘れてました。ｗ
それなら拡張子変えない方法で.icoで保存できるっぽいですね。
その方法でやってみます。
ペイントで.icoで作れる様にもしたいので、サポートするソフトとやら、探してみようと思います。
お二方、ありがとうございました。

すいません、FormのCaptionの左にあるアイコンは変えられたんですが、
マイコンピュータから見た、ファイル名の左にあるアイコンはどうやって変えるんでしょうか？
プロパティでできるかなと思いましたが、無理でした。
もう一回教えて下さい。m(_ _)m

>>574
プロジェクトオプション→アプリケーション→アイコンの読み込み

>>575
できました。
真にありがとうございました。m(_ _)m

>>569
ありがとうございます
オブジェクトインスペクタでIndexが見つからなくて（ｗ

>>550
最新版ふつうにインストロールできましたが。

>>569
申し訳ないです
これをどこに記述すればよいのかわかりません
この場合　Label1〜　はあらかじめフォーム等に作成しておくのでしょうか？

>>579

すんませんすんません
>>569で教えていただいた方法がわかりません
オブジェクトインスペクタでIndexの定義をすることって
できませんでしたっけ？
なぜか見当たらないのですが。
以前はありましたよね？
。。。見えていないだけですか？
うーん。。。。。

コードで記述するにしても　今ひとつわからなくて
すんませんとしか言い様もなく　すがってみたい

>579
そういうこと。
事前にラベルは貼っておく。

>581
できない。
以前も、多分これからもない。

既に>569が書いているのが回答そのものなんだけど、他の
手段としてこんなのもあるが、
ttp://www.asahi-net.or.jp/~HA3T-NKMR/tips002.htm
あまりオススメできない。

こういう場合、なんのコンポーネントにキーイベントを記述すべきでしょうか？
EditBoxを配置して、常にSetFocusでFocusが移動しないようにして、
if key= vK_Up then とかで、Scrollbox1.VertScrollBar.Positionを変更と
いうことでよろしいでしょうか？
それとも、ScrollBarを配置して、ScrollBoxと連携？？？
(当然、Visibile:=Falseで)

ありゃ？　ScrollboxのScrollBar.PositionのMinとMaxは、どうやって
取得したら良いのでしょう？？？
キーをとらえたとして、際限なくUpDownしていいのかしらん？？？

>>581
例えば、以下の様な関数（メソッドが良いか）を作成するのも吉かと。

function TForm1.GetLabelByIndex( Index : integer ) : TLabel;
begin
　result:=nil;
　case Index of
　　1 : result:=Label1;
　　2 : result:=Label2;
　　　　...
　end;
end;
いかがでしょ？

>>584
TScrollBoxコンポーネントは、多分ですけどHorzScrollBarプロパティで水平、
VertScrollBarプロパティで垂直のスクロールバーデータが手に入るかと。で、
範囲は、0〜Rangeの値まで。その辺はヘルプに載っていますけどー。（当方Del5
ですが）

ScrollBar.Positionプロパティを操作するんじゃないんですか？
普通のScrollBarには、Max,Minとかあるけど、ScrollBoxには、
ScrollBoxの水平垂直ScrollBarのさらに、Positionを操作？？？
RangeとPositionの関係が？？？です…。

>587
落ち着いてヘルプをよく読む。

？？？

横方向だけを考えるとして、ScrollBoxのRangeを内部のImageBoxの大きさに
合わせて（これって自分で設定するんですよね？）、例えば、ImageBoxのWidth
が300だと、ScrollBox1.HorzScrollBar.Range:=300にしたあと、Positionを
半分に設定したら、半分が見えると思ったんですが、Position=79です！
この79という数字はどこから？？？？？
ScrollBox自体のWidth=241なんですが、241+79=320。この300との20の差は、
ScrollBar自体の幅？？？

？？？？？

>>590
縦スクロールバーの幅も考慮に入れる
というのは面倒なので、WidthじゃなくてClientWidth使うべし。

おせーろハゲ

？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

>>594
半角のが１つだけあるな

>>595
思わず保存して grep かけてしまったではないか。

あっはっは

>>596
ﾜﾗﾀ

しかし>>594は大丈夫だろうか。母さんあなたが心配です。

６００ゲット！！！１！１１１

本来の質問である、カーソルキーで、という奴は、EditBoxでキーを捕まえて
とやってみましたが、通常はどう処理するのが一般（という言葉が適切なのか
な…）なのでしょうか？。（捕まえて、Position変えて、key=#0にする。）
keyのイベントがあるものならなんでもいいようですが…

>>596
御苦労。

>>595
ねえよ。

>>595 くそー。ひっかかった。

駄レスすんなやDel厨。

>>592 すみません。お礼を書くのを忘れてました。
なんで、ScrollBoxは、キーボードでScrollBarがうごかせないんだーーーー

ごふっごほっっ、、、、ごほほっご」ほおっおっおほほっほっっおっおほおお

.｡o○ﾌﾟｸﾌﾟｸ

ようするに、構って欲しいワケ？＞４９２

>>609
兄ちゃん良いモノ持ってるなあ？

なんだこの糞スレ。

いえ。なんでホィールでScrollBox動かせるのに、カーソルキーやPageUp
Downキーで、動かせないのかな？と。
キーボード派で、いちいちマウスの持ちかえるのが面倒なだけです。

1行1列のリストビューを作ってオーナードローすれば楽チンさ！
と思ったけどキーでは横にしか動かせませんでした。てへっ。

黙れハゲ！

（´-`）。o ○ （だんだん、「某スレ」に似てきたなぁ…）

うっさいハゲ。つるっぱげ。

スレと関係ない書きこみは放置厳守でよろしく

>578
最新版を入れると普通にインストールできました。。。
何で悩んでたんだろう。。。

（´-`）。o ○ （またぁりな雰囲気だたのに…）

すんまへん。。。
>>569をどこに記述しればよいのか
わかりまへん。。。
あちこちに書いてみましたが、えらぁ。。。（鬱

>>585
えーと。。。
あぁ
なるほど
できるのかな　自分に。。。
試してみまする

ありがとおございまっす！

あ〜〜〜
わかりまいた。。。
あたしゃｱﾌｫだな（ｗ

ありがとうございました

>>620
横槍スマソ。
>>569のは二つに分けて考えましょう。

var lbl_memo: array [0..5] of TLabel;
部分はTFormクラス内（Publicがよろしいかと）に。

begin
　lbl_memo[0]:= Label1;
　lbl_memo[1]:= Label2;
　　：
は、TFormのCreate内に書きましょう。
ということで。

さらに追記スマソ。
>>585にはプロパティ宣言を入れると、お好み通り（まるでインデックス指定して
いるような）感じになるかと。

property Label[Index : integer] : TLabel read GetLabelFromIndex;

･･･こんな書き方で良かったと思いますが。間違ってたらゴメンナサイ。
これで、参照時は、

messagebox(handle,pchar(Label[1].Caption),'実験',mb_ok);

みたいな感じにできるかと。
･･･書きすぎてスレ汚しになったかナァ。

>>622
あ。
ご丁寧にありがとうございます
なんかﾃﾝﾊﾟっててわけわからないことで悩んでしまいますぃた（恥

>>623
そこまで書かせてしまって申し訳ないです
いくつかの手段があるのを知るのはとても必要なことなので
大変助かります
多謝です！

>>492 ：ScrollBoxをカーソルキーでスクロール

507 でレスしたものです。

>なんでホィールでScrollBox動かせるのに、カーソルキーやPageUp
>Downキーで、動かせないのかな？と。

ホイールはスクロール専用の入力デバイスです。キーデバイスは、
スクロールとは本来無関係ですから、キー入力でスクロールするため
には、プログラマがコードで関連付けなくてはなりません。

矢印キーで ScrollBox をスクロールするのは、フォーカスの移動
があるため、思ってたより難しいですね。フォーカスの移動を防ぐ
ために、Application.OnMessage でキー入力を処理するとうまくい
きます。以下のコードでは、ScrollBox1 には Image1 があって、
TAB キーで、または、マウスでクリックするとフォーカスが
ScrollBox1 に移動して Label1 が赤色になります。このとき、矢印
キーで ScrollBox1 をスクロールできます。試してみてください。


type
　TForm1 = class(TForm)
　　ScrollBox1: TScrollBox;
　　Image1: TImage;
　　Button1: TButton;
　　Edit1: TEdit;
　　Label1: TLabel;
　　procedure FormCreate(Sender: TObject);
　　procedure ScrollBox1Enter(Sender: TObject);
　　procedure ScrollBox1Exit(Sender: TObject);
　private
　　{ Private 宣言 }
　public
　　procedure AppMessage(var Msg:TMsg; var Handled:Boolean);
　end;

var
　Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
　Label1.Font.Color := clWhite;
　Label1.Color := clBlue;
　Label1.Caption := 'Exit';
　ScrollBox1.TabStop := true;
　Application.OnMessage := AppMessage;
end;

procedure TForm1.ScrollBox1Enter(Sender: TObject);
begin
　Label1.Color := clRed;
　Label1.Caption := 'Enter';
end;

procedure TForm1.ScrollBox1Exit(Sender: TObject);
begin
　Label1.Color := clBlue;
　Label1.Caption := 'Exit';
end;

type
　TScrollKind = (LineUp,LineDown,LineLeft,LineRight);

procedure ScrollBoxScroll(SB:TScrollBox;ScrollKind:TScrollKind);
const
　LineScroll = 5;
begin
　case ScrollKind of
　　LineUp:SB.VertScrollBar.Position := SB.VertScrollBar.Position-LineScroll;
　　LineDown:SB.VertScrollBar.Position := SB.VertScrollBar.Position+LineScroll;
　　LineLeft:SB.HorzScrollBar.Position := SB.HorzScrollBar.Position-LineScroll;
　　LineRight:SB.HorzScrollBar.Position := SB.HorzScrollBar.Position+LineScroll;
　end;
end;

procedure TForm1.AppMessage(var Msg:TMsg; var Handled:Boolean);
begin
　if (ActiveControl = ScrollBox1) and (Msg.message = WM_KEYDOWN) then
　　case Msg.wParam of
　　　VK_DOWN:begin
　　　　ScrollBoxScroll(ScrollBox1,LineDown);
　　　　Handled := true;
　　　end;
　　　VK_UP:begin
　　　　ScrollBoxScroll(ScrollBox1,LineUp);
　　　　Handled := true;
　　　end;
　　　VK_RIGHT:begin
　　　　ScrollBoxScroll(ScrollBox1,LineRight);
　　　　Handled := true;
　　　end;
　　　VK_LEFT:begin
　　　　ScrollBoxScroll(ScrollBox1,LineLeft);
　　　　Handled := true;
　　　end;
　　end;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
　FocusControl(ScrollBox1);
end;

procedure TForm1.ScrollBox1Click(Sender: TObject);
begin
　FocusControl(ScrollBox1);
end;

すでにあるカレンダーコンポーネントを使用せずに
カレンダーを作成しなくてはならなくなりました
すでにあるTMonthCalender等を使用して
年月日の取得は可能でしょうか？
うるう年の計算もしたくないですし　指定した月が何日まであって
何曜日から始まるのか等を取得したいのですが。。。

　　　　　　∧＿∧
　　　　　 （　´Д｀）
　　　　　／ 　　　＼　
　　＿＿| |　629　| |＿_　　
　 ＼　 ￣￣￣￣￣　　 ＼
　　||＼　　　　　　　　　　　 ＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　 　 .||　 　 　 　 　 　 　 ||

>うるう年の計算もしたくないですし

IsLeapYear()で閏年かどうか分かる

>指定した月が何日まであって

閏年かどうかわかればこれは簡単

>何曜日から始まるのか

EncodeDate() で TDateTime に変換し、DayOfWeek() で曜日を取得

すこしはヘルプをみたらいいのに

>>628
何か適当な回答で悪いとは思うけれども、
ttp://www.kyoto-su.ac.jp/~yamadaka/data/yscp-calendar.htm
参考にしては如何でしょー？ぐぐったんですけど。

>>630
おっさるとおりで
えーと記述いただいた件は理解しているのですが
既コンポーネントから情報を取得するという手段があったら
やってみたいなぁと思ったのであります

不愉快にさせてしまったのでしたら　ごめんなさい

>>631
ありがとうございます
閏年の計算の仕方も一応理解はしているのですが
カレンダーコンポーネントを使ってみたかったんです。。。
表示はしてあげられませんが

お世話になりました

>>632
TMonthCalender はユーザ入力のためのコントロール
これをつかってもできるかもしれないが、630 の方法より
めんどくさそう

DelphiってVBとかVC++用に発売されている各種OCXって使えるんですか？
例えば、旧文化オリエント社のオレクトラチャートとか、VsFlexGlidとか。

あと、VC++で作ったDLLなんかもDelphiから使用することは可能ですか？

出来ればVBからDelphiに乗り換えたいんですけど、今使っているライブラリや
ツールが使えなくなるとちょっとつらいので．．．

>>634
OCXは使えます。
コンポーネント(C)→ActiveXコントロールの取り込み(X)です。
DLLもVBで使える範囲なら問題なく使えます。

しょーもない質問です。

VBでは、予約語、メソッド、プロパティ、オブジェクト名等すべて、コードエディタ
での入力時に勝手に大文字・小文字を変換してくれるので、誤字、脱字があるかない
か、一発でわかるのですが、Delphiではこのような機能はないのでしょうか？
(大文字、小文字を区別しないでも正常動作するようですが、なんとなく気持ちが悪い)

※ 煽りではありません。(W

>>634
昔（Delphi4)、TrueDBGridを試しに取り込んで見たけど、
見た目は大丈夫そうだったが、挙動が不審で全然ダメだった。

pdf.ocxとか、レイアウトソフトのocxは普通に使えてます。

>>636
[Ctrl]+[Space]を試して見ましょう。

>> 635
THXです。
んじゃ、ちょっくらObjectPascalと戯れてみます。

>>636
追加。
誤字脱字はこまめにコンパイルしてもわかる。
一区切りついたら[Ctrl]+[F9]

コマ切れのレスｽﾏﾝ

>>638
>>640

コメント、感謝です。
今、手元に環境がないので、後で試してみます。

>623
わからないことがひとつある、
動的にTLabelを作成したほうがよくないかと．．．

>>642
左様ですな。
例えば、定型のフォームを作成して、Labelをデザイナ上で配置して･･･という時に
動的にラベルを生成してそれらのプロパティを指定しようとするのはいかにも面倒
ですし。
そういう意味では、こういった手法というのが必要なのではないかナァ･･･と。
もちろん、動的に作成しても問題無いような処理だったらそれでいいとは思います
がね。
ま、その辺りは状況に応じて使いわけましょうってことでス。

>>625 ありがとうございます。やってみます。
>キーデバイスは、スクロールとは本来無関係ですから、
言われてみると、なりほど！という感じです。
でも、せめて、PageUp、Downキーとかで動いて欲しいな…

Delphi5をお使いの方に質問です。
TNMUDPコンポーネントを使ったことのある方なら誰でも良いのですけど、TNMUDP
コンポーネントのSendBufferメソッドを使用してフォルダ内のディレクトリリスト
を送信するプログラムを作りました。で、受け側のプログラムを使って受信データを
表示させたところ、「D:\*.*」などのフォルダ情報は表示できるのに、「D:\WinNT\
*.*」フォルダは送信できませんでした。考えられるのは、サイズがでかくて送れな
かったとかの原因だな･･･と。（空メッセージが届く）
誰か、この辺りの情報をご存知の方いらっしゃいませんか？

>>643

配列をつかっていちいち代入するのではなく、
Label1.Tag ← 1
Label2.Tag ← 2
..........
のようにオブジェクトインスペクタで設定すると、配列なしで

function TForm1.GetLabelByIndex(index :integer):TLabel;
var
　i:integer;
begin
　result:=nil; i := 0;
　while (not Assigned(result)) and (i < ComponentCount) do
　begin
　　if Components[i] is TLabel then
　　　if Components[i].Tag = index then
　　　　result := TLabel(Components[i]);
　　Inc(i);
　end;
end;

のようにできると思います。

Del付属のQuickReportが激しく使えないので、
市販のレポートツール買おうと思っているのだが、
お前のお薦めがあったら教えれ。

>>647
有料でよいのなら QuickReport のソースを購入するという手があります。

どの程度複雑なことに手を出すかにもよりますが。

>>647
用途によると思うんだけど…。

自分は今、印刷関係の仕事してるから、
レイアウトソフト用のタグを書き出して印
刷するのが言いように思えてしまうし（ｗ
ポストスクリプトを書いてしまうのも手だよ。
自分はかけないが。

(=ﾟωﾟ)ﾉ　ひさしぶりにこのスレ来た。懐かしい。お母さん元気ですか？僕は元気です。

>>646
これ好きになりました
なんかｽﾏｰﾄですね
ありがとうございます

>>646
Σ(￣□￣;)


＞if Components[i] is TLabel then

Components[i]
がわかりませんっっっ
配列ではないTLabelコンポーネントのお話ですよね？

>>652
もしかして　ComponentsというTLabel型の空配列をあらかじめつくっておくということでしょうか？

>>653　全てのコンポーネントには Components[] プロパティがあるのです

>>652,653
ComponentsプロパティはTFormをヘルプで検索して、そのプロパティを見れば分かって
いただけるかと思います。
TFormの継承元にTComponentクラスがあり、そのクラス内のプロパティです。

>653
ヘルプのTComponentのプロパティを参照。
別の方法でTWinControlのプロパティも参照(Controls と ControlCount)。

>>654
おおおおおお
そうでしたか

>>655
なるほど
ご丁寧にありがとうございます



ということは　これはこのフォーム内でのタグ設定されたラベルは
配列にしたいものにだけしているということが前提になると解釈したのですが。。。

>>657
左様ですね。
この方法でアクセスするためには、配列に含めたくなければtagに-1をいれておく
とか、あるいはIndexに0は使わないとか約束事を決めておいてやるべきでしょうね。

>>658
ありがとうございます

BoolToStrって関数がありますが、

ヘルプには、
function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;

と書いてあるにも関わらず、
function BoolToStr(B: Boolean): string;

のようにしか受け付けてくれません、なぜでしょうか？

因みに、
Bが、self.checkbox1.checked なら　ヘルプ通りに使える

var B:Boolean;
で定義してあるもので使おうとすると UseBoolStrs が余分だ！って怒られる。

> var B:Boolean;
> で定義してあるもので使おうとすると UseBoolStrs が余分だ！って怒られる。
　　　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　,,,,,,,,,,,,,∧,,∧　　 ／
〜′,,,,,,,ミ,,ﾟДﾟ彡＜　うちのは怒りません。
　 UU""" U U　　　＼日ごろの行いがいいからか？

マジっすか？
なんか壊れたんだろうか・・・・。

>>660=662 BoolToStrって関数を自分で作ってて、忘れてるとかってオチでは？

それにしても、なんだかな。関数ですね。
自作しるとか思うですが....

列挙型のすべてをこういう変換できれば
意味があるんだが...

RadioGroupに対して列挙型を関連づけたりとか
いまだにできんのかしら？
コードが面倒っす。
　＼＿　＿＿＿＿＿＿＿＿＿＿＿＿
　　　　|/
　　 ∧,,∧
　　ミ,,ﾟДﾟﾐy━~~
　　 U　　 ﾐ
　〜ﾐ　 　ﾐ
　　　Ｕ''Ｕ

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
を、他から呼び出す時ってどうしたらいいのでしょう？Clickとかじゃないし。

StringGrid1.SelectCell?????

>>665
インスタンス名.StringGrid1SelectCell

>>664　確かに

TForm1.StringGrid1SelectCell(TObject,0,0,true);
???

>>668
その謎のスペースは何だ？

なんだか、パラメータの指定の仕方が全然わかんないんです。
実パラメータが云々とか言われます。
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
で書いた処理を、他の、例えばButton1をClickした場合にCallしたいのです。

>>670
SelectCellの中身を別の関数に移して、
両方で同じ関数を呼ぶようにするのが簡単確実。

procedure TForm1.StringGrid1SelectCell(……);
begin
　hoge;
end;

procedure TForm1.Button1Click(……);
begin
　hoge;
end;

procedure TForm1.hoge;
begin
　実際にやりたい処理
end;

>>664
　パブリッシュなプロパティにした列挙型は　実行時型情報で相互変換出きると思うけど？

>>670
呼び出し元がTForm1のスコープ内だったら、メソッド呼び出し自体は
StringGrid1SelectCell(...);
で良いはずですよね。違えば、（例えば、var Form1 : TForm1; の宣言がinterface
部にある場合には
Form1.StringGrid1SelectCell(...);
ですよね。
パラメータに関しては、
Sender ... メッセージを通知するオブジェクト
なので。例えばButton1Clickの中から呼び出したいならば、SenderをButton1にすれ
ば良いかな。場合によっては、Senderの値が何かによってStringGridに与える影響
を変更したい場合もあるはずなので、その辺りは多少考えるとして。
で、あとのパラメータは知っての通り。ただし、var宣言している項目に関しては変数
を与えないといけないので、var dummy : boolean;　で宣言した変数を与えましょう。

例
procedure TForm1.Button1Click( Sender : TObject );
var CanSelect : boolean;
begin
CanSelect:=true;
　StringGrid1SelectCell( Sender, 0, 0, CanSelect);
end;

こんな感じかな？

>>673
いいえ、StringGrid1.SelectCell(...);ですが何か？

>>660
BoolToStr…？ヘルプを調べたけど載ってない…。
…はッ!?もしかして、Del6の新関数？

>>674
…マジすか。

>>676
メソッド呼び出しは、

インスタンス名.メソッド名（）

じゃないの？Del3厨だから仕様変更は知らないけど。

>>674
きっと、フォーム名がStringGrid1…いやいや。フォーム名をStringGrid1にしたら
クラス名はTStringGrid1になてしまう。
どうやったんだろう。
…まさか、新しいフォームをコード入力で生成ッ!?面倒なことをするなぁ…などと
逝ってみるテスト。

>>674, 677
いやいや。これは通常のSelectCellメソッド呼び出しではなく、どうやらOnSelectCell
イベントの呼び出しのようですな。
引数がそんな並びになってマス。

procedure TForm1.StringGrid1SelectCell(……);
　　　　　　　　　　　　　　　　　　↑
揚げ足は良いがコンパイルエラーが起こるようなコードでけんけん言わんでくれるかｗ

>>680
コンパイルエラーでます？

>>680
因みに…
674は、最初メソッドとは思わずに「そんな宣言の仕方あんのかよー。知らないぞー」
と思い悔し紛れに書いたレスです。もし、「せっかくレスしてんのに揚げ足とんなよ
逝ってよし！」と気を悪くされてたのなら誤りますんで。

|ﾖｸﾜｶﾅｲｶﾞ 　
|,,∧
|Дﾟ彡　言ってよし
⊂ﾐ
| ,;ﾞ
|´
>>672
"出来る"んだけど、逝ってヨ仕様って感じるです。

procedure TForm1.Button1Click(Sender: TObject);
begin
　//列挙型から文字列へ
　Label1.Caption :=　GetEnumName(TypeInfo(TAlignment), Ord(Label1.Alignment));

　//文字列から列挙型へ
　Label1.Alignment := TAlignment(
　　GetEnumValue(TypeInfo(TAlignment), 'taRightJustify') );
end;
こんなの使えない(役立たない)っすわ。
BoolToStrなんて関数作っている場合なの？>>某

>こんなの使えない
とは？

型が強い言語、かつパラメタイズ機構（C++ テンプレート相当）が存在しない
ので強制キャストが頻繁に出てくるのは仕方が無いでしょう。

しかし、テンプレート相当が無くても自分で定義すればすむ話ですよね？

function TAlignmentToString( const a : TAlignment ) : string;
begin
result := GetEnumName(TypeInfo(TAlignment), Ord(a));
end;


こういった変換関数群を自動生成するツールがあると面白いですね。
使わない関数はスマートリンクで削除されるから、結果として必要なものだけが
リンクされますし。

... アイデアいただきます。> Delフサギコさん

教えて厨ですいません。タダと言うのでパーソナルをDLしたのですが
ビジュアルパスカルが分からずに苦労しております
昔開発をやったことがあるのでプログラム感はあるのですが
関数が分りません

試しにバージョン情報(サイトへのリンクボタン付き)のウィンドウから作り始めたのですが
・Bitbtnへの画像の貼りつけ(バナーボタンをつけたい)
・ブラウザ起動−引数としてURLを渡す

ができずに早速詰まっています

そこで
上記２点のプログラム
デルファイでのビジュアルパスカル関数一覧が出ているサイト
ｱﾌｫな漏れにでも分かるデルファイでの開発で役に立つサイト
等ありましたら教えて下さい

BitBtnにはＧｌｙｐｈがある。そこから画像つけるべし。
ブラウザ起動ならShellExcuteを使うがよろし。

ShellExcute(Application.Handle,'open' 'ブラウザ名','URL','ブラウザのDir');
だったきがする．．．間違ってたら指摘してください。

変な単語が飛び出すとネタかと思って煽ろうとするが、
スレタイトルを思い出してハッとする俺がいる。

・ネタでない場合はこちらをお読みください
> ビジュアルパスカル
ObjectPascalのことですね

> デルファイでのビジュアルパスカル関数一覧が出ているサイト
付属のヘルプ、「ObjectPascal言語ガイド」、「VCLリファレンス」を見るのが手っ取り早いです

> ｱﾌｫな漏れにでも分かるデルファイでの開発で役に立つサイト
このスレッドの>>2-10を参照してください。
特に、Delphi-ML検索 http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/search.cgi
大概のことは上記サイトで解決するのでブックマーク必須です。

> ・Bitbtnへの画像の貼りつけ(バナーボタンをつけたい)
> ・ブラウザ起動−引数としてURLを渡す
これらの質問も、ヘルプとDelphiML検索で容易に解決しますが、一応。
前者は、プロパティエディタの「Glyph」から設定できます。
詳しくは、ヘルプの「TBitBtn」→「TBitBtn の使い方」を調べてください。
後者は、uses に ShellAPI を追加して、
ShellExecute(Handle, 'OPEN', 'http://hogehoge/','', '', SW_SHOWNORMAL);
とすればよいです。
これは、googleで「Delphi ブラウザ URL 起動する」を検索して最初のサイトで出てきました。


・ネタの場合こちらをお読みください
> ビジュアルパスカル
ﾌﾟﾌﾟﾌﾟ

列挙型一つ一つにToString関数作るのは
かなり手間だと思うです..

function TRecordToString( const a: TRecord; Value: TRecord) : string;

こんな関数ﾃﾝﾌﾟﾚがないから作れないんですよね。
悲すぃです〜

　　　 ∧,,∧　　また,includeで作らなきゃいけないのかしら...
　　　ミ,,ﾟДﾟ彡　　それも浦和座みたいで、美しい言語Pascalの
　 　 ﾐ　つ旦)~~　　理想からは程遠い...
　 〜と,,,~),,~)　

俺もつくづくテンプレートほすぃと思ってます

Delphiのテンプレートを活用すべし。

IDEに"notepad Delphi6\bin\delphi32.dci"
って登録して開いて(IDEからの登録は論外)
[code_EnumToString | enumを文字列に変換]
// |REPLACEMEを文字列に変換
function REPLACEMEToString( const a : REPLACEME ) : string;
begin
　　result := GetEnumName(TypeInfo(REPLACEME), Ord(a));
end;
って貼り付ければ良し。

コンパイル時のテンプレートではなく
コーディング時のテンプレートか。。。
確かにテンプレートという言葉だけ捉えれば間違ってはいない？

こんなへたれな質問に答えていただきありがとうございます
うーん。まだ分からないことが続々と…
とりあえずヘルプ内のサンプル作ってから考えることにする

>> ビジュアルパスカル
>ObjectPascalのことですね

VBと混同してしまったYO…
当方以前にパワービルダーしかやったことないんで…

任意の部分の文字色を指定できて、URLやメアドを自動認識して、画像も表示できる
エディタコンポーネントってありますよね？

>>693
TWebBrowser

エディタじゃないね。

TWebBrowser の凹んで見える「枠」を無くしたいんだけど、
どうすればいいのでしょうか？

列挙型を文字列にする機会なんてそんなにないと思うけどなあ・・・

ラジオグループに列挙型を関連付けるってのは、今現在でいえば
TagとOrd関数で比較して結びつけるような操作のことじゃないの？

>>688
集合型がこんな感じで作れるんだから列挙型もいけるだろ

//使用例 SetToString(TypeInfo(TFontStyle), Byte(Font.Style))
function SetToString(Info: PTypeInfo; Value: Integer): string;
type
TIntegerSet = set of 0..SizeOf(Integer) * 8 - 1;
var
S: TIntegerSet;
I: Integer;
begin
S := TIntegerSet(Value);
Result := '[';
for I := 0 to SizeOf(Integer) * 8 - 1 do
if I in S then
begin
if Length(Result) <> 1 then Result := Result + ',';
Result := Result + GetEnumName(Info, I);
end;
Result := Result + ']';
end;

Delphi 6 Personalで
TCustomRichEditを継承したクラスで

Createを
begin
inherited;
Self.Color := clBlue;
end;
とすると

EInvalidOperation
コントロール''は親ウィンドウを持っていません
となるのですが。

Self.Color := clWindow;
だとうまく行くのですが。

>>699
OnCreateのイベントは、クラスのコンストラクタであるCreateとはちょっと違うの
です。
すでに、OnCreateの時、コンストラクタ呼び出し後なのです。しかも、上位クラスの
Createはしっかりと自動呼出しなのです。
inheritedは要らないのです。

>>700
ぐあ。スマソ。
激しく嘘こきました。TCustomRichEditにはOnCreateなんてイベントありもさんな。
激しくスマソ。

えと。多分、そのエラーはParentプロパティが指定されていないせいかと。
self.Colorに値指定する前にParentを指定しましょう。

デフォルトがclWindowなので、clBlueの時は色を変えようとしてまだウインドウが無いのでエラーだけど
clWindowの時は何も起きないというだけでは…

コンストラクタでColorを変える時は、経験上何故かParentColor := Falseを事前に行っておかないと
うまくいかないケースもちょくちょくありました。(理由は不明)

　　　　　　　　　　　＿＿＿＿＿
　　　∧,,∧∩　 ／
　 �頒ﾟДﾟ；彡＜　1行かよ！
　 　 ,;ﾞ⊃,ｼﾞ　　 ＼＿＿＿＿＿
　〜ﾐ　,,○
　 　 ∪ 　　　
function RecToString(Info: PTypeInfo; Value: Integer): String;
begin
Result := GetEnumName(Info, Value);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button2.Caption := RecToString(TypeInfo(TAlign), Byte(Form1.Align));
end;
ちょっとキャストが気になるけど、なかなかよさげ

次は文字列から列挙型変換ですが...

Self.Parent := AOwner as TWinControl;
でうまく行きました。ありがとうございました。

フォームのOnCloseイベントでActionの返値にcaFreeを割り当てても、閉じたフォ
ームのコンポーネントにアクセスできるんです。なぜでしょうか。
（以下の例で、）
�@Form1のButton1をクリック　＞　Form2が表示される
�AForm2のButton1をクリック　＞　Closeされる
�BForm1のButton2をクリック　＞　何故か例外が発生しない！
この方法では正常にForm2のインスタンスを開放できていないんでしょうか。
ただし、�Bの前にForm2:=nil;を実行すると例外が発生しました。むぅ〜。

--------Unit1.pas
procedure TForm1.Button1Click(Sender : TObject);
begin
　Form2:=TForm2.Create(nil);
　Form2.Show;
end;

procedure TForm1.Button2Click(Sender : TObject);
begin
Label1.Caption:=Form2.Edit1.Text;
end;

--------Unit2.pas
procedure TForm2.Button1Click(Sender : TObject);
begin
　Close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
　Action:=caFree;
end;

>>705
Show/Closeは表示の切替だからインスタンスの解放とは無関係。
解放したいんだったらForm2.Releaseすればいいんでない？

>704
ちょっと待って下さい。OwnerとParentは別の概念です。
パネルの上に貼る時でもOwnerはフォームが渡されてくるのですが…。

設定するタイミングを送らせた方がよさげ。(AfterConstruction, Loaded, CreateWndなど)

それと、調べてみましたが、色を変えた時に、
問答無用でメッセージを送っているのが元々の原因みたいです。
継承したコントロールを作っているのですから、CM_COLORCHANGEDを自前で処理して、
ウィンドウハンドルが無い時はメッセージを送らないようにするなど、
望む動作に置き換える方法もあります。

>>706
んー。TCustomFormのOnCloseは、Actionの値をcaFreeにすると開放されるってヘルプ
には書いてあったんですが、ダメなんですかねぇ。
この例で言えば、Form2側でボタンを押したときに開放したいんです。できれば、元ウィ
ンドウからは作りッぱなで抜けたい処理があるんですけど…。ダメですか…。

>>706
705を読まずに書くけど、showに対してはhideでなかったっけ？
visibleをtrue/falseにする…

あー手元にDelphiがない

>706
OnCloseでcaFreeにすると、内部でReleaseが呼ばれるので、一緒のはずですけど。

…まさかと思いつつ、Form2がVisible = Falseのまま自動作成の対象なんてことはないですよね？(w

>>710
…まさか。いや、大丈夫ですとも。
じゃあ、開放されて無効な空間をアクセスしにいってるのに例外が出ないんでしょう
か？それも不気味な気が…。
でも、見に行ったForm2.Edit1.Textに値を入れた状態でCloseしても、値無しで返っ
てくるので、やっぱり開放されてるのかナァ…。
中規模システムの一部に使いたい処理なので、メモリリーク起こされると怖い…(-_-;)

>711
調査完了〜♪

コンポーネントは、解放される時Ownerの自分の名前と同じpublishedフィールドをnilに設定します。
この場合、Form2は解放済みメモリを指しているので、その後メモリが他の用途に使われていなければ
Form2.Editに相当するアドレスにはnilが入っています。
TextプロパティはTWinControl.Perform経由で取得されますが、このPerformが、Self = nil の
無効な呼び出しのときは何もしないようになってました。
従って、nilが入っているコントロールのTextプロパティは常に空です。

>>712
うぉう！
ありがとうございます。助かりました！
っつーか、どこでそんな情報を調べたんですか。Del付属のオンラインヘルプですか？
…ここまで調べたということは、VCLのソースも持っているんでしょうね。（私も持っ
てるんですけどね）
本当にありがとう御座います。これでメモリリークの不安もなくコーディング続けら
れます！

>>708
脊髄反射で嘘書いてしまった。ｽﾏｿ。

そーいやMDIではよくやる手だな。

>>703
http://hp.vector.co.jp/authors/VA015850/twaddle/note.html
の 2000/03/29 を参照。

VCLに検索とか痴漢のダイヤログがありますが、その使い方がサッパリわかりません。

某ﾗﾝﾄﾞのQAページにあるサンプルコードどおりに作ってもうまく動作しません。

これらは、TMemoでは動作しないのでしょうか？

TMemoでもう一つ質問です。

ファイルにある文字列を貼り付けて、その後、カーソルを上に移動する、というような処理をするときは、Memo1.Perform...の手順ではダメなのですか？

実際、どうすればいいのですか？　ヒントを頂ければ幸いです。

>>716
あれはただダイアログ出すだけなので、実際の検索・置換は自分でやってください。
コモンファイルダイアログがファイル選ぶだけで、実際にファイル開くところまでは
面倒みてくれないのと同じ。
>>717
よくわからんがSelStartいじるんじゃ駄目なの？

>>713
Delphi好き ◆0YAPhEjk さんは仕事で使っておられるようなので、当然Professional以上ですよね。
プロジェクトオプションの「デバッグ版dcuを使う」をチェックして再ビルドすると、
デバッガのステップ実行でVCLソースまで入れるようになるので、
あとはひたすら追いかけていくだけです。

>>719
うあ。知りませんでした。今度試してみます。
有難う御座いましたー！！

Jabber.JPのサイト
http://www.jabber.jp/
で紹介されているExodusというメッセンジャークライアント
を使ってみたんですけど、メッセージを入力するウィンドウ
ではIME変換中、確定後とも文字化けしてしまって困っています。
具体的には、全角文字は全て白抜きの四角で表示されます。
ちなみにメッセージ自体は文字化けせずに送信されて、
メッセージ表示ウィンドウ（入力ウィンドウの上にあります）
にも文字化けされずに表示されます。

ExodusのソースをCVSから取得し自分でビルドもしてみたのですが
文字化け現象は変わりませんでした。詳細はJabber.JPメーリング
リストに書きましたのでそちらをご覧いただけたらと思います。
（ウェブサイトのアーカイブにはまだ載っていないのですが、
Jabber.JPのメーリングリストに参加後、
[email protected] という宛先にメールを送れば
記事が添付されたメールが返信されてきます。）

どうすれば、文字化けを解消できるのか、何かヒントを頂ければ
幸いです。よろしくお願いします。

ちなみに、Jabberの利点は、
・ソースが公開されている
・自分でサーバを立てられる
・SSLで暗号化できる
だと思っています。

MS Messengerなどではチャットのメッセージが平文でネットワークを
流れるのがいやだなあと思っていたので、Jabberでメッセンジャー
環境を構築したいと思っているのです。

入力時の文字化けさえ解消すれば結構使えそうですので、ぜひとも
何か解決の糸口を頂ければと思います。情報お待ちしています。

亀のごときスピードで前進し、
メニューからの別ウィンドウの作成と開放もできるようになった…

チュートリアルのテキストエディタの作成で
"［Additional］ページにある ActionManager"が無いのは
1パーソナル版だから.
2.以前のバージョンにはあったが無くなった。ヘルプが直ってない
とかなんでしょうか？
それとも漏れが猛烈な勘違いしてるだけ？
先に進めませんので教えて下さい

ガイシュツ

（´-`）。o ○ （もういい加減に「アクソンマネージャー」関係は終了しないかね…。
パソナル無料版のインストール時に、でっかいダイアログ出して「アクソンマネージャーは
付いてないよーん！」ってやるとか…）

Help見ればわかると思うんだが

　TreeViewのツリー項目となるTTreeNodeのtextプロパティはString型になってるけど
受け入れる文字列のサイズに制限はないのかな。
　実際にはこのtextプロパティに大きな文字列を入れることはまずないと思うけど。
　TTreeNodeのソースの以下のところをみたら問題になるような気がするが。

procedure TTreeNode.WriteData(Stream: TStream; Info: PNodeInfo);
var
　I, Size, L, ItemCount: Integer;
begin
　L := Length(Text);
　if L > 255 then L := 255;
　Size := SizeOf(TNodeInfo) + L - 255;
　Info^.Text := Text;
　Info^.ImageIndex := ImageIndex;
　Info^.SelectedIndex := SelectedIndex;
　Info^.OverlayIndex := OverlayIndex;
　Info^.StateIndex := StateIndex;
　Info^.Data := Data;
　ItemCount := Count;
　Info^.Count := ItemCount;
　Stream.WriteBuffer(Size, SizeOf(Size));
　Stream.WriteBuffer(Info^, Size);
　for I := 0 to ItemCount - 1 do Item[I].WriteData(Stream, Info);
end;

>>727
自分で、でかいサイズを入れて見れば分かると思うがどうか？

>>727

ソースを無断で公表してはいけません
Borland に許諾を得ましたか？
（宣言部はタダだけど、実装部は....）

（´-`）。o ○ （どうして質問の前に自分で試すってことをしないんだろう）

オープンソースでもないのに晒しちゃってる時点でアウトだろ

　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　／
　|　バグ議論しようとしているのに
　|　「ソース晒しダメ。人間失格」
　|　ってな応答は、ちょっとカワうそうでは？
　＼＿　＿＿＿＿＿＿＿＿＿＿＿＿
　　　　|/
　　 ∧,,∧
　　ミ,,ﾟДﾟﾐy━~~
　　 U　　 ﾐ
　〜ﾐ　 　ﾐ　
　　　Ｕ''Ｕ
　　　　　　多めに見ない？

それにしても、なんで
　Size := SizeOf(TNodeInfo) + L - 255;
こんな事してるんでしょうか？
　　-255
って記述は必要ないような機がするんですが
違うのかしら。

全てのフォームのフォントを日本語フォント（MS UI Gothic, 9ポイント)に
設定して再ビルドすることで文字化け問題は解決しました。

これで日本語も普通に入力できるようになって嬉しいです。やったー！

以下に記述したclassでHogeを呼び出した時、Executeで生じた例外をHoge内
で捕らえる事が出来ません。どのようにすれば可能でしょうか？

uses
　Classes;

type
　TKusoThread = class(TThread)
　public
　　constructor Create(CreateSuspend: Boolean);
　　destructor Destroy; override;

　　procedure Execute; override;

　　procedure Hoge;
　end;

implementation

uses
　SysUtils, Dialogs;

constructor TKusoThread.Create(CreateSuspend: Boolean);
begin
　inherited Create(CreateSuspend);
end;

destructor TKusoThread.Destroy;
begin
　inherited Destroy;
end;

procedure TKusoThread.Execute;
begin
　Exception.Create('Aborn');
end;

procedure TKusoThread.Hoge;
begin
　try
　　Resume;
　　WaitFor;

　　ShowMessage('mazu-');
　except
　　ShowMessage('uma-');
　end;
end;

だってtryしてないもん。

>>735

それはHogeとは別のプロセスでExecuteは実行されているのでExecuteで
生じた例外をHogeで捕らえる事はできないという事ですか？

>>735

実現したいのはHogeとは別プロセスで実行しているExecute内での例外をHogeで
捕らえたいという事なのですが。

>737
734のHogeでは、どこにも"別プロセスで実行している"
他のインスタンスを参照してないので無理。
スレッドの管理をスレッドで行う事は可能だが、
同一クラスにその両者を押し込める設計は関心しない。
別のThreadクラスなりメインスレッドで処理したほうが良い。

…737の内容から外れるが、ひょっとしてこういう事がしたいのか？

procedure TKusoThread.Execute;
begin
　try
　　ReturnValue:= 0;
　　raise Exception.Create('Aborn');
　except
　　ReturnValue:= 1;
　end;
end;

procedure TKusoThread.Hoge;
begin
　Resume;
　if WaitFor = 0 then
　　ShowMessage('mazu-')
　else
　　ShowMessage('uma-');
end;

--- 呼出元
procedure TForm1.Button1Click(Sender: TObject);
begin
　with TKusoThread.Create(True) do begin
　　Hoge;
　　Free;
　end;
end;

>>738
分かりにくい質問ですいません。

type
　TKusoThread = class(TThread)
　public
　　constructor Create(CreateSuspend: Boolean);
　　destructor Destroy; override;

　　procedure Execute; override;
　end;

　TKuso = class(TObject)
　public
　　constructor Create;
　　destructor Destroy; override;

　　procedure Hoge;
　end;

implementation

uses
　SysUtils, Dialogs;

constructor TKusoThread.Create(CreateSuspend: Boolean);
begin
　inherited Create(CreateSuspend);
end;

destructor TKusoThread.Destroy;
begin
　inherited Destroy;
end;

procedure TKusoThread.Execute;
begin
　Exception.Create('Aborn');
end;

constructor TKuso.Create;
begin
　inherited Create;
end;

destructor TKuso.Destroy;
begin
　inherited Destroy;
end;

procedure TKuso.Hoge;
var
　Thread1: TKusoThread;
begin
　Thread1 := TKusoThread.Create(True);

　try
　　Thread1.Resume;
　　Thread1.WaitFor;

　　ShowMessage('mazu-');
　except
　　ShowMessage('uma-');
　end;

　Thread1.Free;
end;

メインスレッドからTKusoのHogeを呼び出したとします。TKusoThreadが生成して
実行され、WaitForの地点で別プロセスで実行されてるTKusoThreadのExecuteが
呼び出されます。'aborn'の例外がメインスレッドとは違うTKusoThreadのスレッ
ドで生じるのですが、この例外はメインスレッドには伝達されないのでHoge内の
tryで捕らえられず、ShowMessage('mazu-')が実行されてしまいます。そのため
どうにかしてこの例外をHoge内で捕らえ、ShowMessage('uma-')を実行する事が
できないかという事なのです。

以上で分かりましたでしょうか。スレッドを用いたprogrammingは初めてなので
とんでもない間違いをしてるかも知れません。

ますます意味不明。ここはどんな厨房疑問でも答えるスレって事に
なってるが質問の意図がわからなくちゃ答えようもないわな

742は741 見ずにかいちた。
で。妙に例外に拘けど、739のようにReturnValue使っちゃ駄目なの？

>>738

そうですか。それでは、

並列に実行されているスレッドがあり、そのうちの１つのスレッドで例外が
生じた。この例外を他のスレッドへ伝達したいがどうすればよいか。

でどうでしょうか？

>>743

指摘されている様に、関数の返し値を使用して解決する事はできます。しか
し、例外処理を途中で関数での処理に変えてしまうのは好ましくないと思う
のです。ですので、例外を直接別のスレッドへ伝える方法はないかと聞いて
みたのですが。まあ、無ければ無いで諦めるのですけど。

もの凄く要約させてもらうけど、スレッドＡからスレッドＢを動かして、スレッドＢで
発生した例外をスレッドＡで検知したいってこと？

>>746

その通りです。

デルファイで大儲けできるプログラムを作りたいので、
作り方を教えてください。

デルファイよりプログラミングしやすい環境を組ぬ。

>>744 できる。少なくともDelphi IDEはやっているね :-)
で、期待したのとは違うだろうが、こんなのはどうか。
type
　TKusoThread = class(TThread)
　public
　　FThreadException: Exception; //ホントはprivateとかに
　　FOnException: TExceptionEvent; //ホントはproperty化
　　procedure Execute; override;
　　procedure OnException;
　end;

implementation

procedure TKusoThread.Execute;
begin
　try
　　FThreadException:= nil;
　　raise Exception.Create('Aborn');
　except
　　on e: Exception do
　　begin
　　　FThreadException:= e;
　　　Synchronize(OnException);
　　end;
　end;
end;

procedure TKusoThread.OnException;
begin
　if Assigned(FOnException) then
　　FOnException(Self, FThreadException);
end;

--- 呼出し側(手抜きでFormに記述したがThreadでも可能な筈)
procedure TForm1.Button1Click(Sender: TObject);
begin
　with TKusoThread.Create(True) do
　begin
　　FOnException:= ThreadException;
　　FreeOnTerminate:= True; // WaitForは使えない
　　Resume;
　end;
end;
procedure TForm1.ThreadException(Sender: TObject; E: Exception);
begin
　ShowMessage('uma-');
end;

>748
１．シリアルジェネレーターを作成する
２．Del　CDを複製コピーする
３．アキバの裏通りで売る。

なお、当方は一切関知しない。

バッカじゃねーの？コイツ

Delphi6 RTLアップデートとかって出てるけど、なにこれ？
RTLってランタイムライブラリィ？なんじゃらほい。

質問しつつ、ＤＬしてみたよ。

| デッドロックが発生するという Delphi 6 での問題が解決されます。

って事らしいです。

\lib\SysUtils.dcu
\lib\Xmlxform.dcu
\lib\debug\SysUtils.dcu
\lib\debug\Xmlxform.dcu
\MergeModules\BaseRTL.Msm
\source\Rtl\Sys\SysUtils.pas
\Windows\System32\rtl60.bpl
\Windows\System32\rtl60.map

が中身みたいなんで、当てといた方がよさげ。

森の木陰でドンジャラホイ

>>754>>755
アップデートパック＃２入れてあるのに、ＲＴＬインストールしようとしたら
英語で「アップデートパック＃２が見つかりません。先にインストールして
下さい。」と出やがった。

でも無理矢理強行インストールしたら、うまくいったみたい。バグなのか？

>>756
書いてあるよ＜ダイアログ出るけど