969コメント276KB

くだすれDelphi(超初心者向け） Part4

レス数が950を超えています。1000を超えると書き込みができなくなります。

0001毛の生えたフサギコ

NGNG

このスレッドは、

他のスレッドでは書き込めない超低レベル、もしくは質問者自身何が何だが
分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、お礼はDelphiの布教と初心者の
救済をお願いします。

0002毛の生えたフサギコ

NGNG

くだすれDelphi(超初心者向け） (Part1)
http://pc2.2ch.net/tech/kako/1051/10518/1051882835.html
くだすれDelphi(超初心者向け） Part2
http://pc2.2ch.net/test/read.cgi/tech/1053757982/
くだすれDelphi(超初心者向け） Part3
http://pc2.2ch.net/test/read.cgi/tech/1055986736/

0003毛の生えたフサギコ

NGNG

リンク集
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%A5%EA%A5%F3%A5%AF%5D%5D
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538

0004デフォルトの名無しさん

NGNG

>>1　乙

　　∧＿∧
　（　´∀｀）＜ぬるぽ

0005デフォルトの名無しさん

NGNG

￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣｣
―――――――――――――‐┬┘
　　　　　　　　　　　　　　　　　 |
　　　　＿＿＿＿.＿＿＿＿　　 |
　　　　　|　　　　 | 　　　　|　　 |
　　　　　|　　　　 | ∧＿∧　|　　 |
　　　　　|　　　　 |（　´∀｀）つミ |
　　　　　|　　　　 |/ ⊃　ﾉ　|　　 | 　　Borland
　　　　￣￣￣￣'￣￣￣￣　　 |
　　　　　　　　　　　　　　　　　|

0006デフォルトの名無しさん

NGNG

糞スレ立てんな死ね>>1

0007デフォルトの名無しさん

NGNG

Dialogってなに

0008デフォルトの名無しさん

NGNG

>>7
http://www.wdic.org/?word=%A5%C0%A5%A4%A5%A2%A5%ED%A5%B0+:TECH

0009デフォルトの名無しさん

NGNG

>>7
それだけじゃ
何を知りたいのかわからんですよ

もうちょっと詳しく

0010デフォルトの名無しさん

NGNG

FileListBoxで
拡張子がexeのものしか表示しないようにするには何のプロパティを設定すればええの？

0011デフォルトの名無しさん

NGNG

>>10
Mask

*.exe

0012デフォルトの名無しさん

NGNG

クラスとレコードってどうちがうの

0013デフォルトの名無しさん

NGNG

type
　TData = record
　　x: Integer;
　end;

　TClass = class
　private
　　FData: TData;
　public
　　property Data: TData read FData;
　end;

という風にしたとき、TClass.Data.xまでも読み取り専用にすることは出来ますか？

0014デフォルトの名無しさん

NGNG

クラスにするっきゃない

0015デフォルトの名無しさん

NGNG

プライベート宣言

0016デフォルトの名無しさん

NGNG

ヘルプを眺めていて不思議に思ったので質問させてください
TRect = packed record
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;
となっています
型宣言でcaseを使っているので驚きました
どういう意味なんでしょうか
TRectの値に2通りの方法(TPointを使うかどうか)でアクセスできるのと関連があるんだろうと
推理しましたがそれ以上わかりませんでした

0017デフォルトの名無しさん

NGNG

>>16
C の union（共用体）に相当

0018デフォルトの名無しさん

NGNG

>>16
その推理で大体あってる
同じメモリ空間を異なる型として見ることができる
その例だと
|A|B|C|D|
というメモリ空間が確保されて
TRect.TopにアクセスするとBが返って来る
TRect.BottomRightにアクセスすると
TPoint.x:=C;TPoint.y:=D;と同じものが返って来る

0019デフォルトの名無しさん

NGNG

ShellComboBoxの初期値はPathで設定すればいいみたいなのですが、
ShellComboBoxにくっつけたShellListViewにはそのPathが反映されません。
仕方が無いので、ShellListViewにも初期値を設定しようとしたのですが、
設定の仕方が分かりません。

どなたかご存知の方いらっしゃいませんか？

0020デフォルトの名無しさん

NGNG

>>17
>>18
なんとか理解できました
ありがとうございます

0021デフォルトの名無しさん

NGNG

ProgressBarのバーの色って変える方法ありませんか？

0022デフォルトの名無しさん

NGNG

SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, color);

002319

NGNG

ぐあー！
ShellListViewってZIPファイルをフォルダ扱いしやがる！
(;´Д｀)

0024デフォルトの名無しさん

NGNG

(;´Д｀) ぐあー！

0025デフォルトの名無しさん

NGNG

>>19
ShellComboBoxとShellListViewをリンクさせるには
ShellComboBoxのShellListViewプロパティか
ShellListViewのShellComboBoxプロパティで
対象を指定します

初期値はそれぞれのRootプロパティで指定できます

002619

NGNG

>25
Rootに設定したら、初期値というより、
ルートフォルダになってしまったっぽい。
ShellComboBoxにその上のフォルダが出てこない…。

他のコンポに差し替えた方がいいかなぁ…。

0027デフォルトの名無しさん

NGNG

自分でDelphiで作ったアプリ（Ａ)に、他のアプリからFindWindow()->PostMessage()で
ユーザー定義メッセージを送ってます。
（Ａ）を単体で立ち上げたときはメッセージをうまく受け取れるのですが、
Delphiの開発環境経由で、コンパイル→実行したときは、うまく受け取れません。
何か理由があるのでしょうか？デバッガがメッセージを横取りしてるとか。

0028デフォルトの名無しさん

NGNG

>>16
説明を追加しとこう。

Integerとか0とか1とかの一見無意味な記述があるから驚いたのだろうけど、

TRec = record
case Tag: TEnum of enumA : (A: Integer); enumB : (B: Word; C: Word) end;

という記述も可能。
TagはTEnum型のフィールドとなり、Tag = enumAの時だけAの値が保証される、という感じに使う。
Pascal処理系によってはA,B,CにアクセスするとTagを見てエラーを出してくれるものもあったが
Delphiの場合はTagは単なるフィールド。

0029デフォルトの名無しさん

NGNG

>>27
設計時のフォームに送られてるから。

0030デフォルトの名無しさん

NGNG

MS社員も見てる２ちゃんねる

http://www.gdncom.jp/general/bbs/ShowPost.aspx?PostID=735

> 「超初心者向け」コミュニティに関しては、運営方法を検討中です。
> コンセプトとしては、２ちゃんねるプログラマ板のかつての「モナーの *やさしい* Delphi質問スレ」やくだすれです。現在は参加者がレベルアップしたのか雰囲気が変わりましたが。

0031デフォルトの名無しさん

NGNG

wara

0032デフォルトの名無しさん

NGNG

メソッドとプロパティの違いは？

0033デフォルトの名無しさん

NGNG

クリップボードではまってます。

var
i,n: integer;
hDrop: THandle;
szFile: array[0..MAX_PATH-1] of Char;
begin
if Clipboard.HasFormat(CF_HDROP) then　begin
hDrop := Clipboard.GetAsHandle(CF_HDROP);
n := DragQueryFile(hDrop, $FFFFFFFF, szFile, SizeOf(szFile));
for i := 0 to n - 1 do　begin
DragQueryFile(hDrop, i, szFile, MAX_PATH);
ListBox1.Items.Add(szFile);
end;
end;
end;

というようなコードを引用して、エクスプローラーでコピーしたファイル名の一覧を取得するところまでは、うまくいったんだけど、

ListBox1.Items.Add(szFile);　を　ShowMessage(szFile);　にしたら、ループふた周り目でエラー。

ShowMessage(string(szFile));
これも駄目。

StringList.Add(string(szFile));
これも駄目。

何故!!!!!!!!!!!!!!!!

0034デフォルトの名無しさん

NGNG

DelphiでBMSプレイヤーってつくれるん？
Quadruple DってコンポーネントみつけたんだけどDelphiは初めて2週間程度で
しかも持ってるのはPersonalだからどうしようもない。（´･ω･｀）
Delphiの本もプログラミングテクニックとリファレンスブックしかもってないから
ぜんぜん分からん。

だれかレクチャーしてくれ。

0035デフォルトの名無しさん

NGNG

PageControlで作ったtabsheetで
どれがアクティブか調べる方法を教えてください
よろしくお願いします

0036デフォルトの名無しさん

NGNG

>>35
ShowMessage(PageControl1.ActivePage.Caption);

0037デフォルトの名無しさん

NGNG

>>36
できました。
ありがとうございます

0038デフォルトの名無しさん

NGNG

>>32
その質問の真意は？

0039デフォルトの名無しさん

NGNG

>>38
その質問の真意は？

お前らは黙って答えてりゃ良い。

004038

NGNG

>>39
ごめん。意味がわかんないもんで。
じゃあオマエさん答えて

0041デフォルトの名無しさん

NGNG

メソッドはプルセジャー

0042デフォルトの名無しさん

NGNG

自分のＰＣに入っているダイレクトＸのバージョンって
どうやればわかりますか？

0043デフォルトの名無しさん

NGNG

>42
OSは？

0044デフォルトの名無しさん

NGNG

＞４３
ＸＰです。

0045デフォルトの名無しさん

NGNG

ＷＩＮのスタートメニュー⇒アクセサリ⇒システムツール⇒システム情報
ってやってからツール⇒DirectX診断てやればできないか？

0046デフォルトの名無しさん

NGNG

>45
出来ました。ありがとうございます。

0047デフォルトの名無しさん

NGNG

Delphiが地球と神殿柱のアイコンになった理由は何ですか

0048デフォルトの名無しさん

NGNG

>>46
Delphiを何の関係があるんだよ(;´д`)

0049デフォルトの名無しさん

NGNG

>48
日本語変ですよ

0050デフォルトの名無しさん

NGNG

delphiのプロジェクトを２個開きたいんですが、
１個目が閉じちゃいます。
どうすれば２個開けますか？

0051デフォルトの名無しさん

NGNG

プロジェクトグループ作って、その2つのプロジェクトを追加しれ。

0052デフォルトの名無しさん

NGNG

>>50
Delphi を 2 つ起動する手もある

0053デフォルトの名無しさん

NGNG

>>33
各パスが、ぬる文字で区切られているんじゃなかったっけ？んで最後にぬる２つ。
変数の中身チェックしてみ。

0054デフォルトの名無しさん

NGNG

クラスってなんなのさ
オブジェクトとかインスタンスとか親子とかレコードとか
わけわかんねーよ

0055デフォルトの名無しさん

NGNG

そんな君にはHSPがお勧め。

0056デフォルトの名無しさん

NGNG

親子って何？

0057デフォルトの名無しさん

NGNG

TComponentの事じゃない？

0058デフォルトの名無しさん

NGNG

>>54
ハートの形をしたクッキーを作りたいとき、
1.ハートの抜き型を用意します。（クラス）
2.生地をその抜き型でくりぬくとクッキーそのものができます。（オブジェクト、インスタンス）

基本はこんな感じですよ。
実際はリニアなものじゃなくて階層構造（＝親子）になるんだけど、
人に説明するのってとっても難しいね。

0059デフォルトの名無しさん

NGNG

>>54
３ヶ月くらい使ってたら何となく分かってくるよ

0060デフォルトの名無しさん

NGNG

>>58
プログラミングでは極端な比喩表現は誤解を招きやすいのでいかがなものかと・・・
そもそも3行で説明できるはずがない（詳しい説明へのポインタを示すべき）

>>54
ttp://age.ne.jp/x/kazuhito/Delphi/delphi2.htm
ttp://www.artlex.net/gonta/jpn/objprog/
ttp://www.s34.co.jp/cpptechdoc/article/oo/
これでわからんかったら何がわからなかったのか質問しよう

006133

NGNG

>>53
あ、ありがとございます。
寝て、働いて、帰ってきたら、ちぇっくしてみまず。

0062デフォルトの名無しさん

NGNG

DelphiではC言語みたいに
A++=1みたいな書き方はないの？
絶対A:=A+1ってかかなきゃいかんの？

0063デフォルトの名無しさん

NGNG

そうだよ。
馬鹿でも見たら分かるくらい分かりやすい書き方しかないよ

0064デフォルトの名無しさん

NGNG

>63
Ｃ言語に比べりゃすごく不便だな。糞ツールDelphi逝ってよし

0065デフォルトの名無しさん

NGNG

>>62
A++=1って何？
A+=1→A++ならInc(A)
A+=5ならInc(A, 5);
-=はDecやね

0066デフォルトの名無しさん

NGNG

Inc使えよ

0067デフォルトの名無しさん

NGNG

あ、かぶった

0068デフォルトの名無しさん

NGNG

オブジェクト指向ってプログラミングを簡単にできるようにするために考えたの？

0069デフォルトの名無しさん

NGNG

あれだけで、どこが不便なのか小一時間語ってもらいたいな

0070デフォルトの名無しさん

NGNG

自作自演はフサギコスレの方だけでやってくれんか。

0071デフォルトの名無しさん

NGNG

VBAでいうところの

On Error Resume Next

Delphiでは何と書けば良いのか、教えていただきたく

0072デフォルトの名無しさん

NGNG

>>71
例外を無視して突っ切るって事？
一文毎に、次のように囲む。(ただし実際にこんなことやってるとこ見つけたら怒るけどな…)

try
　文
except
　;
end;

007371

NGNG

ありがとうございます
一文毎に、ですか。。。ﾂﾚｰｻｷﾞｮｳﾀﾞｽ
とりあえずやってみます

0074デフォルトの名無しさん

NGNG

別に一文ずつやる必要ないだろ。

0075デフォルトの名無しさん

NGNG

MDIアプリケーションで、タブブラウザのように
子ウィンドウを常に最大化して表示し、タブでウィンドウを切り替えます。

子ウィンドウを作るときと別のウィンドウに切り替えるときに
一瞬もとのサイズのウィンドウが見えてしまうのですが、
そうならないようにするにはどうすればよいでしょうか。

0076デフォルトの名無しさん

NGNG

>>75
どしてPageControlじゃダメなの？
Hide状態で最大化してから表示すればいいと思うけど

0077デフォルトの名無しさん

NGNG

他のアプリケーションをALT+TABとか使ってアクティブにすると
強制終了するにはどうやったらいいんですか？

0078デフォルトの名無しさん

NGNG

>74
try
　処理１
　処理２
　処理３
except
　:
end;

で、処理１でエラーがあったら処理２以降が実行されないから、
ってのが >71 の頭にあると思う。

0079デフォルトの名無しさん

NGNG

auto_ptrみたいな参照カウントのためだけに
TInterfacedObject継承するのは違反ですか？
なんかうまくいってるんだけど・・・

0080デフォルトの名無しさん

NGNG

elseの前にセミコロンがあってはいけませんとかでてきてうぜぇ

0081デフォルトの名無しさん

NGNG

implementation

{$R *.dfm}

end.

この部分の
{$R *.dfm}←これって
何でコメントなのに消しちゃいけないの？

0082デフォルトの名無しさん

NGNG

>>81
コメントじゃなくてコンパイラ指令（ディレクティブ）だよ

0083デフォルトの名無しさん

NGNG

>82
{ }でくくってあるのにコメントじゃないんだー
デルハイの不思議

0084デフォルトの名無しさん

NGNG

フォームを
Windowsのタスクバーよりも前に表示させたいんだけど、
どうすればできますか？

0085デフォルトの名無しさん

NGNG

Pchar型→string型に変換する方法を教えて下さい

0086デフォルトの名無しさん

NGNG

>>83
$があるから

0087デフォルトの名無しさん

NGNG

>>85
string(PChar変数);　のようにキャストすればいいじゃん

0088デフォルトの名無しさん

NGNG

>>84
FormStyle:=fsStayOnTop;
でTTimerで定期的にSetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);をする。

0089デフォルトの名無しさん

NGNG

>>79
OK。

009071

NGNG

>>78
おっしゃるとおりです
DelPhiパーソナル版買って３日目のトーシロってことで、
コードのみっともなさについてはひとまず見逃してください。

これまではAccessVBAしか使ったことがありません。
職場のDB、伝票発行から名刺作成まで、何もかもAccessで強引に
やっつけてきましたけど、そろそろ限界かな、と。

この先もたまにお世話になるかもしれません

0091デフォルトの名無しさん

NGNG

>パーソナル版買って

…感動した。
しかしDB機能はPro以上にしか無いですぞ。

0092デフォルトの名無しさん

NGNG

継承元がパブリックで公開してる静的メソッドを
継承先でプライベートに隠しちゃう事ってできないんですか？

TList継承して独自のクラスのみ格納できるListを作りたいのだけど
どうがんばってもfunction Add(Item: Pointer): Integer;が公開されてしまって
なんだかみっともないです

0093デフォルトの名無しさん

NGNG

hasでやればいいのだろうけど、どう考えてもis関係ですよね・・・？
DL版パーソナルなのでVCLソースを参考にすることもできず

0094デフォルトの名無しさん

NGNG

無理
TList継承スンナ

0095デフォルトの名無しさん

NGNG

>>92
Delphi-MLで昔見たような気がしたんだが・・・鯖トラブルで過去ﾛｸﾞが見れない
もしかしたらDDJだったかなあ
かなり汚い方法だけど一応できた記憶はある。

009695

NGNG

>>92
オジサンはねぇ、TList継承しておいてAddを消したいっていうのはどうかと思うよ。

0097デフォルトの名無しさん

NGNG

DB機能って何？

0098デフォルトの名無しさん

NGNG

七つ集めると(ry

0099デフォルトの名無しさん

NGNG

>>97
幻のD Builder

0100デフォルトの名無しさん

NGNG

ボディー　ビルダー

0101デフォルトの名無しさん

NGNG

>>87
あっさり変換出来たよ....鬱だ。

010287

NGNG

多田のバカじゃん

0103デフォルトの名無しさん

NGNG

>>101
超初心者ｽﾚだ。安心汁

0104デフォルトの名無しさん

NGNG

>>102はニセモノ。士ね

0105デフォルトの名無しさん

NGNG

>>96
いえ、Aｄｄを消したいのではなくて、
function Add(MyClass: TMyClass): Integer;
のみを公開したいんです
Pointerを引数に取れるのまで公開されちゃうと
何されるかわかったもんじゃないというか、poolproofというか

まぁダメそうなので素直にHasにします

0106デフォルトの名無しさん

NGNG

フサギコってなに

0107デフォルトの名無しさん

NGNG

>>106
良い子は見ちゃいけ・・・じゃなかった、興味を持っちゃいけません。

0108ミ,,ﾟДﾟ彡 ◆A6VzDeLphI

NGNG

TList部分を全コピペするとよいかも。。

0109デフォルトの名無しさん

NGNG

>>105
例えば、こんな手もあり？

TList2 = class(TList)
public
　function Add(Item: Pointer): Integer;
end;

function TList2.Add(Item: Pointer): Integer;
begin
　raise Exception.Create('呼んじゃダメよ');
end;

使用例）
var
　List2: TList2;
begin
　List2 := TList2.Create;
　List2.Add(nil); // ここで例外発生
　...
　Dame(List2);
end;

procedure Dame(List: TList); // ← TList2 の親
begin
　List.Add(nil); // こんな使い方されちゃうとダメなんだけど
end;

0110デフォルトの名無しさん

NGNG

前にRecordだかClassだかなんだかの基本的には変数をおくところに
procedureを書いてたのを見たことがあるんだが使い方の詳細を教えてくれない?
自分でもよくわかってないのでうまくかけないんで、察してくださいw
もしかしてこんなのかな?
～ = record
i: Integer;
procedure MyProc;
end;

0111デフォルトの名無しさん

NGNG

>110
record型はprocedureやfunctionを要素に出来ないよ。
class型ならできる。
型について、いまいちよくわかってないのかなー
type
TmyClass = class
i: integer
procedure MyProc;
end;

とclass型を定義してから
var
MyClass: TMyClassとやれば
MyClass.iやらMyClass.MyProcを利用できるさ

0112デフォルトの名無しさん

NGNG

自分でもよくわかってないって行ってんだろカス

0113110

NGNG

>>111
なんとなくわかった気が。これから試してみます。
忘れ去られたころにまた質問するかもしれないのでそのときはよろしくでつ。

0114デフォルトの名無しさん

NGNG

>112
わかってないっつーか、
レコード型とクラス型の違いくらいは覚えられるでしょう。

レコード型＋手続き、関数＝クラス型

0115110

NGNG

↑
かんじわりー

0116デフォルトの名無しさん

NGNG

type
Tnanasisan = record
resu : integer
tyuu : Boolean
end;

var
nanasisan : Tnanasisan
nanasisan.resu:=110;
nanasisan.tyuu:=true;

0117110

NGNG

>>115は人が違うんで。

0118デフォルトの名無しさん

NGNG

TN = record
a: procedure(const Unko: String);
end;

var
N: TN;
begin
N.a:=ShowMessage;
N.a('Hello, World.');
end;

0119デフォルトの名無しさん

NGNG

102=112=115
変なのが一匹紛れ込んでるね。

0120デフォルトの名無しさん

NGNG

↑
フサギコ師ね

0121デフォルトの名無しさん

NGNG

>>110がいってるのってファンクタじゃないの？
TMyClass = class
　MyFunc: procedure;
end;
みたいな

こうしとくと
procedure Test();
begin
　//Do something;
end;
という関数があったとき、
MyClass.MyFunc := Test;
として「振る舞いそのもの」を変数に持てると思えばよろしいかと

こいつの存在意義は、状況によってMyFuncの振る舞いを変えたいときに、
換えたい振る舞いを実装した関数をMyFuncに代入してやれば良いという事

0122デフォルトの名無しさん

NGNG

ファイルストリームとかの「ストリーム」って簡単に言えばなんですかー？

0123知ったか

NGNG

カタマリ。

0124デフォルトの名無しさん

NGNG

>>122
流水。
まぁ先頭から末尾まで順番にアクセスすることしかできない配列と思えばヨシ。
ランダムアクセスもできるけど、それは本来的な使い方じゃないので注意。
途中から（末尾へ向かって）アクセスするのはアリ。

0125デフォルトの名無しさん

NGNG

Imageコンポネントの
ある座標のＲ，Ｇ，Ｂ値を調べるにはどうやるの？

0126デフォルトの名無しさん

NGNG

>>125
Image.Canvas.Pixels[x, y]でTColorが返って来る。しかも書き込める。

012775

NGNG

>>76
PageControlでうまくできそうです。
ありがとうございました。

0128デフォルトの名無しさん

NGNG

>>90
パーソナルを業務上で使う貴方が勤めている犯罪企業の名前を教えてください

0129デフォルトの名無しさん

NGNG

ていうかDBもロクに接続できないパーソナルを業務に使う猛者企業とは一体。

0130デフォルトの名無しさん

NGNG

C#BはPersonalでも金出せば可になったから、Delphiもそのうち改定されないかな？

0131デフォルトの名無しさん

NGNG

DBなんか独自のものを作ってやるんだよ。

0132デフォルトの名無しさん

NGNG

C#は無料で自由に使える環境が既にあるし、
CSB1に限ってはPersonalでシェアウェアくらい作れないと誰も使わないような低レベルだし。

0133デフォルトの名無しさん

NGNG

CSBはEnt買ってJavaアプリとのブリッジを作るもんですね。

0134デフォルトの名無しさん

NGNG

Tinifileよくﾜｶﾗﾝ
実行ファイルと同じディレクトリに同じ名前でiniを作ったあと
そのiniファイルに
[test]
test=1
を作る方法教えて

0135デフォルトの名無しさん

NGNG

>>134
ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
ini.WriteInteger('test', 'test', 1);
ini.Free;

どこがﾜｶﾗﾝのか全然ﾜｶﾗﾝ
WindowsAPIの説明も読んどけ

0136デフォルトの名無しさん

NGNG

var ini: TIniFile;

0137デフォルトの名無しさん

NGNG

>>105
Hasでやるべし

0138デフォルトの名無しさん

NGNG

>>135
ありが㌧

>>136もthx

0139デフォルトの名無しさん

NGNG

DelphiってどうしてＣ言語やＶＢよりも解説書とか少ないの？
人気ないの？

0140デフォルトの名無しさん

NGNG

>>139
・Delphi やる人は C/C++ やってた人が多いから解説書がいらない
・初心者が質問してもそれなりに答えてくれる ML があるし、
　解説サイトもそれなりにある、
　そしてやさしい兄ちゃん達がいる「このスレッド」がある
・ソース付きフリーコンポが山のようにあるから、それを見れば勉強になる

0141デフォルトの名無しさん

NGNG

それはね。
メガドライブってどうして売れなかったの？
セガサターンってどうして売れなかったの？
ドリームキャストってどうして売れなかったの？
ってのと同じなんだよ。

ダサキモかっこ悪人気無いの。

0142デフォルトの名無しさん

NGNG

>>そしてやさしい兄ちゃん達がいる「このスレッド」がある
やさしいワンピースを着た色白な美少女もいる！

0143デフォルトの名無しさん

NGNG

やさしいワンピースなどない

0144デフォルトの名無しさん

NGNG

いちいちケチつけるためにこのスレを見張ってるおまえが一番キモい。
おれが二番

0145デフォルトの名無しさん

NGNG

二つのプログラムがあるとしまして
Ａ　＞　Ｂ　へ送信してＢが何かを処理している間はＡは動かない
という事をしたいのですが、どうすればよいのでしょうか・・・

0146145

NGNG

質問しつつあげてなかったのでageさせて頂きます

0147_

NGNG

http://homepage.mac.com/hiroyuki44/jaz09.html

0148デフォルトの名無しさん

NGNG

>>145
モーダルダイアログ表示してる間はメインフォーム（呼び出し元）を操作できないようにしたい
みたいなことをしたいってこと？

0149145

NGNG

>>148
なるほどモーダルダイアログですか
ただいつ消すとかどうすればいいのだろうか・・・

0150148

NGNG

>>149
いや、「Ｂが何かを処理している間はＡは動かない」の「動かない」の意味が
わからんかったんで >>148 のような意味かどうか聞いたんだけど。

015171

NGNG

>>DBもロクに接続できないパーソナルを

いま確かめてみました。ロクに、というか、できませんね。
まあいいです。いまのところは練習用ですから。
DB以外にもつくりたいアプリは沢山あるし、DBについても、いま使ってる
ものが完全に限界を迎えるまでにどうにかなればいいかな、ぐらいの
感じで気長にかまえてます。
(そもそもAccessに感じていた限界ってのは、DBとしての限界じゃなく
それ以外のモノをつくろうとした場合の限界ですし)

ところで
変数の型ってのがけっこう厳格なんですね。
Suji:integer;
Suji:=12345;
ShowMessage(Suji);
とか書くと怒られる。
数字を文字に変換するやりかたってのも何だかよく分からず、仕方ないから
V1:variant;
Mojiretsu:string;
V1:='0';
Mojirestu:=Suji+V1;
ShowMassege(Mojiretsu)
なんてことをやってみましたけど、野暮にもほどがあるという感じで。

ま、何はともあれ昼休み。

0152デフォルトの名無しさん

NGNG

（´-`）.｡oO（こんな奴が作ったDBって)

0153デフォルトの名無しさん

NGNG

>>151
IntToStr(Suji);
Format('%d', [Suji]);
IntToHex(Suji, 8); // HEX

0154デフォルトの名無しさん

NGNG

>>151
型チェックが厳しいとかいうから
同じArray[0..9] of Integerなのに代入互換性ない！とかいうのかと思ったら・・・
ま、こんな香具師でも運営できるAccessVBはスゴイ！ということか（笑）

0155デフォルトの名無しさん

NGNG

厳格って言うか当たり前のことだろ

0156デフォルトの名無しさん

NGNG

>>154-155
VB, VBA, VBScript, JavaScript, ActionScript,...
こんなあいまいなものがあるからいけない。許してやれ。
でもこれはこれで便利な面もあるけどな。

0157デフォルトの名無しさん

NGNG

DelphiやっててAccessVBA使うと、逆に型が不明確で困るけどな。
ヘルプ見ても型がきちんと書いてないのが多いし。

0158デフォルトの名無しさん

NGNG

>>157
それは void* のような使い方したい場合に便利なんだが。

0159デフォルトの名無しさん

NGNG

↑間違えた

0160デフォルトの名無しさん

NGNG

>>150
Bが処理し終わったらAに適当に定義したメッセージ送ればいい。

0161デフォルトの名無しさん

NGNG

デルファイを使ってアイボみたいなロボットってできる？

0162デフォルトの名無しさん

NGNG

がんばれ

0163デフォルトの名無しさん

NGNG

>>161
どの CPU が何か知らないから何とも言えないが難しいだろう。
まあファームウェアっていえば大体 C やアセンブラ使ってやるから
そっちを勉強した方がいいだろう。
PC の画面の中でやるだけならもちろん Delphi でもできると思う。
完成した暁には報告してくれるとうれしい。

0164デフォルトの名無しさん

NGNG

Delphi6 使ってます。

grep の機能を実現するコンポーネントを探しています。
お薦めはなんかありませんか？

0165デフォルトの名無しさん

NGNG

>>164
http://homepage1.nifty.com/bmonkey/delphi/delphi.html

0166デフォルトの名無しさん

NGNG

パーソナルでもADOかなんか使ってDB出来なかったっけ?織れは
D6Proを使っているんだがそんな話を聞いた事があったような、
うろ覚えでスマソ｡

0167デフォルトの名無しさん

NGNG

ifとかcaseとか使わないでalign代入する方法ない？

0168デフォルトの名無しさん

NGNG

ちょっと文字不足だった
ifとかcaseとか使わないでstringの変数にalign代入する方法ない？

0169　

NGNG

>>168
冗談抜きに、まだまだ文字が足りないと思うぞ。

つーか、文字って言うか？

0170デフォルトの名無しさん

NGNG

☆貴方の見たい娘がイッパイ（＾０＾）☆無修正☆
http://endou.kir.jp/akira/linkvp.html

0171デフォルトの名無しさん

NGNG

>>167-168

const
ALIGN_STRINGS: array[TAlign] of string = ('alNone', 'alTop', 'alBottom', 'alLeft', 'alRight', 'alClient');

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ALIGN_STRINGS[Align]);
end;

って意味？

単純に値（数値）なら
　IntToStr(Ord(Align));
とかできる。

0172デフォルトの名無しさん

NGNG

>>169
ｽﾏｿ
>>171
そういう意味
ありがとう

0173デフォルトの名無しさん

NGNG

ListViewの特定のカラム内を入れ替えたいのですが、
どうすればいいですか？

StringGridの　
StringGrid.Cells[1,2] := 'age';　の様なことです。

0174デフォルトの名無しさん

NGNG

ListView1.Items[1].SubItems[0] := 'age';

0175?

NGNG

みてね～♪
http://cappuccino.h.fc2.com/kojiro.html

0176_

NGNG

http://homepage.mac.com/hiroyuki44/

0177デフォルトの名無しさん

NGNG

アイコンをWindows標準のものにするにはどうすればいいんですか？

0178デフォルトの名無しさん

NGNG

function myfunc(): HRESULT;
var
　hr: HRESULT;
begin
　hr := 例えばAPI呼ぶとか
　if FAILED(hr) then 例外処理;
　hr :=　・・・以下いくつか同じように
　Result := hr;
end;

と、こう書くのと

function myfunc(): HRESULT;
begin
　Result := 例えばAPI呼ぶとか
　if FAILED(Result) then 例外処理;
　Result :=　・・・以下いくつか同じように
end;

と書くのとでは、パフォーマンスに違いがありますか？
確か関数の返り値って専用のレジスタに入るんですよね・・・？

0179ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>178
戻り値が32ビット以内ならレジスタ（EAX）に格納されるようですが，
瞬時に何千何万回と呼び出されるのでなければ
パフォーマンスの差は無視しても良いように思います．

0180デフォルトの名無しさん

NGNG

>>178
ブレークポイントしかけてCPU窓で見るがよろし

0181164

NGNG

>>165
ども。あと、こういうのも見つけました

http://www.hi-ho.ne.jp/~babaq/bregexp.html

0182デフォルトの名無しさん

NGNG

C++ Builderとか見てみたらデルファイとそっくりやないか

0183173

NGNG

>>174
ありがとう
このスレ最高！！

0184デフォルトの名無しさん

NGNG

>>182
言語部分が object pascal から c++ になったようなもん

0185デフォルトの名無しさん

NGNG

ひとつのクラスに、100人の学生がいる。
100人のうち、70人がウドン好き
60人がソバ好き

このとき
ウドンもソバも好きじゃない人
ウドンのみ好きな人
ソバのみ好きな人
ウドンもソバも好きな人

のそれぞれの数の最大、最小を求めるプログラムはどうやってつくるの・・・？

0186デフォルトの名無しさん

NGNG

>>185
数学を勉強してから作るの

0187デフォルトの名無しさん

NGNG

先生！数学を勉強しなくても作れるレベルだと思います。

0188デフォルトの名無しさん

NGNG

>187
さすがに小学生じゃ無理だろ

0189デフォルトの名無しさん

NGNG

>>185
うどんとかそばとかのカテゴリで好き嫌いを語るのがナンセンス
関東風や関西風で全然別物だしそもそも学校で好き嫌いは許しません！！

0190デフォルトの名無しさん

NGNG

小学生は算数を勉強しているｯ!!

0191デフォルトの名無しさん

NGNG

>189
それはプログラムに関係ないだろう

0192デフォルトの名無しさん

NGNG

プログラムと食事とどっちが大事だと思っているんだ！！

0193デフォルトの名無しさん

NGNG

ぷろぐらむ

0194デフォルトの名無しさん

NGNG

ListViewの2行目を削除して
３行目以下を２行目以降に入れたいのですが
どうすればいいですか？

0195デフォルトの名無しさん

NGNG

プログラムってあれだろ？
猫にノミがついた時に猫に飲ませるやつだろ？

0196デフォルトの名無しさん

NGNG

プログラミングが出来るからと言って数学が出来るとは限らない。逆もまたしかり。

0197デフォルトの名無しさん

NGNG

自動車を運転できるからといって自動車のエンジンのメカニズムなどをしっているとは
限らないってのと同じだな。
パソコンを使うためにメモリやハードディスクの構造を知る必要もないし。

0198デフォルトの名無しさん

NGNG

>>194 ListView1.Items[1].Delete;

0199デフォルトの名無しさん

NGNG

DMonKeyためしに使ってみてるんだけどどうやってスクリプトを実行させるの？

if DMonkey1.Compile('println("hello,world");') then
DMonkey1.Run;

これやってもHello,Worldって表示されない

0200デフォルトの名無しさん

NGNG

標準出力を表示するコードがないからだろ。

0201デフォルトの名無しさん

NGNG

グラフィックイメージファイルにエフェクトを掛ける
コンポーネントありませんか？

0202デフォルトの名無しさん

NGNG

デルファイを使ってデルファイが作られたって意味不明。
じゃあ一番最初のデルファイはどこから来たのさ・・？

0203デフォルトの名無しさん

NGNG

想像だが、Delphi1（最初の版）は Delphi0.1（非売品）で作ったんじゃないか。
その Delphi0.1 は Borland C++ かアセンブラで作ったと思われる。
Delphi0.1 は Delphi1 を開発するためだけのもの。

0204デフォルトの名無しさん

NGNG

DelphiのIDEや周辺ツールがDelphi製。
じゃあ最初のIDEはテキストエディタだけで作ったんですか？

0205デフォルトの名無しさん

NGNG

元を辿れば機械語

0206デフォルトの名無しさん

NGNG

>>203
Delphi1はTurboPascal
TurboPascalの最初はアセンブラかハンドコンパイルとかじゃないの？

0207デフォルトの名無しさん

NGNG

MMTimerって、スレッドが別だからForm上のVCLを直接いじると破綻しますよね？
なので、精密さを要求するリアルタイム計算処理はMMTimerで行い、それ以外の画面表示はTTimerで行っています。

しかし、TTimerの精度が悪くて、他のスレッドの処理が重くなると簡単にブッ飛んでしまいます。
いい解決法はないものでしょうか･･･。

0208デフォルトの名無しさん

NGNG

ブッ飛ぶってイベントハンドラが呼ばれないってこと？
そうだとしたら Sleep(0) してないからじゃねーの？

0209デフォルトの名無しさん

NGNG

>>208
Timer内でやってるはずの表示が固まるので、呼ばれてないみたいです。

んで、sleep(0)とは？｡･ﾟ･(ﾉД`)･ﾟ･｡

0210デフォルトの名無しさん

NGNG

>>209

(Win32 ヘルプより要約)

(Sleep 引数に) 0を指定した場合､スレッドは､実行準備ができている同じ優先順位のほかのスレッドにタイムスライスの残りを譲ります。実行準備ができている同じ優先順位のスレッドがなければ､関数はすぐに戻り､スレッドは実行を続けます。
INFINITE値を指定すると､無制限に実行が中断されます。

ようするに他スレッドの処理ループの中で定期的に Sleep(0) を呼び出さないと
メインスレッドやその他のスレッドが実行されないままになっちゃう場合があるんだよ。

0211デフォルトの名無しさん

NGNG

>>207
というかMMTimerって具体的に何？
timeSetEventならただのコールバック関数なので破綻しない

0212デフォルトの名無しさん

NGNG

>>210
なるほど･･･！勉強になりました。試してみます。

>>211
VCLのライブラリで拾ってきたマルチメディアタイマーコンポーネントという奴で
「TMMTimer：マルチメディアタイマーをコンポーネント化したもの」らしいです。
（アクセス先はスレッドフリーでないとダメと説明書に書いてありました）

0213デフォルトの名無しさん

NGNG

どうでもいいことだけど今日はじめてAPIのヘルプの存在を知った。
これからプログラミングしやすそう。

0214デフォルトの名無しさん

NGNG

あの子垢抜けたね。

0215デフォルトの名無しさん

NGNG

ClientSocketとServerSocketについておしえてください。
クライアントの方でサーバーのIPとポート指定して繋がるところまでは出来たのです。
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject: Socket: TCustomWinSocket)
begin
　　処理１
end;
として処理１は繋がったときに実行されたのです。

しかし、それだけで、クライアントからタイマーで定期的に送信しようとすると、サーバーの
procedure TForm1.ServerSocket1ClientRead(Sender ～　　…（１）
は実行されないのです。

クライアントの方で
ClientSocket1.Socket.SendText('ほげほげ')　　・・・（２）
が実行されないのか、上の（１）のプロシージャが実行されないのかと言うところで詰まっています。
（２）の１行前の処理は実行されているのですが…。

原因と解決策があればおねがいいたします。

0216デフォルトの名無しさん

NGNG

>>215
メインフォームに TClientSocket と TServerSocket 貼り付けて
localhost で通信するようにしてみ。デバッグし易いと思うから。
コンパイラオプションの「デバッグ版DCU」にチェック付けて
VCL ソースにブレークポイント設定するとか、ステップ実行して
追ってくなりすればいいよ。

0217デフォルトの名無しさん

NGNG

>グラフィックイメージファイルにエフェクトを掛ける
>コンポーネントありませんか？

http://home1.infonia.ne.jp/~delphian/delphi/

0218デフォルトの名無しさん

NGNG

Delphiで作ったアプリケーションは
Windowsのタスクバーを右クリックしても
元のサイズに戻す、最小化、閉じるの３つの項目しかないんだけど
普通のアプリみたいに
最大化、移動、サイズ変更もできるようにするにはどうやるんですか？

0219デフォルトの名無しさん

NGNG

>>218
実は初心者じゃ無いでしょw

・GetSystemMenu(Application.Handle)に追加する
・ParentWindow = 0にしてForm1そのものをタスクバーに出す
・CLXを使う
など。

0220デフォルトの名無しさん

NGNG

例えば、IEを２つ起動して１つめのIEで画像を読み込んで、その画像をドラッグして
２つ目のIEにドロップすると２つ目のIEでもその画像が表示されますよね。
この１つ目のIEの代わりに、DelphiのTWebBrowserで同じことをしても、ドラッグ出来ないんですが、
これはどうすれば出来るようになりますか？

0221デフォルトの名無しさん

NGNG

>>216
ありがとうございました。
無事に原因を特定することができました。

0222デフォルトの名無しさん

NGNG

>>220
TWebBrowserを使わずにTEmbeddedWBを使う

0223デフォルトの名無しさん

NGNG

「Delphi 2.0J 32bitパワープログラミング」って、まだ書店で手に入りますか？
秋葉原の書泉とLaoxを探したのですが、無かったので。

0224デフォルトの名無しさん

NGNG

ヤフオク

0225デフォルトの名無しさん

NGNG

>>222
すいません、出来ればTWebBrowserで実現できれば文句ないんですが・・・
不可能でしょうか？

0226デフォルトの名無しさん

NGNG

数学に関するアルゴリズムの本で良い本はないでしょうか？

0227デフォルトの名無しさん

NGNG

>>226
君ものすごく広範囲な事いってるって気づいてる？

0228デフォルトの名無しさん

NGNG

高校の教科書

0229デフォルトの名無しさん

NGNG

>>226
公文式に通いなさい

0230デフォルトの名無しさん

NGNG

Delphi 6 Personalのライセンスキーの取得ができません。
なんだやの！
登録の最終確認のメールを送信しました。
きてない。
止まってるんですか？

0231デフォルトの名無しさん

NGNG

Delphiは購入してください。そうしないとボーランドがつぶれて
MS一極体制になってしまいます。

0232_

NGNG

http://homepage.mac.com/hiroyuki44/hankaku09.html

0233デフォルトの名無しさん

NGNG

D6でのビジュアルスタイル対応についてまとめてるところありませんか？
「対応を謳ったコンポを使う」じゃ満足できません。

0234デフォルトの名無しさん

NGNG

循環参照を避けるためにimplementation部分でUnit1を参照すると、
Interface部分では、Unit1で定義されているクラスのオブジェクトを宣言する時は、
TObjectとかで宣言しないといけないですよね。

そのオブジェクトを使う時にいちいちキャストするのが面倒なのですが、
これはどうしようもないんでしょうか。

0235デフォルトの名無しさん

NGNG

>>233
結果、同じものが出来るだけ。

0236デフォルトの名無しさん

NGNG

Delphiの限界が露呈しました。

0237デフォルトの名無しさん

NGNG

>>234
C系だと複数ファイルにまたがる型宣言は
１つのヘッダファイルにまとめるのが通例
typedef.unitを作ってそこにまとめるべし

0238デフォルトの名無しさん

NGNG

C厨ウザイ。

0239デフォルトの名無しさん

NGNG

>>238
Delphiでも同じ事するけどな。Windowsユニットなんて典型例だし。

0240_

NGNG

http://homepage.mac.com/hiroyuki44/

0241234

NGNG

>237

なるほど。そういう手を使うわけですか。
助言に感謝します。

0242238

NGNG

>>241
どうしたしまして。

0243デフォルトの名無しさん

NGNG

>>243
どうも。

0244デフォルトの名無しさん

NGNG

>>243
妙な再帰だな。

0245デフォルトの名無しさん

NGNG

>>245
へ？

0246デフォルトの名無しさん

NGNG

for レス := 1 to 1003 do

0247デフォルトの名無しさん

NGNG

>>230

アメリカのサイトに行って試してもるのも手です。
私も同じ症状になったのですが、あきらめてアメリカの
サイトから登録したらうまく行きました。

0248デフォルトの名無しさん

NGNG

>>234
循環参照になるのがおかしい。

0249デフォルトの名無しさん

NGNG

クラスってレコードと同じなの？

0250デフォルトの名無しさん

NGNG

ぜんぜん違う

0251デフォルトの名無しさん

NGNG

>>249

　　　　　　　　　　　　　　　　　　ヘ　ル　プ　読　め

0252デフォルトの名無しさん

NGNG

Delphiでゲーム作るにはどうしたらいいの？

0253デフォルトの名無しさん

NGNG

>>249
C#だと同じ

0254デフォルトの名無しさん

NGNG

>>252

　　　　　　　　　　　　　　　　　　ヘ　ル　プ　読　め

0255デフォルトの名無しさん

NGNG

デルファイやっておけばその知識は将来CとかJavaとかやるときも役に立つ？

0256デフォルトの名無しさん

NGNG

もちろん

0257デフォルトの名無しさん

NGNG

Delphiの本たけえ
３０００円とか４０００円とかする。
くだらねえＣＤＲＯＭ入れてねぇで本安くしろよクズ。
他の本は２０００円くらいでかえるのに。

0258デフォルトの名無しさん

NGNG

本なんか必要ない。

0259デフォルトの名無しさん

NGNG

Alt+F4キーを押してもアプリケーションが終了しないようにするにはどうしたらいいのでしょうか

0260デフォルトの名無しさん

NGNG

>>259
Alt　and　F4キーを無効にする
キーボードを無効にする
Alt＋F4に他のキーを割り当てる

0261デフォルトの名無しさん

NGNG

>>252
ゲームスレにいらっしゃい。
見本となるべきものはたくさんある。

0262デフォルトの名無しさん

NGNG

>>261
urlｷﾎﾞﾝ

0263デフォルトの名無しさん

NGNG

>>262
氏ねベカ

0264デフォルトの名無しさん

NGNG

>>255
Delphiスキル向上のためにはイヤでもCのソースを読むときがやってくるでしょう。

0265デフォルトの名無しさん

NGNG

つーかDelphiなんて覚えるだけ無駄。

0266デフォルトの名無しさん

NGNG

つーかこのスレなんて見るだけ無駄

0267デフォルトの名無しさん

NGNG

つーか馬鹿なんて息吸うだけ無駄

0268デフォルトの名無しさん

NGNG

デルファイでモンテカルロ法のやりかたおしえてください

0269デフォルトの名無しさん

NGNG

StringをCharに変換するにはどうしたらいいんですか。

0270デフォルトの名無しさん

NGNG

var
　s: String;
begin
　Char(s);

0271デフォルトの名無しさん

NGNG

>>261
どこ？

0272デフォルトの名無しさん

NGNG

>>262, >>271
ゲーム製作技術板
http://pc2.2ch.net/gamedev/
避難所
http://bbs.gamdev.org/gamedev/

0273デフォルトの名無しさん

NGNG

>>272
あいかわらずクソ板だな
Delスレもゲームの話はせずに初級FAQだけ
苦し紛れにそんなものを紹介するぐらいなら素直にあやまっとけ

0274デフォルトの名無しさん

NGNG

このスレが上級だからそう見えるだけだ

0275デフォルトの名無しさん

NGNG

Lunaスタイルの時に、メニューバーとツールバーは若干見た目が違うけど、
メニューバーの方を表現する方法を教えて欲しい。
ホットトラック（？）で反転色、角有りのやつ。

0276ひろゆき

NGNG

Delphi7を買えばVisual Styleに対応できるらしいと云いますです。。

0277デフォルトの名無しさん

NGNG

Form1(Unit1)とForm2(Unit2)を関連付けようと
usesで両方を付け加えたら
循環参照エラーになるんですがどうしたらいいでしょうか？

0278デフォルトの名無しさん

NGNG

片方をimplementationに

0279デフォルトの名無しさん

NGNG

自分でusesに追加するときはimplementationの下のusesを優先的に使うといい
と思い込んでる俺

0280デフォルトの名無しさん

NGNG

ボタンコンポーネントのOnClickイベントを
Enterキーでは発動しないようにするにはどうやったらいいのでしょうか？

0281デフォルトの名無しさん

NGNG

新規作成したフォームには、implementation部にusesがないので、
しばらく気がつかなかっ遠いた記憶有り。

var
　Form1: TForm1;

implementation

{$R *.dfm}

uses unit2;

procedure

0282デフォルトの名無しさん

NGNG

ライブラリ的なunitはinterfaceのusesに書けばいんじゃない？
出来るだけ循環参照をしないような作りを目指そう！

0283デフォルトの名無しさん

NGNG

ボタンコンポーネントのOnClickイベント
-----
if GetKeyState(VK_RETURN) >= 0 then Enterキーでは発動しない文;

0284デフォルトの名無しさん

NGNG

Delphi6 personal でインターネット通信したいのですけど Indy のページ
http://www.nevrona.com/Indy/download/index.html
でダウンロードが分かりません。
ファイルの落とし場所を教えてください。

0285デフォルトの名無しさん

NGNG

メインからスレッドを作って、並列で処理させてるとき、
メインフォームを閉じるときに、まず先に作ったスレッドを止めないとえらいことになりますよね？

こういうとき、たとえば、メインのonCloseから明示的に止めるとか解放するとかしないといけないのでしょうか？
それとも、Terminatedを逐一チェックして、終わったみたい → 自分もやめ、でいいんでしょうか？

0286デフォルトの名無しさん

NGNG

>>273
そこ紹介するのは、適切だと思うけど。
というか、むしろDelphi依存のゲーム話って何？
アルゴリズム的な話は、スレ違いだし、
DirectXなんかの話なら、スレに出てるし・・・？

実際にオレ、両方の板でレスつけてるんで、
>>262や>>271の人はきてもぜんぜんかまわんよ。

0287デフォルトの名無しさん

NGNG

ああ、スマンスマン。
もし、「クソ板だ」といいたいだけだったなら、流してくれ。

それにしても、ゲーム製作関係はよくクソにしたがるヤツが多くて困る。

0288デフォルトの名無しさん

NGNG

>>284
そのページの下のほうにあるべ。
聞く前に、よく読みましょう。

>>285
WaitForメソッドでスレッドが終わるまで待つことが出来ます。
ただし、スレッドから抜ける処理を行ってからWaitForしないと永久に終わらなく
なるので、確実にスレッドが終了するようにしましょう。

0289デフォルトの名無しさん

NGNG

ゲロゲロナビゲーツのやり方知りませんか

0290デフォルトの名無しさん

NGNG

>>284
ｲﾝｽｺの方法がわからんならそう家
じゃなければ
Indy9
http://www.nevrona.com/indy/downloads/Indy_9_00_14_src.zip
ついでにモナジラでもみとけ

>>286
*見本となるべきもの*が見あたらなかった

＞というか、むしろDelphi依存のゲーム話って何？
だから何故そんなスレを紹介するのかと問うている
ソースを晒して糞にもならない感想をもらうだけの場所にみえる
しかもDelphiですらないものまで散見される
避難所じゃないほうはシツコイ妨害で完全停止

とにかくゲ製作板がいいかげんな回答者のせいでQ&Aすら機能しなくなったことを自覚して欲しい
>>287みたいな逃げ口上ばかりでまるで同人ノウハウ板をみているようだ

0291デフォルトの名無しさん

NGNG

>>290
不満ならお前が率先すればいいだけだろ？
しかも、向こうで提案して来いクズ。
それすらも出来ないで、グチグチ言うなよ厨房。

0292デフォルトの名無しさん

NGNG

↓なにごともなかったように夏休みの宿題が終わった方から質問どうぞ！！

0293デフォルトの名無しさん

NGNG

↑indyの全部のコンポの使いかたを教えてください

0294デフォルトの名無しさん

NGNG

↑ダブルクリックするだけ
Delphiって素敵だな

0295デフォルトの名無しさん

NGNG

>>288
ｻﾝｸｽｰ
ただ、作ったスレッドはループしてるので、本体が存在するか？を毎回チェックしたほうが良さそうですね･･･。

0296デフォルトの名無しさん

NGNG

↑何が起こるか教えてください

0297デフォルトの名無しさん

NGNG

(´-`).｡ｏO(隔離病棟から患者がでてきちゃったなぁ)

0298デフォルトの名無しさん

NGNG

この時期、俺の巡回コースはどこもシーズンインザサンだ。

0299デフォルトの名無しさん

NGNG

>>290
リンクありがとうございます。
そこからファイルは落とせたのですが、Indyがうまくインストールできません。
http://members.jcom.home.ne.jp/monazilla/document/indysetup.htmlを参考に
しているのですけど、手順3.を実行すると
[致命的エラー] IdDsnBaseCmpEdt.pas(21): ファイル 'DesignIntf.dcu' が見つかりません
となります。
どうすればインストールできるでしょうか？

0300デフォルトの名無しさん

NGNG

>>299
とりあえずモナジラをみろ
話はそれからだ

0301デフォルトの名無しさん

NGNG

>>290
> >>287みたいな逃げ口上ばかりでまるで同人ノウハウ板をみているようだ
そっくりそのまま、あなたに返そう。
すくなくとも俺は、もりあげようとしている。

それであなたは、何をした？

0302デフォルトの名無しさん

NGNG

>>301
話をそらさずに*見本となるべきもの*きぼん

0303デフォルトの名無しさん

NGNG

TBitmapでHandleTypeがbmDIBでPixelFormatがpfDeviceの場合、
どっちを信用すればいいのでしょうか・・・。

0304デフォルトの名無しさん

NGNG

先日入門したばかりの者です。
　
いくつかのサイトを回って、定番の"Hello world"と電卓は何とか作れました。
少しずつスキルアップできればいいと思っているんですが、ネタが無くて行き詰まって
しまいました。
将来的にはゲームの１本でも作れればと思ってますが、現状ではとても無理なので、
小さいプログラムをいくつか作って経験を積みたいと思ってます。
　
そこで、先輩諸氏に「こんなプログラムを組めばスキルアップにつながる」といった
課題を提示してもらえればと思ってます。
よろしくおねがいします。

0305デフォルトの名無しさん

NGNG

>>304
ぶっちゃけ作る方法を覚えても、創造できる力が無ければ無意味

0306デフォルトの名無しさん

NGNG

>>305
日本語不自由なｳﾞｧｶ発見

Q.「こんなプログラムを組めばスキルアップにつながる」
A.「ぶっちゃけ作る方法覚えても、創造できる力が無ければ無意味」

電波電波～（藁

0307デフォルトの名無しさん

NGNG

体育大会のシーズンです。４ブロックに分かれて人文字パネルで
応援合戦をします。パソコンで人文字パネルの絵柄をシミュレートしてください。

○　例えば、横２５人、縦１５人が並んでスタンドに座っています。笛の合図で
　　パネルの色を変えます。色はパネルをめくって、１人で３色から４色変更します。
○　画面にマス目を表示して、マウスのクリックで一人一人の色を確定して、絵柄をつくり、
　　アニメーション効果で人文字がきちんと出来ているか確認できるようにする。
　　絵柄は最大５０枚登録出来るようにする。

○　完成したら、Ａ４の紙に色の変化のパターンを印刷する。

　　つまり、座席Ａ１番の人は　①赤→②赤→③青・・・・・というように
　　メンバー全員にむけて、一人一人パネルの後ろに貼り付けて確認できるようにする。

体育大会が９月１３日に予定されていますので出来れば８月第２週までに作ってください。

　　　
　　　　　　　　　　　　　　　　　緑ブロック人文字長　近藤さやか　

0308近藤さやか

NGNG

スタンドの並び方は

横　２０人から４０人、縦　１０人から２０人

最初、この範囲で選択できるようにしてください。

0309デフォルトの名無しさん

NGNG

さっさとこたえろくそやろう

0310_

NGNG

http://homepage.mac.com/hiroyuki44/hankaku08.html

0311デフォルトの名無しさん

NGNG

DelphiとJavaってどっちがすごいのですか？

0312デフォルトの名無しさん

NGNG

【速報!!!】田代まさし再々再（・∀・）ﾀｲｰｰｰｰｰｰｰｰｰｰｰｰｰｰﾎ！【神】
http://mbspro8.uic.to/user/9248.html

0313デフォルトの名無しさん

NGNG

>>304
http://bbs.gamdev.org/test/read.cgi?bbs=gamedev&key=1054282821
逝ってよし

0314デフォルトの名無しさん

NGNG

MDIアプリを作ろうとしています。
親フォーム自体が、別のフォームから作られた時、
子フォームが作成できません。
「有効なMDIフォームがありません」
というメッセージが出ます。

Form1のButton1Clickで
OyaForm := TOyaForm.create(self);
OyaForm.showmodal;

OyaFormのButton1Clickで
ChildForm := TChildForm.create(self);//ここで上記の例外が出る。
ChildForm.show;

Form1から呼び出せるMDIアプリケーションを作るにはどうすれば良いでしょうか？
（Form1とOyaFormは親子関係にはしていません）

0315デフォルトの名無しさん

NGNG

>>314
経験あり。Delphiの限界でした。

0316デフォルトの名無しさん

NGNG

>>314
VCLの限界なので、MDICLIENTウィンドウをCreateWindowしてガンバレ

0317314

NGNG

>>315
え？どうやってもできないんですか？

普通のフォームで親フォームクリックしたら、子フォームが非アクティブになるし、
親フォーム自体、統合ソフトのいち機能だから、独立したMDIアプリには出来ないし。

どなたかお助けあれ～。

0318316

NGNG

MDIってのは要するにウィンドウが入れ子になってるだけの状態。
それに、標準でMDICLIENTってウィンドウが、メニュー周りの世話をしてくれる。
VCLは、メインフォームがMDIの親になるのを前提とした設計なので、
自前でMDICLIENTをCreateWindowすればOK。
ParentWindowだのVisibleまわりで細工はいるかも知れんけど。
(最悪、メニューを自前で更新して子ウィンドウのアイコンや[X]ボタンも自力で書く根性があれば、
MDICLIENTすら使わずにMDIは実現できる)

0319デフォルトの名無しさん

NGNG

アダルト激安ＤＶＤショップ！１枚５００円～！

http://www.netdedvd.c-o.jp/

0320314

NGNG

>>316
>>318
レスありがとうございます。
あまりWindowsのAPIを直接使う事がないので、
ピンと来ませんが、なんとかやってみます。

0321デフォルトの名無しさん

NGNG

PARADOXテーブルのデータをDB DESKTOPで一括処理しようと思ったのですが、
SQLで小数点以下を切り捨て／切り上げ／四捨五入するにはどうしたらいいですか？

0322314

NGNG

>>318
CreateWindowで作った子フォーム（Window)に
コントロールをのせたり、OnClickに処理を書くには
やっぱりAPIを使う（かなり面倒な）事になるのでしょうか？

0323デフォルトの名無しさん

NGNG

>>321
ここはDelphiスレなわけで…コードを書けばなんとでもなるんだけど
データベースデスクトップでやらなければならない理由が知りたかったりもする

0324デフォルトの名無しさん

NGNG

Delphi7の新しい機能を盛り込んだ、おすすめの書籍を紹介して下さい。

0325デフォルトの名無しさん

NGNG

☆無修正画像＆サンプルムービーをどうぞ！！☆
http://yahooo.s2.x-beat.com/linkv/linkv.html

0326299

NGNG

>>300
見てもわかんないｯす
インストールできなくて辛いので、もうおしえてちょ

0327デフォルトの名無しさん

NGNG

日本の夏。厨房の夏。

0328デフォルトの名無しさん

NGNG

デルファイで赤ちゃんは作れますか？

0329デフォルトの名無しさん

NGNG

>>268
乱数ルーチンなら、ヘルプの
VCLリファレンス＞ルーチン一覧（カテゴリ別）＞乱数ルーチン
に載ってるよ

0330デフォルトの名無しさん

NGNG

Delなんていらねえよ、夏。

0331デフォルトの名無しさん

NGNG

>>290, >>300
Monazillaの情報はすでに古いものになっていたよ…

>>326
Indyインストール手順
・Sourceフォルダの.batファイル（Delphi6ならFulld6.bat）を実行
・コンポーネント＞パッケージのインストール＞追加＞フォルダの.bplファイル（Delphi6ならD6\dcIndy60.bpl）を開く
・OK

0332デフォルトの名無しさん

NGNG

ひとつ知恵を貸してください。

TStringGridってあるじゃないですか。
このグリッドを継承して使ってセルによっては数値を入れたり文字を入れたりするとします。
文字は左寄せ、数値は右寄せで表示するのはTStringGrid.DrawCellをオーバライドする事で実現出来たのですが、
入力時にも左右に寄せるのってどうするのでしょう？
入力用のテキストエディットボックスのTInplaceEditを継承してCreateParamsの設定でES_RIGHTとすると
入力時にも右寄せにはなるのですが全セルの入力で右寄せになってしまい、ありゃ？といった所です。

TInplaceEditも内部的にはCreateWindowExしているのでしょうから一度作ってしまうとwindowsのテキストエディットの制約で
文字位置の左右はもう変えられないと思いますが始めに幾つかのTInplaceEditを作っておいて切り替えるとすれば
どうすれば良いのでしょうか？

0333ないと

NGNG

質問です。
TEditコンポーネントを拡張して、
本文中にあるURL(http://ではじまる？)の色をかえ、
それをクリックした時にブラウザで開くという
コンポーネントを作るにはどうしたらよいのでしょうか？

Delphi6です。

0334デフォルトの名無しさん

NGNG

>>333
取りあえずTRichEditつかおうや。

0335ないと

NGNG

>>334
色をつけるのにTRichEditが必要だってことでしょうか？

0336デフォルトの名無しさん

NGNG

>>335
必要じゃないがお前程度の奴は
馬鹿でも色をつけられるTRichEditを
使っていればいいってこった。

0337ないと

NGNG

>>336
了解。（´･ω･｀）

0338デフォルトの名無しさん

NGNG

TComponent使え

0339デフォルトの名無しさん

NGNG

TMediaPlayerで簡易プレイヤーを作っています。

DeviceType := dtAutoSelect;
Open;
AutoRewind := True;
Play;
という流れで再生を開始して、OnNotifyイベントでPlayしています。

これで、数10秒のMPEG1ファイルをパネルコンポーネント上に連続再生できるのですが、
ウィンドウを最小化して再生すると、OnNotifyイベントのところで固まってしまいます。
何とかならないものでしょうか？

0340つーか

NGNG

>>333
「TEditコンポーネントを拡張して」と、「本文中にある」がよく分からん。

「本文」？一行にｽﾞﾗｰｰｰっと並んだ文字列からってこと？

0341デフォルトの名無しさん

NGNG

いろいろな言語を検討しているのですが、10人くらいで同時アクセス可能なC/Sデータベースシステムをﾃﾞｲﾙﾌｧｲで開発可能ですか？

0342デフォルトの名無しさん

NGNG

>>341
好きな答えを持ってけ↓
１．出来ます。
２．出来ません。

0343デフォルトの名無しさん

NGNG

>>341
同じものをPerlで組めるくらいの技術力があればできるんじゃない？
つーかなんで既存のDBシステムじゃだめなの？
クライアント作るだけならたいした技術いらないよ？

0344デフォルトの名無しさん

NGNG

>>341
100人くらいならDelphi＋Firebirdでいけるべ

0345デフォルトの名無しさん

NGNG

hoge : array [0..n] of Tbitmap

でビットマップの配列を作ってから実体を代入したとき、hoge.freeで全部消えますか？
それとも、for文でn回それぞれ hoge[i].free しないといけませんか？

0346デフォルトの名無しさん

NGNG

＞hoge.free
単なる配列はオブジェクトではない。そんなことできませんよ。

＞for文でn回それぞれ hoge[i].free しないといけませんか？
限りになく正解に近い。

0347デフォルトの名無しさん

NGNG

ｱ､ﾔﾊﾟｰﾘ(;´Д｀)ｻﾝｸｽ!

0348デフォルトの名無しさん

NGNG

「n+1回だろ」と突っ込んでおく

0349299

NGNG

>>331
インストールできてコンポーネントパレットに追加できました。
ありがとうございました。

ところで、TNMHttpが見当たらないのですが、TNMHttpは初めから含まれていないのでしょうか？

0350デフォルトの名無しさん

NGNG

http://otori12.tripod.co.jp/jane2ch.src.zip

ソースの説明
最新Viewベース
でも2-293さんのソースを使ったり
いろんな人のソースを参考にしました

GexpertsのTo Do ListにConfigerを追加することで何処を改造したかわかる
嫌ならConfigerで検索

調整してないので非doeには多分未対応

0351デフォルトの名無しさん

NGNG

>>350
思いっきり誤爆した
ｽﾏﾝ

0352デフォルトの名無しさん

NGNG

Delphiの検定試験あるよ
http://psc.borland.co.jp/training/bpcindex.html

0353339

NGNG

一歩だけ前進しました。

Playメソッド完了後のOnNotifyイベントで、何も考えずに再度Playメソッドを
呼んでいたのを

if NotifyValue = nvSuccessful //直前のPlayメソッドが正常終了なら
Play;

としてやることで、ウィンドウを最小化しても、Play完了後のOnNotifyで
固まらなくなりました。

ちなみに、固まる時のNotifyValueの値はnvAborted(ユーザーによって
コマンドが強制終了された)になっていました。
ウィンドウを最小化したことが原因なのでしょうが、
どうしてそれが強制終了にあたるのかはちょっと分かりません。

そのため、依然として強制終了でOnNotifyが呼ばれることがあり、
その時は固まりはしないのですが、タスクバー内のタイトルバーが
ブリンク状態になってしまいます。

ウィンドウの最小化がPlayの強制終了を引き起こさなければ、
解決できると思うのですが、何か解決策はありませんか？

0354デフォルトの名無しさん

NGNG

>>332
http://www.borland.co.jp/tips/delphi/dh011/sgrid_4.html

0355デフォルトの名無しさん

NGNG

こんにちは。Del6Personalを使い始めた者ですが、

以下の内容のCSVファイルがあるとき､

"1","トマト","野菜","6"
"2","きゅうり","野菜","100"
"3","バナナ","果物","33"
...

先頭にタイトルを入れて
"ID","商品","種別","在庫数"
"1","トマト","野菜","6"
"2","きゅうり","野菜","100"
"3","バナナ","果物","33"
...

というものを作成して別ファイル名で保存したいのですが､
どうしたらよいでしょうか｡
｢ファイルを開く｣ところまではWEB上などを調査して何とか
行き着いたのです｡
どなたか方法をご存知の方､お願いします｡

0356デフォルトの名無しさん

NGNG

Addというメソッドをヘルプで検索

0357デフォルトの名無しさん

NGNG

StringGridのスクロールバーの幅のサイズを変更するにはどうすれば良いですか？

0358デフォルトの名無しさん

NGNG

さすがDel厨。馬鹿だな。

0359デフォルトの名無しさん

NGNG

>>355
TStringList.Insertとか

var hoge: TStringList;
begin
hoge := TStringList.Create;
hoge.LoadFromFile('hoge.csv');
hoge.Insert(0, '"ID","商品","種別","在庫数"');
hoge.SaveToFile('newhoge.csv');
hoge.Free;
end;

0360デフォルトの名無しさん

NGNG

動的に作成したコントロールの描画順位（前面、背面）を変更したいのですが、
どうすれば良いでしょうか？

0361_

NGNG

http://homepage.mac.com/hiroyuki44/

0362デフォルトの名無しさん

NGNG

>>360
BringToFront / SendToBack あたり

0363デフォルトの名無しさん

NGNG

アダルトDVDが
　最短でご注文いただいた翌日にお届け！
　http://www.dvd-exp.com　開店セール1枚　500円より

0364デフォルトの名無しさん

NGNG

>>357
Delphi-ML:65498からのスレッドに書いてある

0365デフォルトの名無しさん

NGNG

あるダイアログ内にあるテキスト型オブジェクトで利用しているフォント名を
取得するにはどうすればよいのでしょうか？
よろしくお願いします。

0366デフォルトの名無しさん

NGNG

ダイアログ.テキスト型オブジェクト.Font.Name

0367デフォルトの名無しさん

NGNG

昨日からDelphi始めてみました。
タイプすると音が出るメモ帳作っています。
音はとりあえずしっかり出るのですが、日本語入力ONにするとだめなようです。
日本語入力ONにしたときのKeyの取得方法はどうしたらいいのでしょうか。

現在の仕様
エディタのOnKeyPressイベントから飛ばして、
if Key = chr(VK_RETURN) then
begin
Mediaplayer1.Rewind;
Mediaplayer1.Play;
end
else
begin
Mediaplayer2.Rewind;
Mediaplayer2.Play;
end;

てな感じになってます。
Enterキーとその他のキーで鳴る音を分けています。
わかる方ご教授お願いします。

0368デフォルトの名無しさん

NGNG

>>367
無理と言っておこう。
IME上で未確定の間は、アプリケーションではなく
IMEのプロセスにキーボードメッセージを横取りされている状態なので。
アプリケーション上で如何なるイベントを処理をしようともIME上の入力を感知することはできない。

ちなみにOnKeyPressはIMEの入力を確定した時点で発生する。

例外としてフックなどのAPIを使用すればIMEの入力メッセージを
さらに横取りして擬似的にイベントを発生させることもできるが、
APIの知識がないと極めて危険な技。

0369デフォルトの名無しさん

NGNG

何で無理やねんｗ
しかもフック無用

0370デフォルトの名無しさん

NGNG

>>368
レスありがとうございます。
IMEから奪わないといけないんですね

APIが使いにくいと思い、でもDelphiならAPI使わなくても
それなりに作れそうだと思って始めたのですが、
いきなりひっかかってしまいましたか
やはりWinで何か作ろうと思ったらAPIの知識が必要になってきますね…

とりあえず、他の物いろいろ作って修行してまいります

0371デフォルトの名無しさん

NGNG

Delphiの限界が垣間見えました

0372デフォルトの名無しさん

NGNG

初心者スレに貼り付いてる粘着。

0373デフォルトの名無しさん

NGNG

Delphiで3Dグラフィックスを表示させたいのですが
OpenGLやDirectXを使えるようにするにはどうすればよいでしょうか
チュートリアル的なサイトを教えていただければ幸いです

ゲ製作をみてQuadrupleD3.00というものを使ってみましたが
不具合が多くドキュメントに不備がありコミュニティが停止状態なので
使い物にならないと判断しました
DelphiXも同じような理由ではずしました

サンプルやドキュメントに不具合が少なくDelphi6Personalで使いやすいものは何かありませんか？
ドキュメント類は日本語か英語でお願いします
ロシア語でいいサイトをみつけたのですがソースが化けてしまって（それ以前に読めませんが）修正が大変だったので（ＴＴ

0374デフォルトの名無しさん

NGNG

>>373
DirectX SDK落とせばCとVBでサンプルソースがあるから、それ見てこつこつと
やってくしかない。あとヘルプも同梱されてるから一緒に見てね。

0375デフォルトの名無しさん

NGNG

>>373
JEDI DirectX9 Headers
http://www.crazyentertainment.net/

VC++とかのサンプルそのまま写して使えるよ
もちろんDelphiの作法が必要なところは適宜脳内変換しなきゃならないけど
（ウィンドウ・メッセージループ→TForm・Application.OnIdle）

0376デフォルトの名無しさん

NGNG

書き忘れた。
DirectXのDelphi用pasファイルは、
http://www.delphi-jedi.org/
にあるから落としてね。

0377デフォルトの名無しさん

NGNG

>>374-376
即レスありがとうございます
VC++のやり方がほぼそのまま使えるということで助かります
ライセンスもMPLということで扱い易いです

贅沢いうのもなんですがチュートリアルかサンプルはないでしょうか
VCからのコンバート中なんですがもし先人がやっていれば楽したいなと思いまして
とりあえずコンパイルできるところまでいくのに時間かかりそうなものですいません

0378デフォルトの名無しさん

NGNG

>>377
だからVCとかのチュートリアルそのまま写すだけだって・・・
ウィンドウはFormが勝手に作ってくれるんだから後は簡単でしょ？
>>375にヒントは書いたんだし

ちなみにあまりに簡単なことなので誰も今更Webで説明したりはしないと思うよ

0379デフォルトの名無しさん

NGNG

>>367, >>368
WM_PROCESSKEY を使ってごらん

0380デフォルトの名無しさん

NGNG

>>377
VCLでの作法が分からなければ、SDKのようにAPIで組めばいい。
とりあえず、概念を理解するまでサンプル組んでみろ

0381デフォルトの名無しさん

NGNG

>>377
サンプルはロシアにあるじゃん

0382デフォルトの名無しさん

NGNG

>>367
Application.OnMessage で VK_PROCESSKEY をつかまえて
ImmGetVirtualKey API を使い仮想キーコードを取得する。

0383デフォルトの名無しさん

NGNG

どうした？>> 382

0384デフォルトの名無しさん

NGNG

>>364βακα..._〆(ﾟ▽ﾟ*)

0385355

NGNG

>>356 >>359
どうもありがとうございました｡
この方法(を少しアレンジして)で､うまくいきました｡
今後ともよろ

0386デフォルトの名無しさん

NGNG

TCustomListBox.TopIndexがイマイチよくわかりません。
ヘルプの例を実行したのですけど、項目が入れ替わらないのですけど、どうして
なのでしょうか？

Delphi6のヘルプの例

以下の例では，リストボックス，ボタン，編集ボックスを使用します。
アプリケーションを実行してボタンをクリックすると，リスト内の 3 番目
の項目が最初の項目になり，その項目のインデックス値が編集ボックスに
表示されます。この場合，インデックス値は 2 になります（最初の項目の
インデックス値は 0）。

procedure TForm1.FormCreate(Sender: TObject);

var
Number: Integer;
begin
for Number := 1 to 20 do
ListBox1.Items.Add('Item ' + IntToStr(Number));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.TopIndex := 2;
Edit1.Text := IntToStr(ListBox1.TopIndex);
end;

0387デフォルトの名無しさん

NGNG

> 項目が入れ替わらないのですけど

(必要なら)スクロールして、一番上に表示されるだけだよ。

0388デフォルトの名無しさん

NGNG

項目を入れ替えるプログラムに見えないような気がする

0389デフォルトの名無しさん

NGNG

Windowsのゴミ箱にファイルを捨てるプログラムを作成したいのですが、どのようにプログラムしたら良いのでしょうか？
（http://www.borland.co.jp/qanda/delphi/d0009408.html）
を実行するとKernelの読み込み違反が起きるのですが、
何か間違っているのでしょうか？

0390デフォルトの名無しさん

NGNG

>>389
　ま　た　コ　ン　ポ　ー　ネ　ン　ト　か

　という様な、突っ込み来そうだけど
http://www.japan-net.ne.jp/~fermion/ これ使ってみれば？

0391デフォルトの名無しさん

NGNG

delphi api specialfolder path
delphi file move

0392デフォルトの名無しさん

NGNG

>>387
実行して意味がわかりました。
スクロールの表示位置でした。

0393デフォルトの名無しさん

NGNG

TImageコンポーネントに表示した画像をグレースケールに変換する
方法を教えて頂けませんでしょうか？

0394デルφ

NGNG

でるふぃって読むのですか？

0395デフォルトの名無しさん

NGNG

>>393
http://www.google.co.jp/search?num=20&hl=ja&lr=lang_ja&q=%83O%83%8C%81%5B%83X%83P%81%5B%83%8B+Delphi

0396デフォルトの名無しさん

NGNG

φって変換できてるのにね

0397デフォルトの名無しさん

NGNG

>>390
Thanks
いまからやってみます

0398デフォルトの名無しさん

NGNG

最小化不可にしているんだけど、
QuickLaunchに入っているデスクトップ（ToggleDesktop）に最小化されてしまう。
そもそもコレはどんな動作して最小化にやってくるのか、
どうやって妨げてやろうか、APIで利用できないものか、
教えてもらえたら大人になれるんだがな。

0399デフォルトの名無しさん

NGNG

>>398
メッセージ処理を覚えると吉と言ってみる。

0400デフォルトの名無しさん

NGNG

>>395
解決しますた

0401398

NGNG

速いな。
メーセージ処理どころか、フックまでして妨害してるがことごとく失敗。

0402デフォルトの名無しさん

NGNG

>>401
強敵と戦っているんですね。がんばってくださいね。

0403398

NGNG

大人になるための戦いだからな。
おまえもがんばれよ。

0404デフォルトの名無しさん

NGNG

＞不具合が多くドキュメントに不備がありコミュニティが停止状態なので
＞使い物にならないと判断しました
＞DelphiXも同じような理由ではずしました
自分で作れもしないくせに、偉い言われようだなぁ…。

0405デフォルトの名無しさん

NGNG

だなぁ。
ミニゲーム程度なら簡単に作れるだろうに。

＞とりあえずコンパイルできるところまでいくのに時間かかりそうなものですいません
とか言ってる人には無理だろうけど…。

0406デフォルトの名無しさん

NGNG

>>398
>最小化不可にしているんだけど、
>QuickLaunchに入っているデスクトップ（ToggleDesktop）に最小化されてしまう。

システム解析の定石として最小化されないアプリケーションが実在するかどうかを
調べてみては？

0407デフォルトの名無しさん

NGNG

> QuickLaunchに入っているデスクトップ（ToggleDesktop）に最小化されてしまう。
これってどういう意味なの？

QuickLaunchのデスクトップって、デスクトップにあるアイコンを表示しているだけだと思うけど。

0408デフォルトの名無しさん

NGNG

>>407
だから「デスクトップにあるアイコンを表示しているだけ」を抑制したいんだろ？

0409デフォルトの名無しさん

NGNG

PCJapanをみてきました
DelphiでつくられたNASAの科学技術情報システムってどんなものですか？

0410デフォルトの名無しさん

NGNG

IndyのIdHTTPServerのgetやpostのイベントハンドラはマルチスレッドで動いてるんだろうか。
それとも、イベントハンドラが複数動作するので、シングルスレッドで問題無いわけかな。
詳しい方教えて下さい。

0411デフォルトの名無しさん

NGNG

マウスのプロパティで設定されている
ホイールのスクロール量を取得する方法を教えて頂けませんでしょうか？

0412デフォルトの名無しさん

NGNG

☆★　新商品　ゾク・ゾク　入荷！！　急げ～！！　☆★☆
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★　送料激安！　　スピード発送！　　商品豊富！　　　
★☆　　　　　　http://www.get-dvd.com　　　　　　　　
☆★　激安ＤＶＤショップ　「ＧＥＴＤＶＤドットコム」　
★☆　　　　　　http://www.get-dvd.com　　　　　　　　
☆★　今すぐアクセス　Ｌｅｔ’ｓ　Ｇｏ！　　　急げ！　
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

0413398

NGNG

普通のアプリはToggleDesktopで最小化から復帰するときアニメーションが起こる。
HCBT_MINMAXをブロックしちゃったアプリはこのアニメーションがないようだ。
WS_VISIBLEを含み、WS_MINIMIZEDを含まないのに見えない状態だ。
タスクバーを右クリックしたら、メニューと同時にフォームが表示された。

以上のような状況から、最小化できないフォームは、
デスクトップWindowの背面に持っていかれてるような挙動を予想し、
SWP_TOPMOSTを使ってみた。
ついにやったぞ、初勝利だ。

これで次の目標は、任意のフォームをデスクトップWindowの後ろに持っていくことになった。

0414デフォルトの名無しさん

NGNG

>>410
タスクマネージャ見て調べてください。

プロセスタブを表示して、
メニューから「表示→列の選択→スレッドの数」にチェックを入れる

0415デフォルトの名無しさん

NGNG

>>411
Controls.Mouse.WheelScrollLines

0416デフォルトの名無しさん

NGNG

>>415
どうもありが㌧

0417デフォルトの名無しさん

NGNG

>>410
IndyのIdHTTPServer はマルチスレッドで動いています。
OnCommandGet イベントなどは第一引数に、そのセッションに関連付けられたスレッドの
ID を持ちます。必要であればこれを使ってセッションを分離することができます。

0418デフォルトの名無しさん

NGNG

>>409
>PCJapanをみてきました
>DelphiでつくられたNASAの科学技術情報

http://www.borland.co.jp/delphi/cases/dh004.html
これか？だいぶ古い記事だけど

最新の情報は見つけられないけど、BorCon カンファレンスで NASA の人が
公演しているからまだいろいろやっているみたい。

PCJapan でどうかかれていたのだろうか。

0419410

NGNG

thanx!>>417

OnCommandGetを追ってみたら、
>function TIdHTTPServer.DoExecute(AThread: TIdPeerThread): boolean;
って感じで素直にスレッドになってますね。

スレッドIDでセッションを分離、、、何か出来るわけですね。
（セッションを分離すると何が良いのか知りたいです）

0420デフォルトの名無しさん

NGNG

アメリカではNASAだけじゃなくて、いろいろな研究機関で使用されているよ

0421デフォルトの名無しさん

NGNG

>>414
ヴァカ丸だし全開ですね！（ﾜﾝﾀﾞﾌﾙｹﾞﾗ

0422410

NGNG

再び初心者質問ですが、
TIdHTTPServerで、getメソッドのパラメタに改行コードが入ってるとパラメタのパースに失敗します。
入れちゃ駄目なのかな。どうしよう。

0423410

NGNG

ファイルからの読み込みデータのパース失敗なので、EOFコードが入ってるかも。
EOFコードが終端を意味するのかな？

0424デフォルトの名無しさん

NGNG

TPanelを含めて、TPanelに乗っている全てのコントロールを
半透明にする事は出来ますか？

0425デフォルトの名無しさん

NGNG

Delphiのクラスか関数で、エスケープ文字を使った文字列変換ありますか？

0426デフォルトの名無しさん

NGNG

TPanelの載っているフォームを半透明にすれば、TPanelを含めて、TPanelに乗っている全てのコントロールを半透明にする事はできる

0427デフォルトの名無しさん

NGNG

>>422-423
getメソッドのパラメーターって何？
パースに失敗するってどの様に？
ファイルからの読込みってどのファイル？

質問内容が理解できません

0428424

NGNG

>>426
レスありがとうございます。
フォーム全体ではなくPanelのみを半透明にしたいのです。

0429デフォルトの名無しさん

NGNG

StringGridでセルがクリックされた時に色を付けたいのですが、
どうすれば出来ますか？

0430デフォルトの名無しさん

NGNG

SetLayeredWindowAttributesを使った方法では、
現状ではコントロールを半透明にするのは無理。

0431デフォルトの名無しさん

NGNG

Delphiの限界が垣間見えました

0432デフォルトの名無しさん

NGNG

>>429
http://www.google.co.jp/search?q=cache:bcxOjtnkf_kJ:www.users.gr.jp/ml/archive/delphi/38532.asp+StringGrid+Drawcell+Brush&hl=ja&lr=lang_ja&ie=UTF-8

0433デフォルトの名無しさん

NGNG

半透明にしたタイトルバーなしフォームをフォームに貼り付けろ

0434_

NGNG

http://homepage.mac.com/hiroyuki44/

0435410

NGNG

>getメソッドのパラメーターって何？

server側の?A=A&B=...という感じのパラメタです。

>パースに失敗するってどの様に？

server側のRequestInfo->Params->Textが空になります。

で、HTTPEncodeすると、何とか動作するようになりました。
HTTPEncode時に、「=」もエンコードすべきなのか、対象外にするのか、仕様はどうなんでしょ...
ググルとかでは、「=」はそのまま見えてますが、HTTPEncodeすると「%3」になりますね。

0436410

NGNG

分かりました。
「&」なんかは、特殊な意味があるので、ASCIIではないのに、特別にエンコードしないことが許されてるみたいですね。

で、次に分からないのですが、IdHTTPServerで関係無いHTTPパスを指定された場合、「204 - No Content」エラーとすべきか、処理せずに次のアプリケーションサーバに制御を渡す（出来なさそう）のか...

0437デフォルトの名無しさん

NGNG

クイックレポートをDelphi7に入れたいのですが、どこかに落ちていませんか？

0438デフォルトの名無しさん

NGNG

巨乳美女、女子校生のモロ見え画像満載！！
無料画像で観れるよ
アクセスして損はなし！！
http://www.cappuchinko.com/

0439デフォルトの名無しさん

NGNG

Win32MajorVersionやWin32MinorVersionといった変数があるなら、HELPに載せておいてよ。
Professionalなら載っているかもしれないけどさ。
Personalだと、他にも使えるのにHELPに載っていない変数や関数があるのかな？

0440デフォルトの名無しさん

NGNG

作ったゲームを画面全体(タイトルの入ったバー？も無しで)に表示するにはどうすればいいですか？

0441デフォルトの名無しさん

NGNG

BorderStyle := bsNone;
BoundsRect := Rect(0, 0, Screen.Width, Screen.Height);

0442デフォルトの名無しさん

NGNG

>>441
どこに貼り付ければいいんですか？
自分なりに考えてやってみましたが、エラーが起きまくりです。

0443デフォルトの名無しさん

NGNG

Drag and Drop について質問

TListBox や TTreeView, TListView 等のコンテナの中にアイテムがあるような
コントロールのアイテムをドラッグした時にそのドラッグしているアイテムを
確定する方法で悩んでいます。例えば、TTreeView のアイテムをドラッグすると、
DragOver が発生しますがパラメータに入ってくる Source は常にその
コンテナコントロールで、アイテム自体ではないようです

じゃぁ、Selected を見ればいいんじゃないか？と、思いましたが複数選択した場合
どうしたものか…う～ん、みなさんはどうやってますか？

あと、DropTarget なるプロパティがありますが、これはドラッグアンドドロップ
操作が終了した時点で設定されるものですか？

0444デフォルトの名無しさん

NGNG

複数選択されてたって、ListBoxのSelectedはインデックスで項目ごとの選択状態調べられるし、
ListViewはListItemの、TreeViewはTreeNodeのSelectedを調べればいいだろ。

0445デフォルトの名無しさん

NGNG

質問したいことあるんですが、ここで解答している人って乱暴な言葉使いしかできないんですか？
それとも、ここは隔離スレですか？

0446デフォルトの名無しさん

NGNG

気にする奴は質問すんなﾊｹﾞ

0447デフォルトの名無しさん

NGNG

夏まっさかり

0448デフォルトの名無しさん

NGNG

ﾅｲｰﾌﾞなお子ちゃまがいらっしゃるようでつな。

0449443

NGNG

要はドラッグしているアイテムを特定する方法に Selected 以外に
ありますか？あるとしたら、どの様な方法でしょう？

あと、ドラッグアンドドロップのロジックを組んだことある人は、
やはり Selected を見て、ドラッグアイテムを特定していますか？

上記、２点の方法でそれぞれメリット、デメリットとか「こんな不具合があり得る」
みたいな事教えて頂けるとありがたいです

0450デフォルトの名無しさん

NGNG

Selectedを見てる。それ以外は知らない。

0451デフォルトの名無しさん

NGNG

コンボボックスの質問です。
知ってる人いたら原因教えてください。

TInputComboBox = class(TComboBox)
private
{ Private 宣言 }
protected
{ Protected 宣言 }
procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
public
{ Public 宣言 }
published
{ Published 宣言 }
end;

procedure TInputComboBox.WMSetFocus(var Message: TWMSetFocus);
begin
showmessage('setfocus');
end;

こんな継承クラスを作ってフォームに貼り付けたとします。
tabでフォーカスを移していった時にはダイアログが出ますがクリックした時に出ないのは
当たり前ですか？フォーカス移ってるんだから出てほし～なと思うのですけども。

0452デフォルトの名無しさん

NGNG

>>451
WM_SETFOCUS のヘルプ読んでみ？
キーボードって書いてあるが

> WM_SETFOCUSメッセージは､ウィンドウがキーボードフォーカスを受け取った後に送られます。

0453デフォルトの名無しさん

NGNG

スタイルによるけど、コンボボックスは中にエディット持ってるから、
クリックしたときはそっちに直接フォーカスが移ってるんだろ。

例えばcsDropDownListとかにすれば、エディット持たないから
クリックでもメッセージが出る。

0454451

NGNG

452さん、453さんありがとです。

ちょっとテストをしてみました。
同じようなものをTEditで作成して検証です。
マウスクリックの場合でもTEditベースだとダイアログが出ました。
（そしてフォーカスの奪いあいで止まらなくなる）
WM_SETFOCUSはフォーカスが移ればメッセージは投げられているっぽいです。
ごめんなさい＞452さｂ

453さん説で内部的にどうなってるのか確かめてみます。
ヒントありがとでした。

0455デフォルトの名無しさん

NGNG

>>437
http://www.qusoft.com/
http://homepage1.nifty.com/MADIA/delphi/delphi_bbs/200306_03060019.html

0456デフォルトの名無しさん

NGNG

質問なのですが、
別のアプリケーションのボタンをクリックしたいのですが、
どのようにすればよいでしょうか。

0457デフォルトの名無しさん

NGNG

>>442
どんなエラーが出たか書いてみよう

0458デフォルトの名無しさん

NGNG

>>442
アプリケーションの新規作成でなにもないフォームにボタン一個置いて、
そこのクリックイベントに>>441の２行書き、
実行して、ボタンクリックしたら
>>440の思惑通りになりませんか？

0459デフォルトの名無しさん

NGNG

>>456
mouse_eventとか
SendMessage(ボタンのハンドル, BM_CLICK, 0, 0);

0460デフォルトの名無しさん

NGNG

>>456
「他のアプリケーションのハンドルを得る方法」は分かりますか？
それさえ分かれば後はなんなりと。

0461デフォルトの名無しさん

NGNG

>>460
ウィンドウクラス名か、ウィンドウのタイトルでFindWindowする。
ウィンドウクラス名は、Spy++とかで調べられる。

0462４６０

NGNG

>>461
えっと…。オレに教えてくれても…（藁

0463456

NGNG

>>460
電卓を開いて、ソレを最小化
というのは下記サンプルが見つかったのですが、
それの中にあるボタンなどを特定がわからないです

var
hCalc: HWND; {ハンドル}
begin
hCalc:=FindWindow(nil,'電卓'); {電卓のハンドルを取得}
SendMessage(hCalc,WM_SYSCOMMAND,SC_MINIMIZE,0); {最小化}
end;

>>459
さんでいうところの、「ボタンのハンドル」を知る方法が分からない状態です

>>461
spy++というのが、ボタンのハンドル取得方法ということでしょうか？

0464456

NGNG

すみません
>>463
でのサンプルページに、ボタンのハンドル取得のサンプルもまんま表示されていました。
大変失礼いたしました。アドバイス、ありがとうございました
（456書いてたときは、FindWindowすら知らなかったです）

0465デフォルトの名無しさん

NGNG

>>463
勝手に人のアプリを自動制御されたら困る。君は困ることにならんか？

自分で作ったアプリを自分で制御するならどうにでもなるだろ。

0466デフォルトの名無しさん

NGNG

子のハンドルを探す。

0467456

NGNG

>>465
えーと、具体的にしたい作業は
「あるソフトのエディタ欄に文字を入力」
「登録ボタン」クリック
「次の文字を入力」「登録」・・・
という手作業を自動化できるかなと思いまして。

0468デフォルトの名無しさん

NGNG

>>467
Windows3.1には標準でそういうツールが付いてきたんだけどな。（単なるマウスKBの記録再生だけど）
スクリなんとかっていうソフトもあったけど、もう出ていないみたいだな。
参考になりそうなAPI
FindWindow() mouse_event() keybd_event() IsWindowEnabled() IsWindow()
GetActiveWindow() GetWindowText() GetGUIThreadInfo() SendInput()

0469山崎渉

NGNG

（＾＾）

0470デフォルトの名無しさん

NGNG

>>467
http://www.vector.co.jp/soft/win95/util/se109671.html

こういうソフトのほうがいいでない？

0471デフォルトの名無しさん

NGNG

>>470
ロケットマウスか？
と、思ったら違った…。

0472デフォルトの名無しさん

NGNG

えーっと、質問です。
NKF32.DLLを使って文字コード変換するときに、
はじめの文字が英語だったらうまく変換できないとかは、
どうしたらうまくいくようになるのでしょうか？

0473デフォルトの名無しさん

NGNG

>>472
それは nkf32.dll の問題ではないかな？

0474デフォルトの名無しさん

NGNG

ま、くだすれだし。

nkf32 の NkfConvert の第一引数に S とか E とかを指定して、入力ファイルのエンコーディングを
明示指定してあげれば良いかと。

ところで、nkf DLL と、その Pascal インターフェースソースは複数の人が作っているんだけど
それぞれ誰のを使っているの？

0475472

NGNG

えっと、こんな感じでやってます。

SetNkfOption('-s');
Memo.Text:=NkfConvert(Memo.Text);

うーん、誰のでしょう??

0476デフォルトの名無しさん

NGNG

知るかよ

0477デフォルトの名無しさん

NGNG

この帽子、ドイツんだ？？

0478440

NGNG

>>458
出来ました。ありがとうございます。
ボタン無しでゲーム起動から終了まで、表示することは出来ませんか？

0479デフォルトの名無しさん

NGNG

オブジェクトインスペクタにBorderStyle欄があろうに。

つーか、ボタンがイヤならFormCreateに書けよ。

0480デフォルトの名無しさん

NGNG

>>478
おまえは、聞く前に調べろ

0481デフォルトの名無しさん

NGNG

解答者の質悪ッ

人間的に駄目な奴ばっかり（藁

0482デフォルトの名無しさん

NGNG

（　´,_ゝ`）ﾌﾟｯ

0483440

NGNG

>>479
オブジェクトインスペクタのBorderStyleは分かるのですが、

BoundsRect := Rect(0, 0, Screen.Width, Screen.Height);

の部分が分かりません。FormCreateも良く分かりません。

0484デフォルトの名無しさん

NGNG

modとdivって何の略?

0485デフォルトの名無しさん

NGNG

moduloとdivisionだと思う

0486デフォルトの名無しさん

NGNG

【徹底的】プログラマーが語るviとemacs 4【ﾊﾞﾄﾙ】
http://pc.2ch.net/test/read.cgi/prog/1059814696/

0487デフォルトの名無しさん

NGNG

>>483
分からない単語は検索するなりして分かるように努力すれば？

0488440

NGNG

もうわかったから。役立たず君。

0489デフォルトの名無しさん

NGNG

http://www.jttk.zaq.ne.jp/akiroom846/

0490デフォルトの名無しさん

NGNG

TWebBrowserってGIFの特許問題に引っかかったりするの？

0491デフォルトの名無しさん

NGNG

>>490
MicrosoftはIEコンポーネントを使うならば問題無いと言っていた。
Unisisはコンポーネントを組み込んだアプリ毎に使用料を払えと言っていた。
どっちにしろもうじき特許の有効期限が切れるからキニスンナ

0492デフォルトの名無しさん

NGNG

Unisys はドキュソって事でＦＡ

0493デフォルトの名無しさん

NGNG

TProgressBar の中に反転色で文字列を描画したいのですが、
どうしたら一番スマートでしょうか？
文字列には、例えば作業進行度などを「～％」のような形で
表示したいと考えています。

0494デフォルトの名無しさん

NGNG

>>493
TProgressBarにTLabelを乗せれば良いだけかと。
Label1:=TLabel.Create(ProgressBar1);
Label1.parent:=ProgressBar1;
TLabel.Transparent:=true;
TProgressBarを継承してSetPosition辺りをoverrrideしてパーセンテージと
進行度が常に一致するようコンポーネントを作ると良いのではないかと思われる。

0495デフォルトの名無しさん

NGNG

それだけでは反転色にはならないだろう。

0496デフォルトの名無しさん

NGNG

WM_PAINTで描画するというベタな方法が　　　…ﾍﾞﾀｰ

0497デフォルトの名無しさん

NGNG

てゆうか、sampleタブにズバリのコンポーネントが、、、

0498デフォルトの名無しさん

NGNG

漏れのしゃれが寒さを増した

0499デフォルトの名無しさん

NGNG

>>498
（ノ∀`）アチャー

0500デフォルトの名無しさん

NGNG

質問なのですが、
TMemoコンポーネトで、最初の行にカーソルを移動することはできますか？

0501デフォルトの名無しさん

NGNG

できますよ。

0502デフォルトの名無しさん

NGNG

ありがとうございました

0503デフォルトの名無しさん

NGNG

Memo1.SelStart := 0;

0504デフォルトの名無しさん

NGNG

ありがとうございました

0505デフォルトの名無しさん

NGNG

ありがとうございました

0506472

NGNG

ありがとうございました

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ぬるぽ

0507デフォルトの名無しさん

NGNG

世界が平和になりますように

0508493

NGNG

レスありがとうございます。
書き方が悪かったようで申し訳ないのですが、
表示するのは作業進行度とは限らず、
とにかく文字列を表示したいので、
TGauge を使う方法は利用できませんでした。

WM_PAINT を使う方法も考えましたが、
なんだかDelphiらしくない気もしています。

0509デフォルトの名無しさん

NGNG

GroupBoxとRadioButtonの合わさったコンポーネントってありませんか？
GroupBoxのキャプションの隣にRadioButtonがある、みたいな。

0510デフォルトの名無しさん

NGNG

*やさしい*スレッドって、どうなったのですか？終わった？

0511デフォルトの名無しさん

NGNG

>>510
そうそう、おれも気になってた。

0512デフォルトの名無しさん

NGNG

>>510
過激派によって消された。

0513デフォルトの名無しさん

NGNG

>>510
夏だし。

0514デフォルトの名無しさん

NGNG

質問です。
Button系のコンポーネントを利用して、ボタンが押されている状態を取得する方法がわかりません。
具体的な処理は以下のとおり。
マウスダウンにより、ボタンが押されるとタイマーを起動し、一定間隔で処理を行います。
そのマウスが離されるとタイマーをストップします。
ただし、マウスボタンが押されている状態で、カーソルがボタンから離れるとタイマーをストップ。
その状態で、カーソルがボタンに入るとタイマーを起動。
要するに、ボタンの浮き沈みと同じく、タイマーを制御したいのです。
できればフォーカスを受け取らないTSpeedButtonか、TToolBarのTToolButtonを利用したいです。
このような処理を行うにはどうすればよろしいのでしょうか？
よろしくおながいします。

0515デフォルトの名無しさん

NGNG

こういうことが出来るかどうかもわからないんだけど、
他人の作ったDLLを、自分のEXEに取り込んじゃって、
単一ファイルで配布したい。

理由は、インストーラなしである以上、ファイル構成を単純化したいから。

何とかなるかい？

0516デフォルトの名無しさん

NGNG

>>514
Windowsはその状態を教えてくれない。
よってDownプロパティは望み通りには動作しないため、
自前でマウスメッセージを処理すること。

0517デフォルトの名無しさん

NGNG

>>515
なんとかなるよ。

0518begin 名無し; end;

NGNG

質問させて下さい
ブラウザ機能を用いて指定ページを表示完了したら次のページを開く
と言ったようなものを作りたいと思っています。

自分で考えたことは、WebBrowser1.Busyを用いて、状態を判断して見ようと思ったのですが
無限ループ状態になり、処理が進んでいません。
読み込み処理を実行しつつ、完了するのを待つにはどうしたらいいんでしょうか。
↓現在この状況

begin
　for i1:=0 to i2 do
　begin
　　Edit1.Text := 'http://www.xxx.yy.zz/';

　　while WebBrowser1.Busy = True do
　　begin
　　　（ここに何か入れるべき…？）
　　 end;
　end;
end;

0519デフォルトの名無しさん

NGNG

>>514
MouseDown
MouseUp
MouseEnter
MouseLeave
で出来る

0520

NGNG

ﾄﾞｷｭｰﾝﾒｿﾄｺｿﾌﾟﾘｰﾄｲﾍﾞｿﾄｼﾞｬﾀﾞﾒﾅﾉｶｲ?

0521デフォルトの名無しさん

NGNG

>>520ｵﾏｴ､ﾄﾞｺｶﾗｶｷｺｼﾃﾙﾝﾀﾞ?(ﾜﾗｲ

0522begin 名無し; end;

NGNG

その場合は、iをグローバル変数にして、イベント発生でiを＋1して
次のを実行…ってのを繰り返しという手順ですよね
少しやってみます。

ｻﾝｸｽｰｺ

0523デフォルトの名無しさん

NGNG

すぐバグだとか騒ぐのもなんですが、
Breakプロパティでメニューを二列に表示すると、
二列目に使っている”-”の横線描画がバグっちゃってるみたいなんだけど、
回避できないですか？

0524デフォルトの名無しさん

NGNG

>>522
グローバル変数なんか使うよりイテレータとか使う方が良いと思うけど。

0525デフォルトの名無しさん

NGNG

>>516 >>519
ありがとうございます。
MouseEnterでやることにします。

0526523

NGNG

イメージリストも指定した場合の描画です。
二列目以降のセパレーターが一列目までかぶって描画されます。

0527begin 名無し; end;

NGNG

>>524
イテレータ…聞いたこと無かったので調べてみましたが
RubyことばかりでDelphiは見つからなかったです。
どういう事か何となくわかるような、わからないような…

この概念で考えたこと無いので実際どのように使うのかがちょっと
わかりません。
できたら簡単な具体的な使用例的な物を見せて欲しいのですが
よろしくお願いします

0528_

NGNG

http://homepage.mac.com/hiroyuki44/

0529デフォルトの名無しさん

NGNG

ありがとうございました

0530デフォルトの名無しさん

NGNG

デザパタの本を買え

0531デフォルトの名無しさん

NGNG

>>527
関数抜けないとbusyが解除されないと思われ
イテレータは関係ない

0532デフォルトの名無しさん

NGNG

Delphiスレで聞く内容ではない気がしますが、開発ソフトがDelphiなので、
ここで質問させて下さい。

売る値段によって、機能の数や動作が変わってくるようなソフトを作る場合、
１．全てのソースをそれぞれのバージョン毎に分ける
２．同じ動きや似たような機能のソースは共有して、大幅に違う所はソースを分ける
３．全てフラグなどで切り分け、ソースは全て共有する
４．その他

のどれが良いですか？
とりあえずバージョンは二つだけなのですが、後々バージョンが増えるかも
しれませんし、バージョン毎に必要な機能も現時点では決定していません。
もしかしてDelphiだとそのような管理をする機能が付いていたりしますか？

0533デフォルトの名無しさん

NGNG

☆★最新アダルト情報★yahoo検索エンジンからのプレゼント！！☆★
http://endou.kir.jp/marimo/link.html

0534_

NGNG

http://homepage.mac.com/hiroyuki44/2ch.html

0535デフォルトの名無しさん

NGNG

４．その他

0536デフォルトの名無しさん

NGNG

>>532
取らぬ狸の皮算用っていうかなんというか

0537532

NGNG

>>536
ようするに仕様がコロコロ変わるんでつ（T＾T)

0538デフォルトの名無しさん

NGNG

継承をつかえ。

0539532

NGNG

なるほど、仕様が変わるたびに継承で対応するわけですね。

0540デフォルトの名無しさん

NGNG

>>532
好きなようにやってくれ

0541532

NGNG

冗談ですよ。つまらない奴ですね。

0542532

NGNG

うっせークズ共。とっとと、答えろや！

0543デフォルトの名無しさん

NGNG

PCJapan：2003年8月号 - 特集4：Windowsカスタマイズツールを作ろう

PCJの多くのユーザーが何らかのカスタマイズツールを使ったことがあるだろう。
そうしたツールを使っていて，「この機能がほしい」，「このインターフェイスを変え
たい」などと感じたことはないだろうか。カスタマイズツールを自分でプログラミン
グできれば，本当に欲しい機能を備えたツールが得られる。この特集では，付録
CD-ROMに収録したプログラミングツールを使って，オリジナルのカスタマイズツ
ールを作るテクニックを紹介する

Part1 簡単にプログラムを作れるDelphiをマスターしよう
Part2 プロが教えるカスタマイズツール作成テクニック

http://www.zdnet.co.jp/magazine/pcjapan/0308/sp4/

0544デフォルトの名無しさん

NGNG

>>543
簡単じゃねーやい!

0545デフォルトの名無しさん

NGNG

>>543
Part2は嫁ないの？

0546デフォルトの名無しさん

NGNG

>>545
Coming soon.

0547デフォルトの名無しさん

NGNG

※Part2は，現在発売中のPCJapan 2003年8月号の誌面でご覧いただけます
（バックナンバーのオンライン購入はこちらから）
http://store.sbpnet.jp/bm_browsing.asp?page=0&browsing%5Ftype=&product%5Ftype%5Fid=40&product%5Fsubject%5Fid=%7B31B6F187%2D72B3%2D4943%2DB34A%2DC32EF8DC6CD1%7D

0548デフォルトの名無しさん

NGNG

そうだ！簡単じゃないぞ！
ユーザーからはあれ付けてくれこれ付けてくれって言われるし、
新ＯＳには対応させなきゃならないし。

もちろん自分で使うってなら別だが。

0549デフォルトの名無しさん

NGNG

>>543
気づくの遅せーな

0550デフォルトの名無しさん

NGNG

これからも>>549みたいな夏厨が押し寄せてきそうな予感

0551デフォルトの名無しさん

NGNG

ネトランとPCJapanどっちが厨読者多いだろうか。

0552デフォルトの名無しさん

NGNG

NASAのシステムよりも窓の手がDel製と
いった方がよほど説得力があると思うのだが…

0553デフォルトの名無しさん

NGNG

窓の手など一般人からみればしょぼいヲタツール
おまいらからみたハッキングツールと同じような目でみられてるので
マイナスイメージしかつかねーよ

0554デフォルトの名無しさん

NGNG

WINDOWS をＢＡＳＩＣでつくることはできますか？

0555デフォルトの名無しさん

NGNG

WINDOWSという名のソフトはBASICでも作れますが？

0556デフォルトの名無しさん

NGNG

そうなんですか？　どんな感じになりますか？

0557デフォルトの名無しさん

NGNG

BASICになります

0558デフォルトの名無しさん

NGNG

　　　ヽ(･ω･)/　　ｽﾞｺｰ
　　　　　＼(.＼ノ
　　　　､ﾊ,,､　

0559デフォルトの名無しさん

NGNG

DLLを実行ファイルのフォルダの中に作成したサブフォルダに入れ、
なおかつ external で静的にロードすることは可能でしょうか？

[Hoge]
　　├ hoge.exe
　　└ [DLL]
　　　　　├ huge.dll
　　　　　└ func.dll

可能であれば、具体的にはどう記述すればよいでしょうか？
external 'DLL\huge.dll' を試してみましたが、アクセス違反が起こりました。

0560デフォルトの名無しさん

NGNG

DLL のフルパスで、path に加えても？

0561デフォルトの名無しさん

NGNG

>>560
path といいますと、環境変数の事でしょうか？
環境変数は弄らないようにしたいのですが…
もし弄らないと出来ないのでしたら、素直に諦めます。

0562デフォルトの名無しさん

NGNG

>>561
なんでやねん

0563デフォルトの名無しさん

NGNG

コンポーネントスレってこの板にある？

0564デフォルトの名無しさん

NGNG

【大量・便利】Delphiコンポーネント【再利用】
http://pc2.2ch.net/test/read.cgi/tech/1051802300/

0565デフォルトの名無しさん

NGNG

>>559 あたり

procedure foo; external 'test\bar.dll';

でできたけど？（Windows 2K）Windows ローダーが DLL を見つけられない場合は
「hoge.exe - DLL が見つかりません」って表示するはず。

「アクセス違反」ということは、DLL はロードできているということで
原因は別にあるのではないかな？

0566デフォルトの名無しさん

NGNG

現在フォームに表示をしている、レコード１件のみをQuickReportで
プレビュー及び印刷をしたいのですが、どの様にすれば宜しいのでしょうか？
Delphi6上で、TTableを使ってDBを構築しております。

恐れ入りますが、諸先輩方の知恵をお貸し頂けますでしょうか。
それではよろしくお願いいたします。

0567デフォルトの名無しさん

NGNG

>>566
コード書かずに済ませたいなら...

1件だけなら DB 系 QReport コンポーネントを使わないで処理するってのは？
TTable の変わりに TQuery で、ひとつのレコードだけ表示するってのは？
TTable の Filter を設定して、ひとつのレコードだけ表示するってのは？

0568デフォルトの名無しさん

NGNG

TNMFTPのインストールの仕方を教えて下さい。
当方Delphi7　Professionalです。
宜しくお願いします。

0569566

NGNG

>>567
さっそくのレス、ありがとうございます。
現在構築済みの物に追加して、１件のみの印刷をしたいと考えております。

TTableとTQueryを並行に運用出来るのか私には分からないですが
３番目のFilter設定は使った事がありますので、カレントレコードに限定する
手法が分かれば、私の稚拙な力でも出来そうです。

この点で質問なのですが、実行中の画面上ではDBの抽出（Filter）が
行われた事に気付かせずに、この手の作業は可能なのでしょうか？

0570559

NGNG

>>565
（´Д｀；）
どうやら、原因は別の所にありそうです…。
現在DLLをロードするDLLを作ってるのですが、
それは関係ないですよね…。

[hogehoge]
　　　　├ hoge.exe （huge.dll をロードする実行ファイル）
　　　　└ [DLL]
　　　　　　　├ huge.dll　（現在作成中のDLL）
　　　　　　　└ [huge]
　　　　　　　　　　└ func.dll　（利用したいDLL）

procedure foo; external 'DLL\huge\func.dll';

0571デフォルトの名無しさん

NGNG

ＣＤデータベースにＣＤプレイヤー機能をつけて、ＣＤドライブに入っているＣＤの情報を表示させたいと思っています。
いろいろ調べて、GetVolumeInformationの、SerialNumberを使えばいいのかと思いましたが、
たまたま持っていた二枚の同じＣＤで試してみるとSerialNumberが異なりました。
こんなときに使える関数、方法、サイトなど教えてください。お願いします。

0572571

NGNG

すみませんちょっと変な文章でした･･･。
質問は、「音楽ＣＤのタイトルを判別する方法を教えてください」です。
Delphi6Personal使ってます。よろしくお願いします。

0573デフォルトの名無しさん

NGNG

Delphiでビートマニアみたいなものって作れますか？

0574デフォルトの名無しさん

NGNG

SerialNumberとそのCDデータベースで実現できます

0575571

NGNG

レスありがとうございます。
しかし、私が持っていた二枚の同じタイトルのＣＤは、異なるSerialNumberを持っていました。
同じタイトルの音楽ＣＤに共通のＩＤ番号の様なものがあればうれしいんですが・・。

0576デフォルトの名無しさん

NGNG

>>573
作れますよ。コナミさん

0577デフォルトの名無しさん

NGNG

だろうね

05785777

NGNG

誤爆

0579デフォルトの名無しさん

NGNG

TListViewに重複項目を出さないようにするにはどうすればいいですか？

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
var
i:integer;
begin
for i:=ListView1.Items.Count-1 downto 0 do
if ListView1.Items[i]=ListView1.Items[i+1] then
ListView1.Items[i+1].Delete;
end;

ソートしてやってみてもダメだったぽ(´･ω･｀)
できればSubItemの重複でできるようにお願いします。

0580ダサダサコーディングで良ければ

NGNG

一旦、TStringlistに全部移してソートして戻す。
はい次↓

0581デフォルトの名無しさん

NGNG

>>580
(　´･∀･`)やってみます

0582５８０

NGNG

よーく読見返してみたけど、>>580はダメだな（藁
忘れてくれ。
１行なら問題無いと思うが。
ダサイけど（藁

0583多分こんな感じで出来ると思います。

NGNG

>>579
function MatchListItem(L1, L2: TListItem): Boolean;
var
  I: Integer;
begin
  Result:=false;
  if L1.SubItems.Count<>L2.SubItems.Count then Exit;
  if not(SameText(L1.Caption, L2.Caption)) then Exit;
  Result:=true;
  for I:=0 to L1.SubItems.Count-1 do
  begin
    if not(SameText(L1.SubItems.Strings[I], L2.SubItems.Strings[I])) then
    begin
      Result:=false;
      Break;
    end;
  end;
end;

0584デフォルトの名無しさん

NGNG

続き
procedure TForm1.Button1Click(Sender: TObject);
var
  I, n: Integer;
begin
  I:=0;
  while I<ListView1.Items.Count do
  begin
    n:=I+1;
    while n<ListView1.Items.Count do
    begin
      if MatchListItem(ListView1.Items.Item[I], ListView1.Items.Item[n]) then
      begin
        ListView1.Items.Delete(n);
        Dec(n);
        Dec(I);
      end;
      Inc(n);
    end;
    Inc(I);
  end;
end;

0585デフォルトの名無しさん

NGNG

>>570
まずはバグの切り分け。
DLL 名にパス名を付けない状態で正しく動くことを確認するのが先でしょう。
次に、path 環境変数に置き先ディレクトリを追加した状態でテスト。これで各 DLL が
異なるディレクトリにあっても動くかどうかを検証。
最後に external 指定にサブディレクトリを追加。

こんな順番でがんばって

0586デフォルトの名無しさん

NGNG

>>571
CDDBみたいに、MSFアドレス、トラック数、各トラックアドレスなどから
CDを判別するのはどう？

0587デフォルトの名無しさん

NGNG

var
Memo : array[1..100] of TMemo;
i : integer;
begin
for i := 1 to 100 do
Memo[i] : =T Memo.Create(Memo[i]);

これをやるとデフォルトプロバティが無いというエラーで怒られますが
どうにか簡単に作る方法は無いでしょうか？

0588デフォルトの名無しさん

NGNG

Memo[i] はこれから作るところなんだから
>Memo[i] : =TMemo.Create(nil);
はエラーになるでしょ？

>Memo[i] : =TMemo.Create(nil);
または Memo.Create(self);
かな？

0589デフォルトの名無しさん

NGNG

>>588
レスありがとうございます
試してみたところ同じエラーがでてできませんでした
エラー文を正確に書くと
>このクラスはデフォルトプロパティを持っていません
です

0590571

NGNG

>>585レスありがとうございます。
ＣＤＤＢでもそのように判別しているということは、タイトルごとに共通なＩＤは存在しないようですね。
取得しやすい情報を組み合わせてやってみようと思います。
ありがとうございました。

0591571

NGNG

>>586さんでした・・・。
ありがとうございました。

0592デフォルトの名無しさん

NGNG

初心者小僧です。

Indyコンポーネントの使い方とか、Indyコンポーネントのチップス（これを行うには
このコンポーネントのこのメソッドを利用するみたいな）とかを紹介している
良いWebサイトをあれば教えてもらえないでしょうか？

0593デフォルトの名無しさん

NGNG

>>579
なぜにOnChange?

Captionでソートしてあれば
for i := ListView1.Items.Count-1 downto 1 do
　if ListView1.Items[i].Caption = ListView1.Items[i-1].Caption then
　　ListView1.Items[i].Delete;

SubItemsでやるならCaptionをSubItemsに変えればよろし。
SubItemsでソートしてから動かせよ。

0594デフォルトの名無しさん

NGNG

>>583-584 >>593
(`･ω･´)ゞ

0595デフォルトの名無しさん

NGNG

ファイラーみたいなの作る時、みんなコンポーネント何使っているの？
SamplesのShellListViewコンポーネントとか使うとFD見に行って、
ガコガコ鳴って五月蝿いんだけど…(;´Д｀)

0596デフォルトの名無しさん

NGNG

>>595
TListBoxをOwnerDraw。

0597デフォルトの名無しさん

NGNG

俺はListviewをオーナードローとオーナーデータ。

0598デフォルトの名無しさん

NGNG

ORTUS SHELL COMPONENTSを使ってる
自分専用だしね
ttp://www.ortus-software.com

0599ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>587
メモコンポを100個動的に作るということですが
まさか100個同時には画面表示できないでしょうし…．

もしかしたら２ちゃんねる専用ブラウザのように
複数のテキストを切り替えて表示したいのかもしれませんが，

こういう場合は各テキストの保管はとりあえず文字列変数のの配列か何かにして，
そしてテキストを表示するためのコンポ（コントロール）は１個だけにして，
アクティブなテキストを切り替えるたびに内容をコピーするのがよいと思います．

0600デフォルトの名無しさん

NGNG

>>592
日本語ヘルプ
http://www.borland.co.jp/delphi/del7docup.html
Monazilla.org(w＞資料室（メンテナンス中）
http://members.jcom.home.ne.jp/monazilla/document/index.html

0601デフォルトの名無しさん

NGNG

Altキーの入力を無効にするにはどうしたらいいんでしょうか。

0602595

NGNG

やっぱ、自前の人もいるのですな…
すばらし～コンポーネントがどっかでフリーでソースつきで無いかなぁ…。

0603デフォルトの名無しさん

NGNG

>>602
これは？
http://www.turbopower.com/products/shellshock/

フリーでソースつき

0604595

NGNG

>603
おーおー！
そういえば以前MLでもTurboPower社の話が出てましたな！
元が商用だけに期待できますな！！(￣▽￣)

0605デフォルトの名無しさん

NGNG

「会社閉めるからsourceforgeに譲るよ」みたいなことが書いてあるな。
webサイトみただけじゃファイルがどこにあるか分かりづらいので
ttp://sourceforge.net/project/showfiles.php?group_id=71005&release_id=137049

0606デフォルトの名無しさん

NGNG

>>600
ダウンロードします、ありがとうございました。

0607デフォルトの名無しさん

NGNG

さっさと>>601の質問に答えろボンクラどもが

0608デフォルトの名無しさん

NGNG

リポジトリへ登録しまくっていたプロジェクトを
フォルダー毎コピーして、新しいプロジェクトを作成して修正していました。

そして、フォーム上のListViewから１項目削除しようとすると、

別のフォームから継承されたコンポーネントを含んでいるため削除できません。

とエラーが出て削除できないのですが、プロジェクト内を検索してみても
継承されたコンポーネントなんてありません、何処かに前のプロジェクトの
リポジトリ情報でも記録されているのでしょうか？？

0609デフォルトの名無しさん

NGNG

>>607
もうちょっと具体的に言わないと。
「これこれこういう機能を無効にしたいのでこのコンポーネントでALTキーを無効に出来ませんか？」みたいな

0610デフォルトの名無しさん

NGNG

>>609
Alt+F4を無効にしたいのです。
ジョークソフトを作っているので。

ちなみにAlt+Ctrl+Delの無効化はSystemParametersInfoでできました

0611デフォルトの名無しさん

NGNG

Alt+F4に別の機能を割り当てる

0612デフォルトの名無しさん

NGNG

>>610
http://www.google.co.jp/search?q=cache:FPXsX5I81D8J:www.melma.com/mag/49/m00001349/a00000067.html+Alt%E3%80%80F4%E3%80%80%E7%84%A1%E5%8A%B9%E3%80%80delphi&hl=ja&ie=UTF-8

0613デフォルトの名無しさん

NGNG

三つ簡単な質問あります。

shelltreeviewとfilelistboxのリンクの仕方

shelltreeview、filelistboxで選択したディレクトリの場所とファイル名の取得

上にありましたがfilelistboxのMaskを"複数"にしたい場合

超初心者ですんません・・

0614デフォルトの名無しさん

NGNG

delphiで作ったアプリケーションで
別のプログラム（たとえばword）を動かせるのですか？

実行ボタンを単純に一個作って、ボタンを押すとword.exeを起動（その後テキストを貼り付け、保存終了をする予定）。

秀丸マクロではなく、delphiで作りたいのですが・・・

0615デフォルトの名無しさん

NGNG

>>613
ShellListViewなら ShellTreeViewのShellListViewに設定するだけなんだけど。

0616デフォルトの名無しさん

NGNG

>>614
出来ます。頑張って調べてくださいね。

0617デフォルトの名無しさん

NGNG

>>611-612
ありがとう！

0618デフォルトの名無しさん

NGNG

JoyPadからの入力を受けるのにjoyGetPos,joyGetDevCapsなどを
使えばいいということは分かったんですが、
引数がよく分かりません。

引数はどのようにすればよいのでしょうか？

0619デフォルトの名無しさん

NGNG

DirectInput使いなよ。

0620デフォルトの名無しさん

NGNG

DelphiでTCP/IP通信をモニターするプログラムを作りたいのですが、
ポートを設定せずに通信をモニターするにはAPIとか使わないと駄目ですか？

0621613

NGNG

>>615
ありがとうございます！
これを大きいアイコンではなくて一覧リスト表示したいのですが・・
あと、ディレクトリの場所とファイル名の取得はどうしたらよいでしょうか？

0622613

NGNG

>>621
621を訂正します・・

ドライブコンボボックス，ファイルリストボックス，
およびディレクトリリストボックスでのディレクトリの場所とファイル名の取得はどうしたらよいでしょうか？
それぞれのドライブ、ディレクトリ、ファイル名をeditに出力したいのですが・・

0623デフォルトの名無しさん

NGNG

FormのParentFontって、何を親にしてるの？
効いてない気がするんだけど。

0624デフォルトの名無しさん

NGNG

Parentがnilなら意味ないよ。
FormにForm埋め込むと効いてくる。

0625デフォルトの名無しさん

NGNG

効いたよー効いたんだよー

0626デフォルトの名無しさん

NGNG

>>621
ViewStyleをいじる
ってこの質問却下かよ・・・

0627パソナラー ◆Tp0RXFvi3E

NGNG

>>618
丹念に検索すれば必ずサンプルが見つかるハズだよ。
オレも昔、探したし。
ヒント：
「JOYSTICKID1」、「TJOYINFO」、「TJOYCAPS」

0628デフォルトの名無しさん

NGNG

うまく説明出来ないんですが
なにかのソフトでよくショートカットキーの割り当てをするとき
例えばキーボードのCtrl + S を押せばCtrl + S が表示されるってのがありますよね
あれをdelphiでやりたいんですがそういうコンポとかありますか？

0629デフォルトの名無しさん

NGNG

case文の中にRandom関数を入れると
初期化されない場合があると言われて困っています。
どうしたらいいのでしょうか？

簡略化してますがこんな感じです。
a := 1;
Randomize;
case a of
1: b := Random(100)+1;
end;
ShowMessage(IntToStr(b))

0630デフォルトの名無しさん

NGNG

a := 1;
b := 1;
Randomize;
case a of
1: b := Random(100)+1;
end;
ShowMessage(IntToStr(b));

でええんでないの？

0631デフォルトの名無しさん

NGNG

>>630
なるほど、たったそれだけのことだったんですか。
ありがとうございました。

>>628
こういうこと？
http://www.borland.co.jp/qanda/delphi/d0002346.html

0632ミ,,ﾟДﾟ彡 ◆A6VzDeLphI

NGNG

>>628
THotKeyを使うってことではないでしょうか？

0633デフォルトの名無しさん

NGNG

なんでアイツ助けた！

0634633

NGNG

ごめん、誤爆した。↑

0635デフォルトの名無しさん

NGNG

>>631,>>632
ありがとうございました

0636デフォルトの名無しさん

NGNG

StatusBar1のPanels[0]のTextの2バイト文字の先頭1文字を消したいのですが
↓のでは消えてくれません。どこがわるいのでしょうか？

Bar := StatusBar1.Panels[0].Text;
Delete (Bar,2,2);

0637デフォルトの名無しさん

NGNG

>>636 頭。

0638デフォルトの名無しさん

NGNG

>>636
var
  S: String;
  L: Integer;
begin
  S:=StatusBar1.Panels[0].Text;
  if 0<Length(S) then
  begin
    L:=1+Ord(IsDBCSLeadByte(Byte(S[1])));
    Delete(S, 1, L);
    StatusBar1.Panels[0].Text:=S;
  end;
end;

0639デフォルトの名無しさん

NGNG

DelphiでHORBは使えますか？

0640デフォルトの名無しさん

NGNG

コードエディタのしおりは保存できないの？

0641デフォルトの名無しさん

NGNG

タイトルバーのクリックを検知する方法おしえて下さい。
よろしくおねがいします。

0642デフォルトの名無しさん

NGNG

http://esenden.com/rank/network/ranklink.cgi?id=mercury

0643デフォルトの名無しさん

NGNG

TTreeNodeをVisable:=Falseみたいに存在してるんだけど
見えない。ってじょうたいに出来ますか？
ノードが折りたたまれて見えないのとはまた別の意味で。

0644デフォルトの名無しさん

NGNG

123456789を123,456,789みたいにしたいけどできないぽ(´･ω･｀)
var
ListItem: TListItem;
略
ListItem:=Items.Add;
ListItem.Caption:=SearchRec.Name;
ListItem.SubItems.Add(Format('%10.0n', [(SearchRec.Size + $3ff) shr 10]));
ListItem.SubItems.Add(DateTimeToStr(FileDateToDateTime(SearchRec.Time)));
略
これでやると(%n使うと)ｴﾗｰ吐いて死んでくれます。
どうすればよろしですか？

0645デフォルトの名無しさん

NGNG

>>644
ヘルプの%nの説明に、引数は浮動小数点値でなくてはならないって書いてる。

0646デフォルトの名無しさん

NGNG

ShellListViewで、カラムをクリックしたときにファイルサイズや日付でソートするには
どうしたら良いのでしょうか?
いろいろ見てみたのですが解りませんでした…(汗)。

0647デフォルトの名無しさん

NGNG

Formに乗っている全てのコントロールを強制的に
再描画させるにはどうしたら良いでしょうか？

0648デフォルトの名無しさん

NGNG

Form.Refresh;

0649ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>636
×　Delete(Bar, 2, 2)
○　Delete(Bar, 1, 2)

文字列の先頭が２バイト文字でその１文字を削除する場合は
先頭の２バイト（１バイト目から２バイト分）を削除しなければいけないのですから，
Delete(Bar, 1, 2) が正解となります．
文字列の先頭が２バイト文字とは限らない場合は
>>638のように１バイト文字なら１バイト，２バイト文字なら２バイトを削除するようにするか，
あるいはワイド文字列を使います．

var
ws: WideString;
begin
ws := StatusBar1.Panels[0]; // ワイド文字列に変換して代入されます
Delete(ws, 1, 1); // ワイド文字列版のDelete手続き
StatusBar1.Panels[0] := ws; // 通常の文字列に変換して代入されます
end;

0650デフォルトの名無しさん

NGNG

Office2000　professional、Delphi6　personalを持っています。
ﾃﾞｰﾀﾍﾞｰｽを作るとして

１）前者で作ると、ACCESSの入ってない環境では使えない。
２）Delphiで作ると自立した？ｱﾌﾟﾘｹｰｼｮﾝが作れるので、多くの環境で
　　使えるが、personal版ではDBは作れない。

という理解でよろしいのでしょうか？

0651デフォルトの名無しさん

NGNG

>>645
とりあえずｴﾗｰは吐かなくなったので試行錯誤してみます

0652644

NGNG

>>645
ぁ、できました。どうもありがとうございました

0653デフォルトの名無しさん

NGNG

WebBrowserコンポーネントを使ってタブブラウザを
つくっていますが、キャッシュを使用しない更新は
var
i: integer;
Level: OleVariant;
begin
if (MDIChildCount > 0) then
begin
with MainForm do
for i := MDIChildCount-1 downto 0 do
if TIEWindow(MDIChildren[i]).WebBrowser1.Document <> nil then
begin
TIEWindow(MDIChildren[i]).WebBrowser1.Refresh2(Level);
end;
end;
end;
でいいのでしょうか。教えてください。お願いします。

0654653

NGNG

>>653
自己レスですが、それであってるようでした。
ありがとうございました。

0655デフォルトの名無しさん

NGNG

宣言したのにまったく使ってない変数はやっぱりアセンブルされたときに
余分なコードとしてEXEに組み込まれてるの？

それとも最適化の段階でカットされてるのかな？

0656デフォルトの名無しさん

NGNG

Windowsキーを無効にしたいんですが、どうやればいいのでしょうか。
キーボードを壊すとかは勘弁して。

0657デフォルトの名無しさん

NGNG

Delphi6　Personalで簡単なメーラーを作りたいのですが、
Personalだと無理でしょうか？

0658デフォルトの名無しさん

NGNG

>>657
Delphi6 + Indyコンポーネントでできると思う

0659デフォルトの名無しさん

NGNG

>>656
APIスレで聞いたほうがいいとおもう

0660657

NGNG

>>658
ありがとうございます。
調べてがんばってみます。

0661デフォルトの名無しさん

NGNG

＞１）前者で作ると、ACCESSの入ってない環境では使えない。
おおむねその通りだと思います。

＞２）Delphiで作ると自立した？ｱﾌﾟﾘｹｰｼｮﾝが作れるので、多くの環境で
＞　　使えるが、personal版ではDBは作れない。
前者はあってますが、後者はそうでもありません。
Windowsにはデータベースエンジンの「ADO」という一種のActiveXが
組み込まれていて（古いOSには入ってませんが）、DelphiからADOを
コントロールすれば、Accessを持っていない環境でもAccessファイルを
操作することが出来ます。ただしPersonalではめんどうです。

以前書いたので参考にしてください（92から。98はわたしです）
http://pc3.2ch.net/tech/kako/1028/10284/1028436692.html

0662デフォルトの名無しさん

NGNG

>>656
無効にしたい処理の前に下記のコードを記述。

ShowMessage('Windowsキーを押さないでね！ｖ（＾○＾）ｖ')

0663デフォルトの名無しさん

NGNG

ひろみに会いたい人、ひろみが欲しい人、手ぇあげてっ！
はーい、その指をマウスにもってってぇ・・・
ここをclick! ☆ъ（　゜ー^)＞ http://www.gals-cafe.tv
１週間毎日１０分、がんばってサービスしますっ！来てください♪
・・・えっ？誰も手ぇあげてなかったってハナシ？
そんなんナシだよぉ～～～。・°°・(>_<)・°°・。
会いたいよぉ。きてくださぁい（・O・）∞∞OOO○○○☆（〃。。〃）

0664デフォルトの名無しさん

NGNG

ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ
ｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖｖ（＾○＾）ｖ

0665デフォルトの名無しさん

NGNG

Button1を押すと「フォームを50%に縮小して表示」
このプロシージャ、どんなふうに書けばいいんでしょ

0666デフォルトの名無しさん

NGNG

procedure TForm1.Button1Click(Sender: TObject);
begin
height := height div 2;
width := width div 2;
end;

0667デフォルトの名無しさん

NGNG

スレ違いかも知れませんが
【】すみつきカッコの文字コード分かる方いらっしゃいます?

0668デフォルトの名無しさん

NGNG

>>667
$4511 $4512

0669650

NGNG

>661
有難うございます。
教えて頂いたｽﾚのﾚｽ、保存させて頂きました。
少しずつ、勉強していきたいと思います。

0670デフォルトの名無しさん

NGNG

>>661
OS means Windowsかよ。おめでてぇ。

0671デフォルトの名無しさん

NGNG

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

0672デフォルトの名無しさん

NGNG

>>670
Delphiスレで何言ってんの(^-^*)♪

0673無料動画直リン

NGNG

http://homepage.mac.com/miku24/

0674デフォルトの名無しさん

NGNG

>>671
素直にSJISの文字コード表見た方が良いと思うぞ。

0675665

NGNG

>>666
_|￣|○
まったくもって申し訳ないです
書き方が悪かったようで。

縮小したいのはフォームそれ自体ではなく、中身なのでした。
こんな書き方も変かな。
1000Pの文字とか(んな無茶な)、普通に表示したらはみ出すようなものを、
おさめてくれるような。

ExcelVBAでいうところの
ActiveWindow.Zoom = 50
みたいな

0676デフォルトの名無しさん

NGNG

>>674
ｽﾝﾏｾﾝ。他の括弧は見つかったんですが【】は見つからなくて・・・
見直してきます

0677A

NGNG

>>675
地道に全部のサイズを手動で制御するしかないんじゃないかな…？

それか、どっか別の場所の架空のフォームを作って、そこに書かせて
それをサイズを縮小してコピーとか…
イベントとかを座標修正して転送してやる必要がありそうだけど。

0678デフォルトの名無しさん

NGNG

Timerコンポーネントがよく分からないんですけど
Timer1.Enabled := False ;
とするまでIntervalで指定した間隔で実行し続ける
ということではないのでしょうか？

0679デフォルトの名無しさん

NGNG

それで合ってます

0680デフォルトの名無しさん

NGNG

>>679
そうですかありがとうございました。
では違うところが間違っていたのか・・・。

0681デフォルトの名無しさん

NGNG

Intervalで指定した間隔でタイマーイベントを繰り返す

0682デフォルトの名無しさん

NGNG

>>675
有償コンポがあるくらいだから標準では無理。

0683613

NGNG

procedure TForm1.FileListBox2DblClick(Sender: TObject);
begin
FileListBox2.FileEdit:=Edit19;
end;
list内ファイルをダブルクリックをすればedit19に出力するんですが、
list内のファイルを選択する一回目はダブルクリックでいけるのですが、
二回目からはワンクリックでedit19に出力してしまいます・・
二回目以降もダブルクリックで出力できるようにするには？
教えてください・・

0684デフォルトの名無しさん

NGNG

使い方間違ってます。

0685デフォルトの名無しさん

NGNG

最小化とかは普通に出来ても最大化やサイズ変更が出来ない
フォームを作るにはどうすればいいのですかね?
BorderStyleとかいじってもうまくいきません。

0686デフォルトの名無しさん

NGNG

BorderStyleがbsSingleで、BorderIconsのbiMaximizeをFalse。

0687デフォルトの名無しさん

NGNG

shift_jis ２バイト文字コードから、直接文字を表示するにはどうすればいいんでしょうか？
WideCharにすると、文字コードがずれるし分かりません。

0688デフォルトの名無しさん

NGNG

>>686
できました。thx

0689デフォルトの名無しさん

NGNG

ボタンの上とかにマウスを載せるとポップアップヒント(?)が出るのはどうやってるんですか？

0690デフォルトの名無しさん

NGNG

>>689
ボタンのプロパティ Hint

0691デフォルトの名無しさん

NGNG

ListViewで項目を選択する際
一個目は問題ないんですがその後他の項目を選択しようとすると
OnSelectItemでエラーが出てとまってしまいます。
どうにかなりませんか？

0692　

NGNG

>>691
該当するコーディングをチェックし直す。

0693デフォルトの名無しさん

NGNG

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
Edit2.Text:=ListView1.Selected.Caption;
Edit3.Text:=ListView1.Selected.SubItems[2];
end;
2個目を選択しようとした時↑の
Edit2.Text:=ListView1.Selected.Caption;
に引っかかってる・・・。
何が問題なのかわかんない・・。漏れの頭？

0694デフォルトの名無しさん

NGNG

if Key = 'a' then
begin
ShowMessage('a');
end;

押すkeyがaではなくspaceで反応してほしいのですが
そう言う場合はどう改変したらよいのでしょうか？

0695　

NGNG

SubItems[2];の「２」って何を示してるつもりダス？
あと、ｴﾗｰで困ってる場合は、そのエラー文も書くと（略）

0696691

NGNG

>>695
SubItemの3つ目です。vsReportでのListViewの左から4つ目の項目。
コメントアウトしてみてもやはり2回目でエラーでした。
デバッガ例外が発生-----
プロジェクトが　EAccessVilotationクラスの例外を生成しました。
'Access violation at address 004769CE in module 'Project1.exe'. Read of address 00000024'
プロセスは停止しています。再開するにはステップ実行または実行を選択してください。
　　[OK]　[ヘルプ(H)]
------

0697デフォルトの名無しさん

NGNG

>>690　ども

0698デフォルトの名無しさん

NGNG

>>696
if Selected then
begin
Edit2.Text:=ListView1.Selected.Caption;
Edit3.Text:=ListView1.Selected.SubItems[2];
end;

0699デフォルトの名無しさん

NGNG

>>698
（TT）ありがとうございました。無事選択できるようになりました。

0700デフォルトの名無しさん

NGNG

>>694
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=' ' then ShowMessage( '　' );
end;

こういう意味？

0701デフォルトの名無しさん

NGNG

>>700
すいません、スペースバーを押すことによって反応して欲しいということです。

0702デフォルトの名無しさん

NGNG

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
　if Key = VK_SPACE then begin
　ShowMessage('a');
end;

0703702

NGNG

ぁ、すまん。イベント違うな
参考までに
リターンキー VK_RETURN
スペースキー VK_SPACE
エスケープキー VK__ESCAPE
SHIFTキー VK_SHIFT
CTRLキー VK_CTRL
ALTキー VK_ALT
F1 ～ F12 VK_F1 ～ VK_F12
BSキー VK_BACKSPACE
カーソルキー VK_LEFT , VK_UP , VK_RIGHT , VK_DOWN

0704デフォルトの名無しさん

NGNG

>>700
もう一度すいません。
key=' ' でもスペースに反応してくれるんですね。
ありがとうございました。

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

もう一つ質問なんですけどこれをCtrl+なにかのキーで
反応するようにするにはどうしたらいいのでしょうか？

0705デフォルトの名無しさん

NGNG

>>703
ifを二重にしたらCtrl+なにかもできそうですね。
ありがとうございました。

0706デフォルトの名無しさん

NGNG

>>705
KeyDownのShiftを使えれ。

0707665=675

NGNG

>>677
>>682
お手数おかけしました
ほぼ10時間、頭かきむしりながら別フォームで試そうとしましたけど
体力の限界です。
今回のところは投げ出します。
もちょっと腕上げてから出直してきます。

0708デフォルトの名無しさん

NGNG

ステータスバーに時間が減って行ってるのが視覚的に分かるような
コンポーネントをいれたいのですがちょうど良いコンポーネントはありませんか？
プログレスバーだと増えているようなイメージがあるので・・・・。

0709デフォルトの名無しさん

NGNG

＞時間が減って行ってる
のを逆手にとれば、プログレスバーでいいじゃん

0710デフォルトの名無しさん

NGNG

>>707
Anchorsを全部外してみては？
違うかな？

0711デフォルトの名無しさん

NGNG

>>708
Windowsでは数値が減るのは殆どが数字で表現されているよ。
プログレスとかゲージとか使うんなら、経過時間(増える)とかにすれ。
プログレスバーで満タンから減らしていくっていうのはダメダメ(奇抜)ね。

0712デフォルトの名無しさん

NGNG

あ、ビジネス系じゃなくてゲームなら許容されるかもね。

0713デフォルトの名無しさん

NGNG

TComboBoxって複数bytes文字に対応してないの？
BSが1bytes毎なんだけど。

0714デフォルトの名無しさん

NGNG

TListViewのOwnerDrawについて詳しく説明されてるHPないですか？

0715デフォルトの名無しさん

NGNG

>>713
AutoCompleteがTrueになってない？

0716デフォルトの名無しさん

NGNG

質問なのですが、
TRichEditコンポーネトで、最初の行にカーソルを移動することができたら、
その方法を教えていただけませんか？
>>503をみて、TMemoコンポーネントなら
できるようになったのですが、同じ方法では
対応できていないようなので、よろしくお願いします。

0717パソナラー ◆Tp0RXFvi3E

NGNG

>>716
検索が足りないと思うよ。

リッチエディットの最後の行:=richedit1.Lines.Count;
RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX,リッチエディットの最後の行,0);
RichEdit1.Perform(EM_SCROLLCARET,0,0);

フォーカスが当たらないとダメっぽいから注意。

0718714

NGNG

TlistView OwnerDraw
ListView OwnerDraw
Delphi Ownerdraw
リストビュー　OwnerDraw
TListView オーナードロー
Delphi　オーナードロー
こんだけググっても見つからないなんて（；´Д｀）
他にｲｲ(･A･)検索単語ありますか？

0719デフォルトの名無しさん

NGNG

>>718
（´-`）。o ○ （ｵｰﾅｰﾄﾞﾛｰの何が知りたいのか書かないから、レスが付かないと思われ…）

0720デフォルトの名無しさん

NGNG

Editに入力されている文字が1バイト文字かどうか判断したいのですがよい方法はないでしょうか？
入力できるのを1バイト文字に固定せずif文等での判断でいいのですが。
よろしくお願いします。

0721デフォルトの名無しさん

NGNG

ByteType

0722440

NGNG

Formの拡大に合わせてボタンが拡大されるようにするにはどうすればいいんですか？

0723デフォルトの名無しさん

NGNG

>>721
ありがとうございました。
しかし使い方がよく分からないので解説していただけないでしょうか？
ググってもよく分からなかったもので。

0724デフォルトの名無しさん

NGNG

>>723
Delphiに付いているヘルプは見ましたか？

0725デフォルトの名無しさん

NGNG

>>722
Anchorsを全部trueにしたり色々してみて研究してください

0726ミ,,ﾟДﾟﾐ⊃ ◆A6VzDeLphI

NGNG

>>723
http://www.wwlnk.com/boheme/delphi/tips/tec0710.htm

0727ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>687
Shift-JISコードに対応する文字を出したいということでしょうか．

{
Shift-JISコードを文字に変換します．
}
function SjisToStr(const SJisCode: word): string;
begin
SetLength(Result, 2);
Result[1] := chr(SJisCode shr 8);
Result[2] := chr(SJisCode and $ff);
end;

{
Edit1.TextにシフトJISコード
Edit2.Textにそれに対応する文字
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := SjisToStr(StrToInt('$' + Edit1.Text));
end;

0728687

NGNG

>>727
ようやく分かりました。
脳みそ無限ループに入っていたので、大感謝！

0729デフォルトの名無しさん

NGNG

>>723
「これはどうするのだろう？分からない」
↓質問
「レスは来たけど、やりかたが分からない」
↓質問
…

ループを続ける気ですか？ヒントもらったんだから、徹底的にいろいろ
実験してからでも遅くは無いと思うが…。

0730デフォルトの名無しさん

NGNG

>>723
bytetype(Edit1.Text[i])で戻り値が
mbTrailByte　//全角２バイト目
mbLeadByte　//全角１バイト目
mbSingleByte　//半角

0731723

NGNG

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

0732デフォルトの名無しさん

NGNG

delphiでIRCクライアントの作成はできますか？
ただ会話さえできれば良い程度で、ファイルの受け渡しや
＠配布とかモード変更とかも無し程度の機能です

0733デフォルトの名無しさん

NGNG

>>732
RFC 1459
TClientSocket

0734デフォルトの名無しさん

NGNG

>>725
それだと大きくなり過ぎるんですよ。
Formと同じくらいの倍率で拡大することはできないのでしょうか？

0735デフォルトの名無しさん

NGNG

どこかの海外のコンポーネントで、
ボタン状で、押下するとメニューが出る、
っていうやつがあったと思うんだけど、
どこのサイトだっけ…？

0736デフォルトの名無しさん

NGNG

すいませんＶＢ厨です。
Delphiを使うことになって勉強しるのですが、わからないことがあるので、
教えていただけないでしょうか。

Form1からForm2を開きたいのですが、Form2を同時に何個も開き、
同じ処理をさせたいと思っています。
（例えば、Form1でjpgファイルを選択すると、次々に
Form2が開き、それぞれ異なる画像が表示されるような・・・・）

例えばVBですと、
Dim objForm(10) as Object　　　'オブジェクト型で配列を作成
Set objForm(i) = New Form2　　'オブジェクトのコピー
objForm(1).Show　　　　　　　　　'1.jpgが選択されフォーム表示
objForm(2).Show　　　　　　　　　'2.jpgが選択されフォーム表示
のようにすると、Form2を何回も再利用できますよね。
このとき、2.jpgを選択すると1.jpgのフォームは残しておきたいのと、
例えば画像をクリックしたときに何らかの動作ができるようイベント
も取得したいと思っています。
Delphiでは、どのようにすれば実現できるのでしょうか。
過去スレで似たようなのがありましたが、いまいちピンとこないので、質問
させていただきました。
まったくわからないので途方にくれています。よろしくお願いいたします。

0737デフォルトの名無しさん

NGNG

>>736
Delphiでは、作成したフォームが、既にクラスになってます。
Var
F1:TMyForm;
F2:TMyForm;
Begin
F1 = TMyForm.Create(self);
F1.Show;
F2 = TMyForm.Create(self);
F2.Show;

です。配列にしたきゃ、TObjectかTFormの配列に代入して下さい。

0738デフォルトの名無しさん

NGNG

>>736
なぜ最初に「すいません」と謝るのか。
「VB厨ですいません」と謝っているのか。
だとしたらそれは間違い。
外人に対して「日本人ですいません」と言ってるようなもの。
言語の壁は、ベルリンの壁より厚いが、生垣より低いはず。

0739デフォルトの名無しさん

NGNG

>>737
お、ありがとうございます。
なるほど！なんか、そのように聞いて目の前のモヤがなくなった気がします。
少しだけオブジェクト指向の考え方に近づいたような気がします。

ちと長くなりますが、後進の方のために記述しておきます。

普通に新しくForm2を作ります。
Form1のinterfaceのusesの部分にUnit2を追加し、
arrForm2 :array[0..10]of TForm2;と変数を宣言し、
あとはarrForm2[0] := TForm2.Create(Self);で無事に
つくることができました。
はじめは何故かTFormでオブジェクトを造っていたので、
TForm2に設置したエディットボックスをいじることができず、
悩んでしまいましたｗ

わざわざありがとうございました。
また疑問があったらよろしくお願いします。

>>738
なんか申し訳ないかな？と思いまして。
どもすいません

0740デフォルトの名無しさん

NGNG

>>738
なんか偉そうだな

0741デフォルトの名無しさん

NGNG

>>734
じゃあ、なぜ先にそう書かない
質問スレで小出しすんなボケが

0742734

NGNG

>>741
すいません。

0743デフォルトの名無しさん

NGNG

unit A の interface 部で宣言した定数 CONST_A1 を、unit B で使うためには、
unit B で uses A をするだけではだめなのでしょうか？

"未定義の識別子" となってしまいます。

同じような形で宣言した型 typeA1 は使えるようなのですが。

0744デフォルトの名無しさん

NGNG

>>740
なんかエロそうだな

0745デフォルトの名無しさん

NGNG

>743
いや、それで使えるはずだよ。スペルミスとかじゃないの？

0746デフォルトの名無しさん

NGNG

hogehoge : byte;

このhogehogeの
上位4ビット(age)と下位4ビット(sage)に分けたいのですが、
どうしたらいいですか？
delphiの最小単位がbyteかな？どうすれば。。。

0747デフォルトの名無しさん

NGNG

shl and and

0748デフォルトの名無しさん

NGNG

hogehoge&0xF0
hogehoge&0x0F

0749746

NGNG

>>747さん　>>748さん　ありがとう。
簡単に解決しました。

0750デフォルトの名無しさん

NGNG

MainMenuやPopupMenuの背景色を変える方法ありませんかー？

0751デフォルトの名無しさん

NGNG

オナドロー

0752デフォルトの名無しさん

NGNG

>>750
オナニードロドロ

0753750

NGNG

>751
TMenuBar経由だと出来ないっぽい…

0754デフォルトの名無しさん

NGNG

ScrollBoxにImage1を置いて、マウスドラッグでスクロールさせるには
どんな風にコーディングすればいいのでしょうか？

0755デフォルトの名無しさん

NGNG

>>754
つまんで移動する感じ？
MouseDownとMouseMoveとMouseUpを使用する。
MouseDownでフラグをON
MouseMoveかつフラグONのときに移動
MouseUpでフラグOFF

0756デフォルトの名無しさん

NGNG

>>755
「スクロールさせる」の部分が分からないんじゃないの？

0757デフォルトの名無しさん

NGNG

>>754
var
DragPos : TPoint; DragDown : boolean;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DragDown := true; DragPos.X := X; DragPos.Y := Y;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
MovePos : TPoint;
begin
if DragDown then
begin
with ScrollBox1 do
begin
if HorzScrollBar.Position > HorzScrollBar.Range then HorzScrollBar.Position := HorzScrollBar.Range;
if HorzScrollBar.Position < 0 then HorzScrollBar.Position := 0;
if VertScrollBar.Position > VertScrollBar.Range then VertScrollBar.Position := VertScrollBar.Range;
if VertScrollBar.Position < 0 then VertScrollBar.Position := 0;
HorzScrollBar.Position := HorzScrollBar.Position - (X - StartDragPos.X);
VertScrollBar.Position := VertScrollBar.Position - (Y - StartDragPos.y);
end;
end;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DragDown := false;
end;

0758754

NGNG

>757
うまくいきましたです。ありがとうございます。
ソースの方は、
　・使用されていないMovePosの削除
　・宣言されてないStartDragPosをDragPosに変更
しましたが、それで正しいですよね？

0759デフォルトの名無しさん

NGNG

>>719
根本から分かってない、というのが適切です。その上やりたいことがいっぱいあるんで。もうだめぽ
OwnerDrawでTListViewに項目を描画することすらできない・・・
vsReportでのCaptionは何とか追加できたんですがSubItemが描画できません
そこで、お願いがあります。
Button1をクリックするとListView1(vsReport)にOwnerDrawで
|A　|B　|C
|D　|E　|F
と描画する方法を教えてください。どのイベントで何を発生させればいいのかすら分かりません。
それさえできれば試行錯誤で他のもできるようになると思いますんで。

0760デフォルトの名無しさん

NGNG

>>759
何がわかっていないのかわかってるならそこから調べればいいだろ？
根本からわかってないならそもそもOwnerDrawが何なのか調べろ

0761デフォルトの名無しさん

NGNG

Delphiに未来はあるんでつか？

0762デフォルトの名無しさん

NGNG

Delphiにあったとてお前には無い

0763デフォルトの名無しさん

NGNG

Streamとかって、LoadFromStream/SaveToStream出来ますが、
２つのStreamを１つに繋げるには、どう書けばよいですか？

0764デフォルトの名無しさん

NGNG

var src1, src2, dest: TStream;
dest.CopyFrom(src1, 0);
dest.CopyFrom(src2, 0);

0765デフォルトの名無しさん

NGNG

有難うございました>>764
0だと全部読んでくれるんですね。

0766! 759

NGNG

>>760文句言うなら最初から答えるなよ。知障、スレタイ読めヴォケ

0767デフォルトの名無しさん

NGNG

IndyのIdHttpServerって例外が消されるんですか？
エラーが知りたい場合どうすんでしょ。
エラーメッセージだけでも欲しい。

0768デフォルトの名無しさん

NGNG

>>766
文句じゃなくてアドバイスだろ
超初心てのは何がわからないのかもわかってない香具師
何がわからないかわかっているのに調べないのはただの馬鹿

0769デフォルトの名無しさん

NGNG

>>759
Demosディレクトリの下にOwnerlstってサンプルがあるから見てみたら？
リストビューじゃなくてリストボックスだけど、基本は同じ。

0770デフォルトの名無しさん

NGNG

質問する方でPC JapanのDelphiの記事を見て始めた方は一言書いてください。
特典があります。

0771デフォルトの名無しさん

NGNG

>>770
メール覧の厨房撃退ってなんだ？荒らすなボケ。

0772デフォルトの名無しさん

NGNG

ﾊｧ? 寝ぼけてんのかこのヴぉけ失せろや

0773デフォルトの名無しさん

NGNG

お前が厨房丸出しだろ

0774デフォルトの名無しさん

NGNG

>>770
見て始めましたが何か？
どんな特典か楽しみですね。
あなたが真性厨房になる所が見られるのですか？

0775デフォルトの名無しさん

NGNG

必死だなｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

0776デフォルトの名無しさん

NGNG

で、特典って何よ？

0777デフォルトの名無しさん

NGNG

厨房撃退は荒らしです。無視しましょう。

0778デフォルトの名無しさん

NGNG

荒れろ荒れろｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

0779デフォルトの名無しさん

NGNG

>>778
厨房うぜー。

0780ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>759
各項目のCaptionの描画まではできているのですね．

リストビューコンポのオーナー描画機能は何度も拡張されたためにややこしくなっていますが，基本的にはOnDrawItemイベントのみを使うと考えてください．
（OwnerDrawプロパティをTrueにしないとこのイベントは発生しません）
このイベントは項目ごと発生します．項目の見出しやサブアイテムごとに描画イベントがあるわけではありません．イベントハンドラでは項目の見出しとそれに対応するサブアイテムの描画も同時に行います．

イベントハンドラには項目の見出しとサブアイテムの描画領域は渡されませんが，
・全体の領域（上下左右の端）→引数Rect
・各領域の上と下の端→引数Rectと同じ
・見出し領域（一番左の領域）の左端→引数Rectと同じ
・それぞれの幅→(Sender as TListView).Columns[（カラムのインデックス）].Width
これらから各領域が求められます．

なお選ばれている項目の強調表示やフォーカス（点線枠）の表示も自分で描画しなければなりません．イベントハンドラの引数Stateを参照して，選択されていたりフォーカスがあることがわかるように描画してください．

0781ななしへたぐらま ◆XcB18Bks.Y

NGNG

「…と考えてください」って言い切ってしまいましたが，全然違うじゃないか＿|￣|○
すいません．出直してきます（首つりAA略）

0782デフォルトの名無しさん

NGNG

すごい初歩的な質問なんですが・・

「'」を出力したいのですけど・・
C言語では「\」を前につければ出力できますが、パスカル言語では？

0783　

NGNG

chr($27)

0784デフォルトの名無しさん

NGNG

ここはバカばっかりか！
糞でるふぁ～い　　　ぷー

0785デフォルトの名無しさん

NGNG

>>784
Delphiユーザは、「糞して、死ね」が合言葉だからね。

0786デフォルトの名無しさん

NGNG

>>766　誰？
>>780-781　thx

0787782

NGNG

>>783
ありがとうございます！

0788７８３

NGNG

あれ。もっといい答えがあるのかと思った（＾＾；

0789デフォルトの名無しさん

NGNG

>>780
他のイベントは通常どおりでOnCustomDrawItem等のイベントを色々設定すればいいんですよね？

0790ねこま

NGNG

TListView の CustomDraw は２つの方法がありまして，１つは DrawItem プロパティを True して OnDrawItem イベントですべてを描く方法．
もう１つは DrawItem プロパティを False のまま OnCustomDrawItem, OnCustomDrawSubItemイベントで描く方法です．

後者では DefaultDraw 引数でキャプションやフォーカスの描画を任せるかどうかが決められます．
更に細かいステージが必要なら OnAdvancedCustomDraw, OnAdvancedCustomDrawSubItem イベントを使えとありますが，
これらはバグっていて cdPrePaint 以外が発生していません．

0791デフォルトの名無しさん

NGNG

>>782
''''
#39
#$27

0792デフォルトの名無しさん

NGNG

''''

0793ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>790
助け船に感謝致します．

ところで後者の方法では項目の表示領域はどうやって取得するのでしょうか？
OnDrawItemイベントと違って表示領域を引数で渡してくれるわけではないようなので
試そうとして行き詰まってしまいました．

（というか数年前に同じ場所でつまづいたきりだったのを思い出しました…）

0794デフォルトの名無しさん

NGNG

Rect:=Item.DisplayRect(drBounds);

0795デフォルトの名無しさん

NGNG

質問する方でPC JapanのDelphiの記事を見て始めた方は一言書いてください。
特典があります。

0796デフォルトの名無しさん

NGNG

StringGrid の一カラムを非表示にして、隠しカラム的に使うようなことは
できないのでしょうか？

0797デフォルトの名無しさん

NGNG

>>796
ビューでデータ管理しようとする無かれ。

0798796

NGNG

>>797
なるほど。了解しました。

0799デフォルトの名無しさん

NGNG

>>796
やれるよ、なんも無いはずのグリッドに値書けるでしょ。

>>797
一説には、ケースバイケースでは？

0800デフォルトの名無しさん

NGNG

＞一説には
憶測でしゃべんな

0801デフォルトの名無しさん

NGNG

さすがにお盆なのでVBプログラマ様もデスマーチから解放されたかな？

0802796

NGNG

>>799
なるほど。できますね。

RowCount, ColCount などは表示上の数ということですか。
実質、値をセットできる範囲の制限とはできるのでしょうか？

なんか気持ち悪いな……。

0803デフォルトの名無しさん

NGNG

MathのInRangeと同じような感じで、
PointがRect内か否かを返す関数ありませんか？

自作は簡単ですが、最適化された関数が
標準であれば、それを使いたいのですが、
ちょっとヘルプで見当たらなくて…。
（探し方が甘い？）

0804デフォルトの名無しさん

NGNG

>>803
PtInRect

http://www.google.co.jp/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=Point+Rect+Contain+Delphi&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

0805803

NGNG

>804
わっはー
ビンゴです。うまく行きました。
元はAPIなんですな。

0806デフォルトの名無しさん

NGNG

>>801
関係ないスレで暴れるなよ。アンチVB厨。

0807デフォルトの名無しさん

NGNG

>>804
俺もちょうどこんな関数ほしかったところだ。タイミング（･∀･）ｲｲ!!

0808デフォルトの名無しさん

NGNG

まともなOOPLならRectangleクラスのメソッド探せば
すぐ目的のメソッドが見つかるのにな。
Delphiって使いにくいね。

0809デフォルトの名無しさん

NGNG

＞Rectangleクラスのメソッド探せば

そんなもんにまでクラス持ち出して・・・激しく重そうだな。

0810デフォルトの名無しさん

NGNG

>>808
まともなOOPLかどうかは関係ないだろ。
DelphiがまともなOOPLだとは思わないが
目的のメソッドが見つからないのは
Delphiが糞だからだ。

0811デフォルトの名無しさん

NGNG

>>810
関係あるだろ。Rectangleのメソッドは高々2･30個しかないから
Containsメソッドを探すのも容易。

それに対してPtInRectはフラットに並んだ数百数千のAPIから探し出す必要がある。
糞なのは手続き型言語全部だな。

0812デフォルトの名無しさん

NGNG

質問する方でPC JapanのDelphiの記事を見て始めた方は一言書いてください。
特典があります。

0813デフォルトの名無しさん

NGNG

>>809
いまや貧乏人の低スペック環境なんか見てないんだよ

0814デフォルトの名無しさん

NGNG

未だにDel厨はクラスが重いとかいってんのか？

0815デフォルトの名無しさん

NGNG

>>813
でもJavaはクライアントサイドじゃ使えないって結論に達してますよ。

0816デフォルトの名無しさん

NGNG

Java？？
Del厨がかく乱作戦に出たようです。

0817デフォルトの名無しさん

NGNG

>>815
サーバサイドでは使えますが何か？
Delphiとは違ってなぁ。

0818デフォルトの名無しさん

NGNG

>>817
＞Delphiとは違ってなぁ。
使えないんですか？絶対に？本当？

0819デフォルトの名無しさん

NGNG

Delphiはクラスにするととても重くなるのです。

0820803

NGNG

ﾏﾀｰﾘしる！(・∀・)
ここは初心者向け質問・解答のスレっすよ！

バトルしたかったらそういうスレにGo！！

0821デフォルトの名無しさん

NGNG

なんでクラスが重いんだ？
馬鹿じゃねーの（ｗ

0822デフォルトの名無しさん

NGNG

>>821
禿げ同。しかし>>809のような勘違いさんがいるのですよ。
Delphi使いの恥です。もう氏ねと。

0823デフォルトの名無しさん

NGNG

いやいや、Rectangleを数千個とか使うのなら、どうだろう？
RecordのRectと比べて、クラスの方が当然コストはかかるだろう

0824デフォルトの名無しさん

NGNG

お前ら無知だね。
DelphiでRectangleクラス作ったら重いだろ。
これはもう言語の構造的欠陥といってもいい。

0825デフォルトの名無しさん

NGNG

馬鹿大増殖（ﾌﾟﾋｭー

0826デフォルトの名無しさん

NGNG

ここはスタックとヒープの区別のつかないお馬鹿ちゃんが集うスレですか?

0827デフォルトの名無しさん

NGNG

listviewで数字のソートがうまくできないんですが・・・・
みなさん取り込み中？

0828デフォルトの名無しさん

NGNG

SortType

0829デフォルトの名無しさん

NGNG

>>827
ヘルプも読めないバカ登場

0830デフォルトの名無しさん

NGNG

>>828　知障？

0831ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>794
ありがとうございます．Del5のTListItemのプロパティ一覧には出てこないので見落としていました…．

>>796
昔やりましたが >>797 さんに賛成．
情報を表示・編集（操作）する場所と保管する場所はできる限り分離した方がよいです．Delphiのデータベースコンポはまさにその良い見本になっているのですが，Per版ユーザーに見る機会がないのはもったいない話．

>>802
RowCount/ColCountは実際の数を返すはず．

>>811
私の場合Win32日本語ヘルプ（例の古いやつ）でカテゴリ別で調べたのでそんなに苦労しませんでした．Win3.1時代に電話帳のようなAPIリファレンスを買ったものの全くといって良いほど使わなかった苦い経験が生きているのでしょうか．

0832デフォルトの名無しさん

NGNG

try～finally文について質問です。
finally節は、エラーが起きても確実に実行したいコードを
書くところだと理解しているのですが、エラーが起きてないの
にtry節でExitを実行してfinally節を通過することを期待す
るようなコードの書き方は正しいのですか？
たとえば、

StringList:=TStringList.Create;
try

（処理１）

　if f = False then　←処理２を実行する必要がないときは抜ける
　　Exit;←①

（処理２）

finally
　StringList.Free;←②
end;

①で抜けても②が確実に実行されることはヘルプに書いて
あるのですが、エラーが起きてないのにfinally節へ飛ぶ
のを期待するのは作法としていいんでしょうか？

0833デフォルトの名無しさん

NGNG

もちろんいいよ

0834デフォルトの名無しさん

NGNG

>>832
そうじゃないとException型を引数としたキャッチと同じになってしまう。

0835デフォルトの名無しさん

NGNG

begin
　try
　　exit;
　finally
　　foo;
　end;
end;
は
begin try
　try
　　raise ExitException.Create;
　finally
　　foo;
　end;
except(e: ExitException) end; end;
とexitは例外で、最外周に暗黙のtry excpetがあると解釈しろとかいう説明が以前あったな。

0836デフォルトの名無しさん

NGNG

PC Japanを見てはじめました。

誰か解凍ソフトの作り方教えろ。

0837デフォルトの名無しさん

NGNG

DLLを作っていて文字列形の返し方が分かりません。
誰か教えてください

0838デフォルトの名無しさん

NGNG

>>836
http://forum.nifty.com/fdelphi/samples/01185.html

0839デフォルトの名無しさん

NGNG

>>837
dll作ったときに長々とコメントとして書いてあった気が。

0840デフォルトの名無しさん

NGNG

>839
あれはDelphiのString型としての話ではなかったっけ？
Cと互換の文字列ならまた話は違うかと。
…と、未経験者なので適当に語ってみた(;´Д｀)

0841デフォルトの名無しさん

NGNG

Delphi.NETって、VB.NETやVC#.NETみたいにWindows APIを使用するときには
宣言は必要ですか？　それとも不要？

0842デフォルトの名無しさん

NGNG

文字列のアドレス渡してもい、そこに文字列を入れておけばいいんじゃなくて？鉄郎

0843デフォルトの名無しさん

NGNG

デザパタのCommandパターンのDelphiでの実例を
分かりやすく解説してくれているページってありませんか？
UNDO機能を実装したいんです。

0844デフォルトの名無しさん

NGNG

×UNDO機能を実装したいんです。
○UNKO機能を実装したいんです。

0845デフォルトの名無しさん

NGNG

Undo;

0846デフォルトの名無しさん

NGNG

>>843
TObjectListにCommandオブジェクト彫り込んでいけば？

0847デフォルトの名無しさん

NGNG

命令すんな

0848デフォルトの名無しさん

NGNG

>>847
dcc32.exeよ、気持ちは分かるがそう怒るな。

0849デフォルトの名無しさん

NGNG

よろしくお願いします。Ｄｅｌｐｈｉ７です。
再生／録音のピークメーターを実装したいのですが、
どこから始めればいいのかさっぱりです。
Ｗｅｂでも、そういう記述ないし・・・・。

サウンドカードにピークメーターが実装されている場合
には可能のようなんですが、実装されてない場合は、
どっからもってくればいいんでしょうか。
ＯＳ標準のマイクのテストなんか、あっさりと実現してい
るんですよね・・・・。
どなたか、お教え下さい。

0850デフォルトの名無しさん

NGNG

>>849
ピークメーターって何ですか？

mmsystem.hに関しては多少知識がありますが。

0851デフォルトの名無しさん

NGNG

>>850
最大音量制限では？

0852デフォルトの名無しさん

NGNG

>>851
ミキサーいじればOK？

0853デフォルトの名無しさん

NGNG

>>850
ありがとうございます。
要は、入力可能最大音量を100%として、現在、何％の
音量が入力されているかを知りたいのです。

例えばWave録音するときに、一定以下の音量の場合
は録音を停止したりできればいいなぁ・・・・と。
どなたかお知恵をお貸しください。

0854デフォルトの名無しさん

NGNG

>>853
Wave取り込んで現在の音量÷量子化数×１００とかは？

0855デフォルトの名無しさん

NGNG

開始から10秒までにボタンを押したらこれ、20秒までに押したらこれ、のように、
時間によって判定の結果を変えたいのですが、どういう文を書けばいいのでしょうか？
ご指導お願いします。

0856デフォルトの名無しさん

NGNG

>>855
開始時刻を記録。

ボタンが押されたら現在時刻と開始時刻から経過時間を求める。

似る成焼くなり。

0857デフォルトの名無しさん

NGNG

>>849
waveファイルの処理は、MCIや低レベルAPIを使うのが一般的なんだが、
849の目的なら低レベルAPIかな。
ある程度、Waveファイルに関する知識が必要。

Cだけど、
http://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-058.html
http://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-059.html
http://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-061.html

詳しい解説なら、
http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?W-NIPS=9974043190
に、Waveの解説から再生・録音のサンプルがある。

0858デフォルトの名無しさん

NGNG

>>857
＞ある程度、Waveファイルに関する知識が必要。

PCMについての知識なら解るけど、内部でもRIFFチャンク形式でやりとりするの？

0859デフォルトの名無しさん

NGNG

>>858
内部では、PCMのバイナリデータの読み書き。（WAVEFORMATEX構造体）
ただ、849は再生・録音をやりたいらしいので、RIFFチャンク形式の知識も
必要になる。

0860デフォルトの名無しさん

NGNG

Delphiで他アプリが送信したパケットを取り込んだりできますか？
ようするに、他アプリのネットへの接続に、プロキシ通したいんですが。
（靴下は鯖が少ないのでダメ＆SockCap32てのがあるんで。

0861デフォルトの名無しさん

NGNG

送信「した」のに？

0862デフォルトの名無しさん

NGNG

すいません
他アプリ（普通のネットにつなぐﾔｼ）　→　Delphiで作成したソフト　→　串 →　お目当てのサーバ
と、こんな風にしたいんですが。

0863デフォルトの名無しさん

NGNG

Timerの使い方がよくわからないんですが…。
どういうコードを書けばいいんでしょうか？

0864デフォルトの名無しさん

NGNG

それ以前に何がしたいんだ?

0865デフォルトの名無しさん

NGNG

>>864
まず質問に答えてください！

0866デフォルトの名無しさん

NGNG

>>865
それもそうだな、スマンスマン。で、何がしたいんだ？

0867863

NGNG

すいません、863＝855です。
課題（？）で音ゲーを作ろうと思っています。
判定を秒単位で三段階くらいに分けたいんです。
そのためTimerを使って、指定された時間±何秒、とかで結果を変えたいのですが、
ネットや本などに載ってないので…
よろしくお願いします。

0868デフォルトの名無しさん

NGNG

>>855
Timerは一定間隔で何かをするときに使うものだからちょっと違う。
GetTickCount使え
startTime := GetTickCount;
ってやっといて
ボタン押されたら
(GetTickCount - startTime) div 1000
で経過時間が得られる

0869Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　 ∧,,∧　　　
　　　ミ,,ﾟДﾟ彡　
　　ﾐ　つ旦)~~　
　～と,,,~),,~)

Timerは使わなくてもいいのでは？？

プログラム起動時に
TTime型の変数にNowで時間を取得しておいて

あとはボタンを押した時に
Nowで時間を取得して、
起動時からどれくらい時間が経ったかを
判定する。

という処理の流れになるのではないでしょうか。

って、>>868さんとかぶったな。
精度が必要ならNow関数より
GetTickCountがいいっすね。

0870863

NGNG

どうもありがとうございます！それで進めてみます。

0871デフォルトの名無しさん

NGNG

接続されたライブカメラや、デジカメのプロパティを開きたい
のですが、どうすればいいでしょう。。。
通常のコンパネのスキャナとカメラからは見ることのできない
プロパティ画面がカメラに存在するようなのですが・・・・。

あとコンパネのマウスのプロパティとか、キーボードのプロパ
ティはShellApiを使って開けるのですが、そのなかでも特定の
タブを選択した状態で表示させることってできるんですかね。

0872デフォルトの名無しさん

NGNG

>>871
systemディレクトリの
*.CPLを開けば出来る

0873デフォルトの名無しさん

NGNG

>>872
全部開いてもでてきませんですた・・・・
デバイスドライバのＤＬＬとかに入っているのかな・・・

0874山崎渉

NGNG

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

0875デフォルトの名無しさん

NGNG

>>857
ありがとうございます！
まだ観てないのですが、取り急ぎお礼まで。
Ｗａｖｅ関連はコンポーネントがあるので、その知識は
必要とはしないです。とにかく、入力音量の値だけ
持ってくることができれば、それにあわせてTrueと
Falseを設定してあげれば済むので・・・・。

また質問させてもらうかもしれません。よろしくです。

0876デフォルトの名無しさん

NGNG

>>875
shine

0877デフォルトの名無しさん

NGNG

unitAで宣言しているレコード型変数を引数にして、
unitBにある関数に渡すことは出来ますか？

unitBでレコード宣言したら
[エラー] edit_form.pas(313): 'unitA.Thogehoge' と 'unitB.Thogehoge' には互換性がありません

と出たんです

0878デフォルトの名無しさん

NGNG

var unitB.Thogehoge rec;とユニット名を修飾するか
'unitB.Thogehoge' の定義を削除。

0879デフォルトの名無しさん

NGNG

'http://www.foo.com/cgi?SJISの漢字'
をエンコードするにはどうすればいいですか?

0880デフォルトの名無しさん

NGNG

>>878
どうも

0881デフォルトの名無しさん

NGNG

usesで指定してあるMessagesとかの中身というか、定義をみたいのですが・・・・

0882デフォルトの名無しさん

NGNG

>>881
Del6Per使ってるなら
C:\Program Files\Borland\Delphi6\Doc\*.intを検索

後は一手間かかるけどこっちがお勧め
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5BTips%5D%5D#content_1_13

0883デフォルトの名無しさん

NGNG

質問です。

Delphi6Personal版のコードエディタで、行末でカーソルを→に入れたら
次の行頭に行かずさらに右に進んでしまうのですが、
こういったDelphi独自（？）の操作性には慣れるしかないのでしょうか？
設定でよくあるエディタのように行頭に行くようにしたいのですが…

0884デフォルトの名無しさん

NGNG

>>883
ctrl + →

0885デフォルトの名無しさん

NGNG

ふと
#define begin {
#define end }
を思い出した。

0886デフォルトの名無しさん

NGNG

は？

0887デフォルトの名無しさん

NGNG

>>886
別の言語も知っておいた方が良いぞ。
特にDelphiはC言語知ってると世界が広がる。

0888デフォルトの名無しさん

NGNG

delphiのヘルプに他のヘルプのキーワードを追加したいんですがどうにかやる方法ありますか？
delphi6 personalです

0889デフォルトの名無しさん

NGNG

>>887
C言語はまったくわからないけど
Borland C++を使ってみたほうがいいかな？

0890デフォルトの名無しさん

NGNG

>>889
WindowsAPIの宣言読替とか位は出来るようになってた方が楽ちん。

0891デフォルトの名無しさん

NGNG

>>890
マジな話Cもpascalもまったくわからん。
一から始めるならどっちから始めるのがいいとおもう？
Borland C++ Compiler 5.5
Borland Delphi 6 Personal
よくわからんから薦めてくれたほうを使ってみる。

0892デフォルトの名無しさん

NGNG

>>891
何がしたい?
単なる勉強ならC/C++を、
GUIなツール等を作りたければDelphiかC#Builderがいいよ。

0893デフォルトの名無しさん

NGNG

>>892
C++Builder外した理由は？

0894デフォルトの名無しさん

NGNG

無料版がないから

0895デフォルトの名無しさん

NGNG

>>892
何がしたいかって言えば仕事ではなく勉強かな。
今落としていてすぐに使えるのはBorland Delphi 6 Personal
今から落としてみようかと思ってるのはBorland C++ Compiler 5.5ってとこです。

何か実用レベルの物を作るとかじゃなくてまずやってみながら覚えていきたいというレベルの話しなのですが
タダでできるもので勉強してみたいのでBorland C++ Compiler 5.5のほうがいいですか？

Delphiは書籍も出てないしC++の方は解説書も沢山出ているのでわかりやすいのかもしれないですね。
どうもCは難しそうなんで敬遠してたんだけどいまからやってみます。
どうもでした。

0896Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　 ∧,,∧　　　ども。
　　　ミ,,ﾟДﾟ彡
　　ﾐ　つ旦)~~
　～と,,,~),,~)

BigエンディアンやLittleエンディアｒン
周りの処理をしているのですが

Result: WideString
UpByte, DownByte: Byte;

Result[i] := UpByte + DownByte;
や
Result[i] := DownByte + UpByte;

こういうことをやりたいのですが、
上記コードではうまくいきません。

どうやったらうまく上位バイトと下位バイトとで
WideStringに値を入れる事ができるでしょうか？
よろしくお願いします。

0897Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　 ∧,,∧　　　
　　　ミ,,ﾟДﾟ彡　　　すまそ。解決しまつた。
　　ﾐ　つ旦)~~
　～と,,,~),,~)

Result[i] := WideChar( (UpByte) + (DownByte) * $100 );

このようにしたらよいようです。

0898デフォルトの名無しさん

NGNG

htonlとか使えよ。

0899Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　 ∧,,∧　　　 >>898
　　　ミﾟДﾟ,,彡　　　ん？俺？
　　ﾐ　つ旦)~~

0900デフォルトの名無しさん

NGNG

いちいちAA貼るなよｳｻﾞｷﾞｺ

0901デフォルトの名無しさん

NGNG

>>871
DirectShowで入力フィルタのプロパティページを開くのはどう？

0902デフォルトの名無しさん

NGNG

>>897
8bitシフトとかじゃあかんの？

data = ((data and $ff00) shr 8) or ((data and $00ff) shl 8);

0903デフォルトの名無しさん

NGNG

>>884

thx！
いくらか触った感じだとDelphiはプログラム自体の設計はいいのに
エディタの操作性が微妙だから７でそのへんが良くなってるといいんですが…。

0904デフォルトの名無しさん

NGNG

>>903
慣れですよ。慣れ。

0905デフォルトの名無しさん

NGNG

TPageControlを使っているので、すが、
タブの高さが小さくて選びにくいです。もう少し大きくするには
どうしたらよいでしょうか？

0906デフォルトの名無しさん

NGNG

TabHeight

0907デフォルトの名無しさん

NGNG

>>905
こする

0908905

NGNG

>>906
ありがとうございます

>>907
今回は>>906さんの方法を利用させていただきました。
頂いたアドバイスは、別の機会で参考にさせていただきます。
ありがとうございました。

0909デフォルトの名無しさん

NGNG

>>907
ｳﾜｯｵｷｸﾅｰﾀﾖ

0910デフォルトの名無しさん

NGNG

・・・ってネタレスなんか期待してねーんだよ!!
真面目に答えろ!

0911デフォルトの名無しさん

NGNG

>>910
慣れですよ。慣れ。

0912905

NGNG

TabHeightを３０ぐらいにして、大分いい感じになりました。
逆に０にしてもタブが非表示にはなりません。
１にすると変な感じですし。タブを非表示にすることは、
どうすればいいでしょうか

0913デフォルトの名無しさん

NGNG

少しはヘルプ見ろよ。

0914905

NGNG

>>913
インストールしたフォルダの中に、ヘルプファイルがありました。
ありがとうございました

0915デフォルトの名無しさん

NGNG

フォームのタブクリックしてF1でヘルプが出るよ

0916デフォルトの名無しさん

NGNG

そりゃあるさ

0917デフォルトの名無しさん

NGNG

かちゅ～しゃで、
>>3みたいなところにカーソルを合わせると、
フォームじゃない、コメントのような枠？が出てきますが、
それをするにはどうすればいいですか？

0918デフォルトの名無しさん

NGNG

>>917
確かイベントが発生したはず。

0919デフォルトの名無しさん

NGNG

＞917
THintWindow

0920デフォルトの名無しさん

NGNG

ActiveXコンポネーント使いたいけど、うまく取り込めません。

ttp://miyake.no-ip.org/FreeSoft.asp
ここのWhoisComをつかいたいんですけど

0921デフォルトの名無しさん

NGNG

920さんに便乗なんですが
OCXってActiveXとどんな関係があるのですか？
ネットで説明探しましたが概念が全然わかりません
VB用（としか書いてない）のOCXをdelphiで使うことは出来るのですか？
本当に何がなんだかわかりませんのでおながいしまつ

0922デフォルトの名無しさん

NGNG

>>918-919
ありがとうございました

0923デフォルトの名無しさん

NGNG

>>921
おんなじようなもんでつ。

0924デフォルトの名無しさん

NGNG

>>920
なんかエラーでも出るの？
何事もなく取り込めて使えたけども。(Del6 Per)

0925デフォルトの名無しさん

NGNG

Delphi6Personal版で、

program FirstCode;
begin
writeln('Hello!');
readln;
end.

ってプログラムがちゃんと動かなかった。なぜ？

0926デフォルトの名無しさん

NGNG

エラーメッセージは?

0927デフォルトの名無しさん

NGNG

>>925
＞readln;

胡散臭い。エラーメッセージは？

0928デフォルトの名無しさん

NGNG

プロジェクトを作るとき
[ファイル|新規|その他]でコンソールアプリ選んでる?
これやらないとエラーになるかも。

0929デフォルトの名無しさん

NGNG

>>925-926
「モジュールUnit1でエラーが発生しました。TForm1クラスの宣言が無いか間違ってます。」
です。

0930デフォルトの名無しさん

NGNG

>>929
フォーム消したな・・・。

0931デフォルトの名無しさん

NGNG

>>924
当方win2k + Delphi5pro

1.WhoisCom.dllを\WINNT\SYSTEM32のｼｽﾃﾑﾃﾞｨﾚｸﾄﾘにｺﾋﾟｰ
2.ｺﾏﾝﾄﾞﾗｲﾝから Regsvr32 WhoisCom.dll
3.Delphi起動　[ｺﾝﾎﾟｰﾈﾝﾄ]→[ActiveXｺﾝﾄﾛｰﾙの取り込み]

でﾘｽﾄにWhoisComが出てｲﾝｽﾄｰﾙﾎﾞﾀﾝで出来るんですよね?それらしいのが無い。
追加ボタンでwhoiscom.dllを直接指定してみたけど出てこない。
何か間違ってますか?

0932デフォルトの名無しさん

NGNG

>>931
[プロジェクト]→[タイプライブラリの取り込み]

0933デフォルトの名無しさん

NGNG

>>932
うまくいきました。
有難うございました。

0934デフォルトの名無しさん

NGNG

AのalignをLeft,BをBottomにしたら、

┌──┬──────┐
│　　　│　　　　　　　　 .│
│　　　│　　　　　　　　 .│
│　A　│　　Form　　　 .│　　
│　　　│　　　　　　　　 .│
│　　　│　　　　　　　　 .│
│　　　│　　　　　　　　 .│
├──┴──────┤
│　　　　　　　　　　　　　│
│　　　　　B　　　　　　　│
└─────────┘

になったんですが、

┌──┬──────┐
│　　　│　　　　　　　　 .│
│　　　│　　　　　　　　 .│
│　A　│　　Form　　　 .│　　
│　　　│　　　　　　　　 .│
│　　　│　　　　　　　　 .│
│　　　│　　　　　　　　 .│
│　　　├──────┤
│　　　│　　　　　　　　 .│
│　　　│　B　　　　　　 .│
└──┴──────┘

のようにするにはどうすればよいですか？

0935デフォルトの名無しさん

NGNG

＋－＋－＋
｜Ａ｜Ｂ｜
＋－＋－＋
として（パネルＡはLeft, BはＣｌｉｅｎｔ)
Ｂの上に
＋－＋
｜B1｜
＋－＋
｜B2｜
＋－＋
を乗せればいい

0936デフォルトの名無しさん

NGNG

>>934
多分
bのparentをFormとAがあるパネルに移動する

0937デフォルトの名無しさん

NGNG

>>935,936
どうも

0938デフォルトの名無しさん

NGNG

色々やってる厨です。　delhpi6 Personalです。

要は実行時に色々ellipseやrectangle図形を描いてそれをメタファイルとして
保存なりコピーしたいのです。
なるべく簡単な実現方法をしりたいですけど。

やってみたのは
imageコンポーネントに
image1.canvas.ellipse(x,y,x,y)なんて描画したのを

emf/wmfファイルとして保存　あるいはクリップボードにコピーするのは

image1.Picture.Metafile.SaveToFile('c:\hi.wmf');
clipboard.Assign(image1.Picture.Metafile);
(image1.Picture.Metafile.assign?)

なんて気軽にやったところで無理です。三時間ばかり格闘してますが
var
　MetaFile : TMetaFile;
　MetaCanvas : TMetaFileCanvas;
という
ヒントらしきものが今漂流中に手に入ってます。

だれか助けてくだされ

0939デフォルトの名無しさん

NGNG

http://www.asahi-net.or.jp/~HA3T-NKMR/vcl2-8.htm

0940デフォルトの名無しさん

NGNG

>>938
Image1.Picture.SaveToFile('a.bmp');じゃだめなんか？

0941デフォルトの名無しさん

NGNG

>>938
順番が逆。図形を描いてからメタファイルにするんじゃなくて、
最初からメタファイル作っといてその上に描く。

MetaFile := TMetaFile.Create;
MetaCanvas := TMetaFileCanvas.Create(MetaFile, 0);
MetaCanvas.Ellipse(x, y, x, y); { 問題の図形を描画 }
MetaFile.SaveToFile('higedance.wmf'); { ファイルに保存 }
Image1.Canvas.Draw(0, 0, MetaFile); { 画面にも出したければこう }
MetaCanvas.Free;
MetaFile.Free;

0942デフォルトの名無しさん

NGNG

Win2k,XPだとTEdit等の文字列がUnicodeで9xはSJISという噂は本当ですか？
だとするとSelStart等を使うコードをOSごとに切り替えるなんて糞面倒くさいことをするんですか？
これはひどいDelphiの限界ですね。

0943デフォルトの名無しさん

NGNG

>>942
ﾌﾟ　見事に引っかかってやんの
それはVB厨吊るための偽情報ですよ。

0944デフォルトの名無しさん

NGNG

もう少し待ってれば>941さんのスマートなコードにありつけたのに…

Image1.Canvas.Draw(0, 0, MetaFile); { 画面にも出したければこう }
ってのを
image1.canvasに対して同じように
image1.Ellipse(x, y, x, y); { 問題の図形を画面に描画 }
ってやってしまってました。
図形の数だけゴチャゴチャでなんて汚い、
と思って二つのimage1.canvasとmetacanvasをTlistにいれてみてキャストしてメソッドだしたり
assignかな、とかやってみたけど失敗で諦めてました。

本当に参考になります。

までも、自力で推測して近いとこまでいけたのは嬉しいかな。
>939さんありがとうございます。

0945デフォルトの名無しさん

NGNG

でも次の問題が…
描いたmetacanvasの一部領域のみを、保存したいとき、
もうひとつ保存用のstoreMetafileというのを作ってそこでmetacanvasからcopyrectして
保存という案で

storeMetaFile := TMetaFile.Create;
storeMetaFile.Height := 50;
storeMetaFile.Width := 50;
storeMetaFile.Enhanced:=true;

storeMetaCanvas:=TMetafileCanvas.Create(storeMetaFile, 0);
storemetaCanvas.Pen.Color:=clblack;
storeMetaCanvas.brush.style:=bsClear;

sourceRect := Rect(0,0,50,50);
MyRect := Rect(0,0,50,50)
storeMetacanvas.CopyRect(MyRect,metacanvas,sourceRect);
//eMFの書き込み
storeMetaCanvas.Free;
storeMetaFile.SaveToFile('C:\dtert.emf');

で中身なしのemfファイルができてしまうのです。
これも二時間以上googleとかで調べてもわからない…。
copyrectはビットマップのみなのかなとか諦めムードです。

0946デフォルトの名無しさん

NGNG

>>943
Del7でそういうコードを書いたよ。SelStartやくにたたん。

0947デフォルトの名無しさん

NGNG

Visual Basic.net とか　Visual c++.net はどこで入手できるのでしょうか？
Visual Basic5,0　はマイクロソフトのＨＰでダウンロードできたのですが

0948デフォルトの名無しさん

NGNG

>>947
ちょっと大きめのパソコンショップへ。

ダウンロード出来たって言うのはVB5CCEの事かい？

0949デフォルトの名無しさん

NGNG

>>947
Del厨ならDel厨らしくDelphi使いなよ。

0950デフォルトの名無しさん

NGNG

>948さん
ありがとうございます。ＶＢ５はＣＣＥの事です。
パソコンショップ行って来ます。

>949さんもありがとうございました。

0951デフォルトの名無しさん

NGNG

>>950
お決まりなので次スレよろしく。

0952デフォルトの名無しさん

NGNG

まともな解答者が居ないのに次スレなんて要るのか？

0953デフォルトの名無しさん

NGNG

スマン　ちょっとＨＤＤは壊れるわ納期は次々くるわで、答えてられんかったんよ。

0954950

NGNG

950です。パソコンショップ逝って来ました。
おかげでVisual c++.NET の予約できました。
でもよく見るとここDelphiスレだったんですね（汗

お決まりらしいので新規にスレッド作成しておきました。

0955デフォルトの名無しさん

NGNG

くだすれDelphi(超初心者向け） Part5
http://pc2.2ch.net/test/read.cgi/tech/1061090908/

0956デフォルトの名無しさん

NGNG

KylixのCLXで作ったヤツを、
WinのDelphiのVCLへ、
移植は簡単に出来ますか？

0957デフォルトの名無しさん

NGNG

>>956
手動移植が一番

0958デフォルトの名無しさん

NGNG

DelphiのCLXなら殆ど手間はかけなくて良いと思うが？

0959デフォルトの名無しさん

NGNG

>>958
でもCLXだと配布が大変ちゃう？

0960デフォルトの名無しさん

NGNG

>>945
メタファイルってのは描画の手順を記録したものだから、
ビットマップみたいに一部分だけ切り取るなんてことはできん。
うまくいくかどうかわからんけど、クリッピングして描いてみるってのはどう？

var rgn: HRGN;
rgn := CreateRectRgn(0, 0, 50, 50);
SelectClipRgn(MetaCanvas.Handle, rgn);
{ ここでMetaCanvasにあんなことやこんなことを… }
SelectClipRgn(MetaCanvas.Handle, nil);
DeleteObject(rgn);

0961ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>883
Del5，Del6なら、コレ。（Del7はわかりませんが）
フリーカーソル無効化アドイン
http://homepage1.nifty.com/fuu/software/nonfreecursor.htm

>>912
ノートブックコンポ（TNoteBook）の代用を検討されてみてはいかがでしょうか．

0962デフォルトの名無しさん

NGNG

>960
ソースは先にクリッピングしておいてから、そこに描く、という感じなんですよね。
ありがとうございます。でもとりあえず描いてしまったものの一部を切り取りたい
んですよね…。

>描画の手順を記録
なんですよね。!!てことではっきり解決方向が見えました。

実行時、描画した順番(コード)を何らかの方法で再現させればいいのでは、と。
ユーザーがフロントエンドで円や四角形を描いたときの内部コードをそのまま再現させる
という感じ。

一番楽なのは、そのコード丸ごと文字列に入れて、あとでそれをそのまま実行してくれたら
、と夢のような。

極端なこと言ってしまえばユーザーがエディトボクスに、デルファイコードそのままの
metafile.ellipse(0,0,60,80)って入力して「実行」なんてコマンドボタンを押して描画する方法
があれば、一瞬にして楽に解決なんだけど。

0963デフォルトの名無しさん

NGNG

'ellipse,0,0,60,80'を解釈・実行するなんて簡単だと思うけど。
全命令に対応するのは面倒だけど。

0964デフォルトの名無しさん

NGNG

>>962
メタファイルってのは正にその描画した順番を再現する仕組なのだが。

メタファイルをもう一個用意して、クリッピング領域を指定してから
元のメタファイルを再生すれば切り抜きになるんでないの。

0965デフォルトの名無しさん

NGNG

次スレの季節だがこのまま全滅ってことになりそうだな。

0966デフォルトの名無しさん

NGNG

>>965
次のスレッドって、もう立っているようなきがするけど。
くだすれDelphi(超初心者向け） Part5
http://pc2.2ch.net/test/read.cgi/tech/1061090908/l50

0967|Д・彡 ◆A6VzDeLphI

NGNG

>>955

0968デフォルトの名無しさん

NGNG

Delphiでグラフィックをいじるなら、SOFTBANKから出ている
「Delphi Graphic Secrets」という本がサンプルコードなどが沢山のっていて
とても参考になる。著者はかの中村拓男氏。

0969デフォルトの名無しさん

NGNG

ｱﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊｯﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ
ﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊﾊ

レス数が950を超えています。1000を超えると書き込みができなくなります。