1 ：
デフォルトの名無しさん ：
2006/01/27(金) 22:55:50 2 ：
デフォルトの名無しさん ：2006/01/27(金) 22:56:21
3 ：
デフォルトの名無しさん ：2006/01/27(金) 22:57:14
4 ：
デフォルトの名無しさん ：2006/01/27(金) 23:00:04
Delphiの文法って、Perlなんかでいうヒアドキュメントって使えますか?
ない
だいたいソースにリテラルでながぁーい文字列打ち込むのは変だろ。
そうなところにスクリプト言語とコンパイル言語の差みたいなもんがあるよね。
やっぱり無いですね。
HTML形式で出力するプログラムを書いてますが、
既存のHTMLソースから貼り付けてそのまま使えたらと思ったのですが・・
>>8 アドバイスありがとうございます。
リソース使うのがやはり作法ですかね
Delphi 6 PersonalでTheme Managerをインストールする方法を教えてください。
12 ：
デフォルトの名無しさん ：2006/01/29(日) 01:57:33
あと今鍵取得するときにいる登録をしてもなかなか鍵が送られてこなかったりする
ごめん書く場所みすった
14 ：
デフォルトの名無しさん ：2006/01/29(日) 17:08:20
質問です。Delphi7pro WinXpです。
どこかでfor文のカウンタに使った変数はfor文を抜けた後、中身が保証されなくなる
>>14 昔できなくてあきらめた記憶がある。
>>15 hogeが見つからなかった場合に誤った行番号が表示される。
>>15 Delphi 6 のヘルプの「for 文」には
> for 文の終了後，カウンタの値は未定義になります。
と書いてあるね。
だからそこは、while とか repeat～until を使うところなんじゃない？例えば
Line := 0;
while Line < StrtingList.Count do begin
if StrtingList.Strings[Line] = 'hoge' then Break;
Inc(Line);
end;
if Line < StrtingList.Count then
ShowMessage(IntToStr(Line + 1) + '行目にあるよ') // 行数は1から始まる
else
ShowMessage('どこにもなかたーよ(´･ω･`)');
とか。
18 ：
デフォルトの名無しさん ：2006/01/29(日) 18:33:56
BDS2006のヘルプではこうなってるから問題なさそう。
>BDS2006のヘルプではこうなってるから問題なさそう。
どうしてもfor文で作りたいんなら変数の中にでもいれとけ
21 ：
デフォルトの名無しさん ：2006/01/29(日) 19:42:50
配列を返す関数を作成したいのですけど、
type
それかポインタしてキャストしてやりとりするか。
24 ：
デフォルトの名無しさん ：2006/01/29(日) 19:56:04
>>21 普通にvarなりoutな引数じゃだめなの？。
26 ：
21 ：2006/01/29(日) 20:00:12
>>22 できました。
ありがとうございました。
>>25 戻り値として取得できる方が関数らしいので
そうしたかったのです。
exeファイルから、どのようなコンポーネントが使用されているか
28 ：
15 ：2006/01/29(日) 20:46:47
答えてくれた人ありがとう
Delphi 6 PersonalでTheme Managerをインストールする方法を教えてください。
>>29 エラーが出るDB関係の部分をひたすらコメントアウトしていけばOK。
>>28 全部ってこともないでしょ
処理を抜ける際にループカウンタを別の変数へ代入しておけば大丈夫
32 ：
デフォルトの名無しさん ：2006/01/30(月) 02:35:54
ShellTreeView1.Path := 'C:\Windows'
dosﾌﾟﾛﾝﾌﾟﾄを使用せずにpingのtimeを取得するにはどうやればできるのか教えて下さい
ICMP echoを自前で撃つ
>>32 D6ならバグってるのでShellCtrlsの修正が必要
TTimerで1秒ずつ処理をさせているのですが、
タイマーは優先度が低い、要は精度が凄く悪いんだよ
そうですか・・ではそのtimeSetEventとやらを使ってみます。
間にApplication.ProcessMessageを挟めば直るかも
精度が悪いのはそういう仕様だからで、直りはしないと思うよ
溜まったメッセージが処理されるからイケると思ったけどやっぱりダメか
>>36 timeSetEventは別スレッドだから排他制御しないとバグるぞ。
VCL触るとなると結構面倒。
TTimerのインターバルを10ms位にして(実際は55ms位で呼ばれる)
イベントハンドラ内で1秒経過したかどうかを判定するコード書いたほうが楽だ。
TMMTimer、TZTimerといったコンポーネントを使うと楽
StringReplaceにWideString突っ込んでも大丈夫なんですか？
45 ：
デフォルトの名無しさん ：2006/01/30(月) 11:06:17
BorlandDeveropar2006に入っているDelphiはDelphi7とDeiphi8なのかな？
>>44 StringReplaceに突っ込んだ時点で文字コードがSJISにされるから
SJISにない文字は化けるよりしゃこヲタ
なるほど、Delphiの中の人が出来る範囲で良きに計らってたのですか
てか、StringReplace の第一パラメータは string なんだから、代入するとき
>>37-38 TApplication.OnIdleを使うという手もあるね。
50 ：
デフォルトの名無しさん ：2006/01/30(月) 18:46:31
TComponent直径のコンポーネントを作っているのですが、
>>50 Windowをサブクラス化してメッセージを横取りとか。
質問です。何と呼べばよいのかわからないのですが、ListViewをベースにTree表示もできるコントロール
Virtual Treeviewは？
54 ：
52 ：2006/01/30(月) 21:47:35
>>53 ありがとうございます。まさに求めていたものでした。
このコンポはDelphiのIDEにも使われているのですね。
ライセンスもMPLが選べるので、個人的には問題なしですが、
IDEはライセンスどうしているのかな。。。
リストに１００行ほどデータがあるとして、
100行程度なら効率はまったく問題にならないので
いえ、実際は２０００万行ほどあるので、困っています。
今やっている方法は、最初の６万行を別のリストに移動し、移動された
リストを移動させずにやるだけでだいぶ早くならないか?
200万個ファイル作るだけで相当な時間かかるだろうから
>>60 ありがとうございました。
リスト項目を削除しなければかなり(約110倍)速くなりました！！
63 ：
質問 ：2006/01/31(火) 19:11:47
EInvalidPointerクラスの例外が発生しました。
無効なポインタ操作をした時に発生します。
微妙にスレ違いかもしれませんが、DelWiki避難所ってファイルの添付はできないのでしょうか？
階層化できないのも辛いな
PageControlを置く。
＞TS := TTabSheet.Create(Self);
あと消えてるのはTabSheet3解放してるからに決まってるジャン
>>27 XN Resource Editor で使用しているUnitを調べる
Delphi 2006+WinXPです
(On)CustomDrawItemに渡されるTCustomDrawStateの値は
それでは XP に対応してるとは言い難いな。
>>74 なるほど。
QCに登録しておいた方がいいかな?
数値を123,456,789のように表示するのに
FormatFloat
FormatFloat(',0', n);
Win32のみやるとして、Delphi7とDelphi2006、買うとしたらどっちですか？
どっちもVistaでは動かなくなっちゃうからC#にしといたほうがいいよ。
82 ：
デフォルトの名無しさん ：2006/02/01(水) 20:13:14
文字列を文字数分の * （アスタリスク）に変換したいのですが、
StringOfChar('*', Length(s))
84 ：
デフォルトの名無しさん ：2006/02/01(水) 20:29:04
>>83 う、こんな関数あったんでつか…
Format とか、ずっとヘルプで調べてたのに…
どもありがとうござましたです。
ms := TMemoryStream.Create;
>85
>>80 そりゃ2006でしょ。ただ、開発機がかなりのくロースペックだったら7の方がサクサク動いていいかもしれないが。
ハイスペックだと７のほうが遅くなるのか？
なんでそういう解釈になるのか謎なんだが
何で専用スレでやらないのかと
>>87 D6のIDEに慣れてるのと、2006のIDEはバグだらけって話聞いて迷ってたんですが、
そうでもないんですか？
D6よりよっぽどIDEは安定してると思うけど。
そーなの？ D6を４年つかって不安定と思ったことは一度もない。
D6,7は起動時、フォームデザイン時、終了時にvclxx.bplかrtlxx.bplで落ちることが時々あったな。
４年間、ほぼ毎日起動していちどもない。BDS は起動時、フォームデザイン時、終了時には安定してる？
2006は安定してるけど、箱形選択使いにはお勧めしない。
98 ：
デフォルトの名無しさん ：2006/02/02(木) 09:44:18
グラデーション表示させるTooBarにテキストを置く方法を教えてください。
Panel + PaintBox でいかようにも描けるだろうに
Del7を毎日使ってるが、終了時にエンドレスエラーになったり、別のプロジェクト開くときに
組み込んだコンポーネントはIDEと同じプロセスで動くようになるから
オレのDel6は去年マシン買い換えてから
VS2005 はそんなことは一度もないな。まだ2ヶ月しか使ってないが。
D6はWinXPでマルチスレッドのアプリケーションをデバッガで走らすとOSごと落ちるね。
ほんと糞だね。XPって
突っ込むところはそこなのか
だって2000じゃ落ちないし
俺今200個近くｽﾚｯﾄﾞ使うｱﾌﾟﾘ作ってるけど落ちないぞ？
.dpr:プロジェクト全体の構成を記述してる
delphi compiled unitでないのと調べずにかきこ
.rc : コンパイル前のリソースユニット
あんた詳しいな
cfgはConfigじゃね？
114 ：
デフォルトの名無しさん ：2006/02/02(木) 22:41:42
Del6 Personalです。
ない。ガリガリってほどでもないよ。
アクション結びつけるだけじゃないの
聞かれたことに黙って答えろ
黙って、尚且つ答えないといけないのか。
VCLアプリで、TEditなんかでCtrl+Aをおしても「すべてを選択」されない
>>119 ActionListかActionManagerで標準アクションの追加でTEditSelectAll を追加する。
cfgはコマンドラインコンパイラが使う。
GetAsyncKeyStateでテンキーではない1～0が押されているか検知したいのですが
>>123 { VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
$00000030-$00000039って事ですね。
126 ：
114 ：2006/02/03(金) 19:47:38
>>115 即レスありがとうございます。
幸い、そのものズバリのサンプルを見つけましたので参考にして実装してみます。
UTF8なURL encodeってどうやるの?
RFC読むかIndyかなんかで手抜き
フォームにTMemoを乗せました
あ、本当だ。 仕様なのかな。
サブフォームにvsReportにしたListView置いて、メインフォームからShowで表示させた途端にKernel32.dllの書き込み違反だかって言うエラーダイアログが断続的に出るんだけどどうすればいい？
>>129 PopupMenuのAutoPopupをfalseにしておいて、FormのOnMouseDownでtrueにして、
OnMouseUpでfalseにするというのはどう？
MouｓeEnter/Leaveを使ったほうがいいと思うけど、2006じゃないと駄目かな。
132 に一票。
何でOnMouseDown？どうせならOnContextPopup使えよ
136 ：
129 ：2006/02/04(土) 15:54:35
レスどうもです
137 ：
129 ：2006/02/04(土) 17:14:37
OnContextPopupを使うとAutoPopupをfalseに戻す方法がわからなかったので
OnMouseDown/OnMouseUpだとフォームからmemoに右ドラッグしたときに、
139 ：
129 ：2006/02/04(土) 20:32:09
>>138 全く気づきませんでした。その通りですね
さっそく修正します
すみません・・質問です
えー、標準以外のコンポをインストールしたことないの？
TWebBrowserの拡張版であるTEmbeddedWBを使っています。
HTMLドキュメントをロードした後に、アンカー(<a name="hoge">)に
ジャンプする方法が分かりません。
Navigate('
http://example.com/index.html#hoge ')は当然できるんですが、
メモリストリームから読み込んだドキュメント内で移動したい場合は
どうしたらいいでしょうか？
(ロードした後で、Navigate('#hoge')とかやってみたけどだめでした。)
MSDNのWeb Devlopment以下を必死でみてるんですが、
MSDNの読み方に習熟してないのと、COMの基礎が分かってないので苦戦しております。
よろしくお願いします。
>>141 レス感謝です
早速、教えて頂いたように試してみます
プログラムフォルダのBorland Delphi Personal Installerが、146MB
>>147 お前は次に「それってどうやってやるんですか？」と言うッ！！
150 ：
デフォルトの名無しさん ：2006/02/05(日) 21:18:51
メディアプレイヤーコンポーネントでMIDIを再生しているのですが、
いったん止めてもう一度普通に再生しようとした時と同じ処理をすれば良い
>>151 最初のファイルの指定はオブジェクトインスペクタでファイルネームを指定したんですが
もう一度再生するときに
mediaplayer1.filename := 'another.mid'としても、最初に指定したMIDIが流れてしまうんです。
フォームにbutton1、button2、button3を置いてbutton1のonclickに
コンポーネントは Assign メソッドは実装されていない。
155 ：
153 ：2006/02/05(日) 22:08:58
>>154 なるほど、コンポートだと駄目なんですか。
どうもありがとうございましたm(_ _)m
156 ：
デフォルトの名無しさん ：2006/02/05(日) 22:11:26
コンポート
どうして button2. と打つと Assign が候補にあがるのは何故？
>>157 メソッドが存在しないわけではない。
メソッド自体は TPersistent から public に存在している。
TButton などのコンポーネントのクラスで「オブジェクトのコピー」という動作が実装されていないだけ。
まず一旦Assignのヘルプを嫁
なるほど！ overrideして自分で処理を書いて使うものなんですね？
改めて伺いますが、メディアプレイヤーコンポーネントで
「複数のMIDIファイルを扱う」ってなんやねん
もうめんどくさいからMIDIの数だけコンポーネント置けばいいんじゃね？
TListView.ItemsでTStrings.Exchangeのように項目を入れ替えるにはセコセコと値を
ほかにどんな方法があると考えられますか？
つCustomSort
>>162 ひとつのメディアプレイヤーコンポーネントで、任意のmidi,fileを鳴らせるようにしたいということです。
ﾌｧｲﾙの拡張子を直接変えるにはどうすればよいのでしょうか？
>>169 RenameFile
ChangeFileExt
質問です・・
>>81 それはDelphi2006にしとけという意味ですか？
質問です。
>>174 標準のコンポーネントでやるなら、ActionMainMenuだね。
>>173 それネタだから気にしない方がいいよ。
結局VｉｓｔａでもWin32/64がネイティブみたいだし。
178 ：
174 ：2006/02/06(月) 13:46:05
>>176 ActionMainMenuですかぁ。途中まで調べて却下していました；；
やってみます、ありがとうございました！
>>175 VCLでの話でした。説明が足らずにすいまっせん。
Delphiでプログラムを組めてる方に質問です
最初は公式サイトを見て入門向けのようなプログラムをつくりましたか？
先輩からオラクル使ったデータベースアプリのソース渡されて後は独学
俺も
>>181 と同じだ
当時はまじで全然わからんかった
俺はちょっと違う。 先生からミラクルもらった。
184 ：
デフォルトの名無しさん ：2006/02/06(月) 19:08:41
185 ：
デフォルトの名無しさん ：2006/02/06(月) 19:09:20
はじめてのDelphiって本を買った。
187 ：
184 ：2006/02/06(月) 20:29:33
>>180 ・クイックスタートガイドのチュートリアル見ながらメモ帳もどき
・TActionManagerがPerに無かったから標準アクション相当のコード書いてみる
・テキストの一括置換ソフト書いてみる(全部Unit1.pasに実装)
・スパゲッティコード完成
・begin/endが気に入らないのでBCBに以降
・憂鬱本とかデザパタ本読む
・自分でクラス書いてみる
(以下略)
DelWiki by PukiWikiﾏﾀﾞｰ
>>180 1.適当なサンプル
2.15パズル（ゲーム）
3.パックマン（ゲーム）
4.ちょっとしたツール ← 今ここ
5.もう少し便利なソフト ←いまここ
0.IrvineをコンパイルしようとしてD6のあまりの不安定さにブチ切れ ← 今ここ
>>179 付属のマニュアル類。
サイトなんて気軽に見られる時代ではなかったが、紙のマニュアルは充実してた。
最初に書いたのはマンデルブロ集合を描画するソフト。
当時は、言語を習得する最初に必ず書いてた。
１．作りたいソフトを考える
アクセスキーを非表示にする方法を教えてくだされ。
メニュー項目の AutoHotkeys プロパティを maManual に設定します。
198 ：
デフォルトの名無しさん ：2006/02/07(火) 14:59:55
ValueListEditor で EditStyle を esPickList にすると、ドロップダウン
割り方教えて下さい。
まともな質問文書く事すら面倒なら今すぐ息の根を止めてみましょう。
201 ：
デフォルトの名無しさん ：2006/02/07(火) 16:36:17
ADSI使ってパスワードの有効期限を7日後にしようとしています。
質問は、簡潔に。普遍的に。特化しない。
>199
MDIの親フォームにスクロールバーを付けないいっちゃん簡単でエレガントな
TUIWebBrowserを使ってソフト作っているんだけど、
imagelistでdrawメソッドつかったらなぜかグレー一色になったんだけど
>>205 Form2.Parent := Form1;
Form1からForm2を作成して表示する際、Form2のFormCreate中で
211 ：
202 ：2006/02/08(水) 09:34:27
>202
>>210 Form2を生成する前に設定すればいいじゃん
>>211 TDateTime型の宣言を見なさい
その後にdt := Now() + 7;の意味を考えなさい
それで分からないなら諦めなさい
>>210 Form2に変数フラグを引数とするコンストラクタを追加する。
215 ：
210 ：2006/02/08(水) 11:01:03
>>212 とりあえず Form1 で変数フラグを Public で宣言し、
Form2 の中で Form1.hoge などとしました。
が、スマートでないというか・・・
>>214 できれば具体的にお願いしたいのですが・・・
プロジェクトオプションの「自動作成の対象」からTForm2を外す。
217 ：
210 ：2006/02/08(水) 11:55:54
>>216 ばっちりでした。ありがとうございました。
コードもすっきりしました。
218 ：
201 ：2006/02/08(水) 13:30:18
>213
今日から７日後ですね
220 ：
デフォルトの名無しさん ：2006/02/08(水) 14:48:38
斜めの直線を描画してそいつをドラッグアンドドロップしたいです。
そう思うならまずはやってみなさい
222 ：
デフォルトの名無しさん ：2006/02/08(水) 15:27:36
それだと出来るんですけどそれだとフォーカスを取る範囲が無駄に広くなったり、重なったりします。
すみません・・質問があります
いまさらOpenIrvineかよ
× 教えてくださいまで
m(_ _)mとか^^;とかウザイのですが
ActionMangerのカテゴリを追加・変更するにはどうすればいいのでしょう？
>>228 Actionのプロパティで存在しないカテゴリを設定すれば勝手にできるよ。
230 ：
228 ：2006/02/08(水) 18:46:01
StringGridで1セルに二行以上の文字を表示させる
delphiインストールしてみたいんだけども、米ボーランドからライセンスの取得 のところで激しく行き詰ってしまいました
>>234 お前には二つの選択肢がある
１ 英語を勉強する
２ 日本語を勉強する
>>235 とりあえず米のところでダウンロードはしたんだけども
keyが載ってないんだ…
MP3ファイルを2曲同時に再生していますが、TrackBarなどで
お前さんがどうやってMP3を再生してるか分からないのにその情報なしで答えろと？
240 ：
240 ：2006/02/09(木) 09:30:27
ボタンなどの上で左のマウスボタンを押し、
241 ：
240 ：2006/02/09(木) 10:38:37
自己解決しました。
Delphi 、 終わったな
お手軽に暗号化を実装したいのだけど・・
RC4とかメジャーなやつならいくつかコンポーネントある。
一応指摘しておくけど、MD5で暗号化なんてできないよ。
つかWin32APIにある。
システムのプロパティを表示するコードをお願いします
>>250 sysdm.cplをShellExecuteする。
さすがにコード例はいらんでしょ？
252 ：
238 ：2006/02/09(木) 22:48:04
>>239 すんません。
現状は鳴らすだけの状態でTMEdiaPlayer2つを使ってます。
ただこれだと音量調整が出来ないしWaveOutSetVolumeを使ったら
両方音量が下がるし…という状態です。
MD5はハッシュ関数でしょ。 暗号化はCRC。
ここは笑うところですか？
>>253 パネルのサイズが変わるとそれに応じて伸縮して全体を表示しようとしてしまう。
画面が切れてもいいから伸縮しないようにしたい。
という質問だと承りました。
であればフロントバッファのサイズをパネルのサイズに合わせる必要があります。
具体的には以下の通りです。
パネルのサイズが変わるときに
FLastPP.BackBufferWidth:=Panel1.Width;
FLastPP.BackBufferHeight:=Panel1.Height;
http://gamdev.org/up/img/4608.zip
>>256 うまく行きました。ありがとうございます！！
258 ：
245 ：2006/02/10(金) 18:17:56
>>247 ありがとす。
Blowfish でやってみます。
解放忘れたオブジェクトの型とかでないの?
>>260 出ないですし、変数もTForm1だけなんで解放忘れでもないので、
何なのか困り果ててますorz
デバッガで追いかけたらDestroyに入ったので異常終了でもないですし
リークしてるメモリ領域ダンプしてVMT読めばクラス名がわかる
DLLを読み込んでる関係でメモリマネージャが勘違いしてるのかな
>>259 そのサンプルではメモリリークは出ないけど。
>>265 わざわざ検証してくれたのか。
ありがとう
267 ：
デフォルトの名無しさん ：2006/02/11(土) 14:41:03
何か良い本ない？
試した。
で…別に何ともない。
そもそもEXEとDLLではメモリマネージャが別なので…
ということはだ。ShareMemかなんか使って無いか？
>>259 Free; と FreeAndNil(); ってどう違うの？
>>270 Free。
後々nilにしておく必要がある時も、a.Free; a := nil; と明示的に書いた方がいいと思う。
FreeAndNilの引数は形無しで、class型を後々recordに直したような修正に弱い。
ただ、解放しないといけないものがいっぱいあってめんどくさいときはFreeAndNil並べた方がいいかも。
マウスカーソルを変える場合、
>>271 FreeAndNilもかなり明示的だと思うが。
>>270 nil突っ込みたかったらFreeAndNil推奨。
nil突っ込む必要がなければFreeを呼ぶだけでよい。
なぜnilを突っ込むかといえばpが無効であることを明示できるから。
if Assigned(p) then // pが初期化済みならFooを呼ぶ
p.Foo;
みたいなコードが書ける。
おまけ
p.Free; p := nil;と手書きした場合の問題点
・Free(内部のDestroy)で例外吐いたらnilがセットされない
・Freeした直後に別スレッドでpにアクセスした場合pはdestructされた参照を保持していておかしくなる。
でもrecordがメソッドをもてるようになったから、classからrecordに変更したくなることも確かにあるね。
>>275 ・デストラクタで例外なんてのは回復不可能と見なされる類のものじゃないか？
・異なるスレッドから同じ変数にアクセスする時は同期しろよ
バージョン管理システムのJVCSを使ってる方いますか？
>>273 ヘルプに書いてない?
Screen.Cursors にLoadCursor APIで返ってきたハンドルを格納。
>>277 1オブジェクトのデストラクタが例外吐いても
動き続けるかどうかはアプリが決めることだし
assignedチェック程度は同期取らずに行うかもしれない。
そういったケースでもなるべく正しく動くようにするささやかな試みってだけ。
FreeAndNil使うか手書きでnilぶち込むかは最早好みの領域だろ
>>282 渡された型が何だろうと、上で言われてるようにデストラクタで例外出ようと
FreeAndNilは確実に対象をnilにするという点ではそっちの方が優れてる
手書きで毎回FreeAndNilと同じ動作させるのはめんどくさすぎるし
284 ：
281 ：2006/02/11(土) 20:03:10
普通に好みの問題だと思うし両方の問題点も出たし
285 ：
273 ：2006/02/11(土) 20:05:26
>>284 そう思うならスルーしろよ
あんたが一番しつこい
287 ：
281 ：2006/02/11(土) 20:57:18
はぁ？消えろよカス
288 ：
281 ：2006/02/11(土) 22:19:26
289 ：
281 ：2006/02/11(土) 22:40:28
偽者も含めて281は消えろ
>>280 VSSは使ったことがないのでどんなものか分からないのですが、とりあえず入れてみました。
結構使いやすいみたいなんですが、日本語を使うとちょっと問題ありますね。
293 ：
281 ：2006/02/12(日) 02:30:29
偽者いい加減にしてくれよ。ほんと。
TMyClass = class
そうだよ
>>294 何をもってして「全く別の」とするかがよく分からんが、
動作自体は同じユニットでも別ユニットでも変わらないと思うが？
>>295 ありがとうございます
>>296 説明不足でしたが、継承したクラスから継承元のprivateにアクセスできるか?
っていう質問です。
>>297 > メンバーは，それが定義されているクラス内だけで使えるようにする場合は private として宣言します。
> 定義されているクラスとその下位クラスだけで使えるようにする場合は，protected として宣言します。
と、Delphi6のヘルプ
(カスタムコンポーネントの作成 - コンポーネント開発者のためのオブジェクト指向プログラミング - アクセスの制御)
に書いてあるね。
ただし、同一ファイル内に限るなら、private でもアクセスできてしまう。
まあ、
>>294 のようなコードは書かない方がいいというのは間違いない。
300
301 ：
デフォルトの名無しさん ：2006/02/14(火) 03:53:00
ラベルのフォントの高さをセンチメートル単位で指定して、
302 ：
デフォルトの名無しさん ：2006/02/14(火) 04:04:06
303 ：
デフォルトの名無しさん ：2006/02/14(火) 04:22:03
なんか匂う
>>301 同じ解像度でも物理的に同じ長さになるなんて保証ないんですが
初回起動時にでも四角形とトラックバー2本表示して、
そんな糞UI使う気にならないけどなｗ
ちょっと本がでてこないからうろ覚えだけど
DPI取ってスケーリング
>>308 ユーザーがモニタを調整できるので精密なことは、やっぱりユーザーまかせにしないといけないね
ディスプレイを17インチから21インチに変えたけど
TListViewのvsReportでｶﾗﾑﾍｯﾀﾞｰがｸﾘｯｸされた時にｿｰﾄしようと考えているのですが
退避領域？
プロジェクトファイルをダブルクリックで開こうとすると「ファイルが見つかりません」と
パスが長すぎとか日本語とか
>>313 データベースから値を取得してるんであれば
クリックされたカラムでORDER BYかけるとか
そうでないならCompareイベントにソート処理書いてそれを呼ぶとか
>>313 なんとなくこんな感じ。
TForm1 = class
SortIndex: Integer;
SortAscending: Boolean;
end;
procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
if Column.Index = SortIndex then
begin // 同じカラムがクリックされたらソート順を逆にする
SortAscending := not SortAscending;
end
else
begin // 別のカラムがクリックされたら昇順でソート
SortIndex := Column.Index;
SortAscending := True;
end;
// 左端の空欄をクリックした場合ソートしない
if SortIndex = 0 then Exit;
ListView1.SortType := stNone;
ListView1.SortType := stData;
end;
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
begin
if SortIndex = -1 then begin
Compare := 0;
Exit;
end;
Compare := // todo: SortIndexに応じて比較
if not SortAscending then
Compare := -Compare;
end;
319 ：
313 ：2006/02/14(火) 20:05:42
>>317 ,318
よくわかりました。ありがとうございました。
Delphi7入れたのですが、起動してデスクトップが後ろに見えていますが
VB.NETなら見えないよ
>>320 状況がよく分からん。デスクトップを見えないようにすると言うことか？？？
IDEを最小化したいなら「環境オプション」－「実行時に最小化」をチェックすればOK。
はずしてたらごめん。
壁紙が見えてしまっているってことだろ？VBとかだと灰色だったような。
>>320 BDS2006をご購入くださいませ
Delphi7まではMDIではありません。
>>325 いや、どっちにしろMDIではないけど。
確かに、初めてDelphi起動した時はウィンドウがバラバラで驚いたな
とにかく何のアプリを使う場合でも、最大化表示やフルスクリーン表示が嫌いな俺には
2005辺りから選べるようになってるんじゃなかったっけ？
330 ：
323 ：2006/02/15(水) 15:31:49
ああ、そういうことか。
Delphi7ですが、
こんなんじゃ駄目なのか
elseが無いっすね。
>elseが無いっすね。
応用力０だな
>>332 に文字列で扱う方法あるんだから
ReadStringで読み込めばいいだろ
mainmanuをcontrolbar内に取り込めませんか？
>>337 MainMenuとToolBarを追加して、FormのMenuプロパティを空にして
ToolBarのMenuプロパティにMainMenuを指定する。
339 ：
333 ：2006/02/16(木) 15:13:04
そうっすね。
比較ができないって点で察しろ
listbox.items.objectsの関連付けについてなんですが、
しょぼい質問すみません。
そーゆー場合は、ユニット名を明示する
よく目にするオークションの価格情報などを表示してくれるソフトのように、
WinInet、IndyとかのGetじゃだめなの？
347 ：
345 ：2006/02/16(木) 19:00:37
>>346 それでできそうです！
ありがとうございます。
TButtonとかTMemoとかの最初のTは、何を意味するのでしょうか？
Type
350 ：
345 ：2006/02/16(木) 20:35:53
IndyのGetで通常のWEBページからの取得に成功しました。
352 ：
343 ：2006/02/17(金) 01:32:04
>>344 ありがとうございます、助かりました。こういう指定方法があるとは知りませんでした。
ところで、別のアプリケーションのTMainMenuのMenuItemを実行させたいのですが、
WindowFromPoint等ではメニューアイテムのhWNDが取得できず、メッセージの
送信先がわからず、行き詰まっています。
一般的にはこういう場合、どのように処理をするのでしょうか。
Win2000以降は他プロセスのハンドルは取得出来ない
delphiなくなっちゃうの？
いいえ
>>352 Menuはウィンドウでないので、ウィンドウハンドルはない。
Menuを持ったウィンドウから辿っていく。
>>353 そんなわけないでしょ・・・。
>>354 DelphiはGoogleが買い取って、フリーウェアにして、
全世界に広めて、VBとCを殲滅します（かも）。
＞Menuはウィンドウでないので、ウィンドウハンドルはない。
＞Menuはウィンドウでないので、
>>357 Googleが買い取るのはまずありえないだろ
言語なんて採算全然取れないんだから、
昔のGoogleならともかく、儲けに走った今は無理
他所でやれ
そういうコメントこそチラシの裏にでも書けｗ
みんな、止めて！
364 ：
356 ：2006/02/17(金) 12:07:01
>>358 ,359
TMainMenuってメニューを開かなくても
ウィンドウハンドル持ってるんですか？
WindowHandleプロパティは自身のハンドルでないし、Handleプロパティは、GetMenu APIなどで取得できるメニューハンドルですよね？
Googleの内側はPythonで出来ていて中の人もPython好き
別にDelphiでGoogleを作るわけじゃない
>>364 GetMenuの戻り値はｈWndですが何か
369 ：
356 ：2006/02/17(金) 12:35:51
>>367 つまり、HMENUとHWNDは同じ物ってことなんでしょうか？
メニューハンドルをたとえばIsWindowVisibleに渡してみると、ウィンドウハンドルが無効です、となりますが。。。
353といい、何か変なこと言う奴が出現してるな
371 ：
356 ：2006/02/17(金) 12:48:08
>>370 私はもちろんそう思ってるのですが、
GetMenuで得られるメニューハンドルがHWNDだというので一応確認してみました。
いちいち噛み付くお前らも同罪
>>352 findwindow->getmenu->GetMenuItemID
375 ：
デフォルトの名無しさん ：2006/02/17(金) 14:46:09
質問があります。
>>375 素直にFreeOnTerminate使わない理由は？
377 ：
デフォルトの名無しさん ：2006/02/17(金) 15:33:37
>>376 プログラムが終了する OnDestroy で WaitFor を使って
スレッドの実行が完全に終了するまで待機したいからです。
FreeOnTerminate = True にしたら Execute が終了した段階
でハンドルが無効になっているみたいで WaitFor を実行する
と例外が発生しますし。
>>342 なのですが、下のように変更する場合、
Pstring(listbox1.Items.Objects [i])^ :='転進中...' ;
Pstring(listbox1.Items.Objects [i])^ :='作戦完了' ;
のようにしちゃっていいのですか？
本当に教えてください。
>>377 プログラム終了するのになんで待つ必要があるわけ？
381 ：
デフォルトの名無しさん ：2006/02/17(金) 15:56:51
>>379 スレッドでファイル処理をしているので、
それらの処理が完全に終わるまで途中
でプログラムが終了されたくないわけです
>>380 本当ですか。よくわかりませんが、ありがとうございます！！
>>375 Terminate
(Resume)
WaitFor
Free
の順ではダメなのかな？
SSL認証で情報を取得したいのですが、
385 ：
デフォルトの名無しさん ：2006/02/17(金) 16:21:13
387 ：
384 ：2006/02/17(金) 17:00:19
おうおう！さっきから何回も
{$WARN SYMBOL_PLATFORM OFF}
おめえ、やるなー
Win32API以外録にサポートしてないんだからプラットフォーム依存も糞もないだろっつうの
ほんとに。Kylix の弊害がここにも。ヘルプにもたっぷり。
>>375 DrawThreadがOnTerminateを呼び出すんだから、その中で
DrawThreadを破棄したらおかしくなるのは当然でしょ。
FreeOnTerminateをTrueにして、OnTerminate内で
DrawThread := nilにして、Assignでチェックしてループって
手もあるけど、>383が確実だと思う。
D7のヘルプから、CLX関連を全部消せないですかね。
7は知らんけど
396 ：
394 ：2006/02/20(月) 15:21:10
>>395 ありがとう、できました。若干手順が違ったので参考に。
2.D7.OHL，D7.OHI，および D7.OHC をテキストエディタで開きます。
3.それぞれのファイルの中で，"CLX" という文字列を含む行の先頭にセミコロンを入力してその行をコメントアウトします。
4.各ファイルを保存します。
5.Delphi\Help フォルダを開き，拡張子が "GID" の隠しファイルをすべて削除します。
こんな感じでいけました。
どもです。
何やってるんだお前ら
解決しようがしまいが俺様以外のやり方は一切認めず指が折れるまで毎日ケチ付けまくる君乙
CLXっていうファイルを削除するだけでOK。
必死だな。文字通り
>>395 394ではないが、超助かった。ナイスな情報ありがとう
procedure ListSort(Param: Integer);
関数内関数を渡しちゃいかん
テキストへの書き込みについてなのですが、
>>403 そうなんだ。でも何で？スタックがズタズタになるの？
>>404 つまり追記ではなく、挿入が行いたいと言うことだね。もちろんできないと思う。
それと、簡単なテキストファイルIOならTStringListを使った方が楽だね。
メモリに入れても問題ないサイズでなければならないけど。
>>407 リンク先の内容全然わかんないけど、
とりあえず呼び出し規約違うからNGって覚えてみる
ありがと
409 ：
404 ：2006/02/20(月) 20:57:23
>>406 つまり、TextFileならメモリに入れないから大容量ファイルも扱えるけど不便、
Stなら簡単だけどメモリを使うと覚えておけばよいわけですね。
イメージ通りにできました。ありがとうございました。
var
St: TStringList;
begin
St := TStringList.Create;
St.LoadFromFile(txtName);
St.Insert(0, '先頭に追加');
St.SaveToFile(txtName);
St.Free;
>>404 TFileStreamで開いてSeekでもしとけ
>>404 関数内関数を渡す事は出来るけど、
そこから外のローカル変数(Paramの事)にアクセスできないじゃなかった？
413 ：
デフォルトの名無しさん ：2006/02/21(火) 11:42:55
Ｄｅｌｐｈｉ７ですがエディタの言語がいろいろ選べるけど
以下のコードを実行するたびにメモリが4KBくらい減っていきます。
Delphi FAQに、あんまりDLLをリンクしたり解放すると、メモリリーク起こすって書いてあったな
4KBってのが何か怪しい
>>417 情報が古すぎる(1999/02/08)けど、今はどうなんだろ？
>>414 は、何もしないDLLを作ってそれで試してみなよ
それで同じ事が起きるなら、開発環境側の問題かな
D6も増えるけど、増えてるのIDEのメモリ使用量だから別にいいやって感じ。
IDE
423 ：
414 ：2006/02/21(火) 16:50:15
>>417-419 この情報はＤ５の時代っぽいから、ＯＫとしました。
>>420 これはやってみましたが、やはり増えました。
なんででしょ；；
>>421 いや～でも、ユーザーにもよるでしょうけど、常時ＰＣ起動で、
何度も関数を発行すると、いつかは大変なことに・・・
とりあえず、DLL無しの方向で検討してみます。
つまりIDEからじゃなくて、アプリ単独で起動してもどんどん増えてくのかっちゅう事ね。
426 ：
414 ：2006/02/21(火) 17:15:22
それはまずいね
StringGridで特定のセルだけ色を変える方法ってありますか
あります
onDrawCellイベント内でCanvasの色を変えればいいのです
431 ：
428 ：2006/02/21(火) 23:51:32
以下を実行すると、アプリのメモリ使用量（タスクマネージャで見えるもの）が激減します。
起動されたアプリがメモリを喰うからでしょ
デバッグ用のメッセージを出力する事ってできませんか？
>>434 WindowsAPIにOutputDebugStringがある。
出力内容はイベントログに表示。
ただしPerはそのイベントログウィンドウがない上に統合デバッガはしっかり吐かれたメッセージ持って行くから統合デバッガ切らないと見れない。
切ればPSDKのDbgMon他の外部ビュアーで見れる。
>>435 統合デバッガを切るなんてできるんだっけ？
単にIDEから起動しないってこと？
437 ：
デフォルトの名無しさん ：2006/02/22(水) 19:25:04
このクソったれにActionManagerの使い方を教えてください。
TImageをフォーム上に生成すると先に生成されたものほど下に表示されるんですが、
>>438 BringToFront
SendToBack
441 ：
デフォルトの名無しさん ：2006/02/22(水) 19:55:58
>>440 いやそれ俺だし！
あっち、レスポンス遅いからついこっちで・・・
>>437 こう？
procedure TForm1.Button1Click(Sender: TObject);
var
Ac: TAction;
Acc,Acc2: TActionClient;
begin
// アクション作成
Ac := TAction.Create(Self);
Ac.Category := 'TEST';
Ac.Caption := 'TESTES';
Ac.ActionList := ActMng;
Ac.OnExecute := OnFunc;
Acc := MainMenu.ActionClient.Items.Add;
Acc2 := Acc.Items.Add;
// TESTというカテゴリを追加
ActMng.AddCategory('TEST', acc);
// TESTというカテゴリ内にアクション追加
ActMng.AddAction(Ac, Acc2);
end;
443 ：
デフォルトの名無しさん ：2006/02/22(水) 20:09:00
>>422 うおーーー！かんどーした！これこれ！ｽｺﾞｽ!
感謝です！ありがとうごじゃりやした！
あとは自分でなんとかします！
444 ：
デフォルトの名無しさん ：2006/02/22(水) 20:09:52
↑あれ？422って誰すか？
>>439 ありがとうございます
はじめからＺオーダーで調べて置けばよかったんですね・・・
お手数おかけしました
>>441 お前は返事を数時間も待てないのか
それと解決したんなら向こうの掲示板自己レスしろよ
このクソったれが
447 ：
441 ：2006/02/22(水) 21:00:01
マルチ視ね
一体マルチのどこが悪いのかわからない。
450 ：
441 ：2006/02/22(水) 21:14:53
>>449 ご教授頂いたやつは問題なしです。
で、便利なように関数を作っていたら、メインメニューをクリックすると例外が出るようになりました。
で、今はこれを調査してます。解決したことはしたんだけど、もうちょっと待ってやってください。
そしたら向こうのスレ、自己レスします。
446のクソったれさん、そういう事でおながいします。
>>449 お前質問に答えた事ある？
せっかく苦労して答えてあげたのに
「別の掲示板で解決したからもういいよ」とか言われたり、
同じような回答が複数の場所で同時にされるのがどれだけ無駄かわかってるのか？
サーバーの容量も無限じゃないし、マルチは無意味な情報が増えるだけだろ
今回も向こうの掲示板放置したままだし、今、向こうの掲示板で回答を考えてる人のことどう思う？
一般的に言って質問する側は緊急度が高く
あれだな
これに懲りたら今後難癖つけるのはやめような。
>>452 >一般的に言って質問する側は緊急度が高く
>答える側はたいてい暇なことが多い。
それはそうかも知れんけど、今回の話とは関係なくない？
>また答えが重複したところでコミュニティの大きさが十分大きければ
>その無駄も相対的に0に等しい。
すまん、意味がよくわからん。
同じような回答が何件も寄せられたら、重複した物は無駄な情報だと思うが。
>よってマルチの価値は高く、反面実害はほぼ０であることが証明された。
マルチの価値の高さが伝わらない。
実害も０じゃなくて少しはあるんだろ？トータルでマイナスなんじゃないの？
ま、マルチだと知ったら放置することにしてるし。
457 ：
デフォルトの名無しさん ：2006/02/22(水) 21:45:26
>>441 解決したんなら向こうの掲示板にレスしろよ、このクソったれが
例外と今回の事は関係ないだろうが、このクソったれが
覚えたての2ch語連発して毎回ageるなよ、このクソったれが
>>452 中二病全開なオレ様理屈乙
飯喰って糞して寝てろ
459 ：
デフォルトの名無しさん ：2006/02/22(水) 23:11:44
自身を再起動するにはどうすれば良いの？
バッチファイルでも吐いとけ
command.com に何かパラメータを渡すんじゃなかった？
>>436 ツール＞デバッガオプション＞一般＞統合開発環境を使うのチェックを外す
>>463 こんなオプションあったのか。ホントに単に実行するだけになるんだね。
使い道はなさそうだけど、サンクス。
>>460 ShellExecute(0, "open", PChar(ParamStr(0)), ...
end.
必要ならmutexで終了待ち
タスクマネージャのタスクに登録されないようにするにはどうすればいいですか？
>>466 回線切って首吊って氏んでおけ（#＾ω＾）
>>466 プロセス列挙系のAPIを片っ端から横取りして書き換えればいい
そのやり方は自分で調べて下さい
>>466 つ rootkit
お問い合わせはSONY BMGへ
>>470 プロセス一覧でなくて、タスクに表示させたくないだけであれば、Application.handleをHideするぐらいでできなかったっけ？
いずれにしてもスレ違いだ。ネタじゃないならWin32APIスレ池
474 ：
466 ：2006/02/23(木) 13:38:22
>>472 それをヒントに出来ました。ありがとうございました。
475 ：
460 ：2006/02/23(木) 14:23:31
散々悩んだあげく、とりあえずMutexとCommandLine引数とWaitForSingleObject使うことにした
>>475 簡単なのは、
WinExec(自分を起動するアプリ, SW_HIDE);
Close;
SMART情報取得するのって難しい？というか出来る？
Delphi7で、FormにTCoolBar、その中に
TToolBar のボタンのXPスタイルがどうの、って３ヶ月おきに質問があるような・・・
481 ：
デフォルトの名無しさん ：2006/02/24(金) 18:16:57
作成したプログラムのメモリリークのチェックってどうすればできますか？
フリーでMemCheckっていうライブラリがあるよ
>>483 ありがとうございます。
ダウンロードしてきます。
485 ：
デフォルトの名無しさん ：2006/02/24(金) 19:59:39
DelphiのTWebBrowserにて、指定のURLに移動し、フォームに情報を入力し
486 ：
デフォルトの名無しさん ：2006/02/24(金) 22:13:49
TPanelってフォーカス捕まえられないの(´･ω･`)?
>>485 表示してから入力せずに、HTMLを取得してタグの初期値を書き換えてから表示させれば？
>>486 ウィンドウハンドルは有るので、捕まえられる。
継承して、関連イベントの可視性広げて、MouseDown で SetFocus すればおｋ。
>>488 OnEnter OnExitじゃダメなんですかね、、
WndProcの中でもWM_SETFOCUSもWM_KILLFOCUSも拾えないみたいで、、 @D6
試してないんでわからんが、
>>489 OnEnter OnExit はアプリケーション内でのフォーカスの移動に応答するイベント。
WM_SETFOCUSもWM_KILLFOCUS はフォーカスの移動が完了したときに受け取るメッセージ。
フォーカスは自動的に与えられるものではない。欲しいときに奪い取るものだ。
よって MouseDown などで SetFocus する必要がある。
WM_ACTIVATEなんかも拾わないしもうだめぽ
>>486 (1) フォームにチェックボックスを一つ置く
(2) その下にTPanelを置く
(3) 実行する
(4) チェックボックスにフォーカスがある状態で、↓キーを押すとあら不思議
下と言うのはY座標上の下って事ね。
コンパイル中に
IDE,コンパイラのバグ
>スタックオーバーフロー
499 ：
496 ：2006/02/25(土) 22:07:51
>>497 最新のパッチを当てても解決しませんでした。最新verの評価版でコンパイル
しても同様のエラーが出ます。
>>498 複数のパッケージを利用してコンパイルしてますが、それらの構築は問題ない
です。構築順序も特に異常なし。
.dcuの出力ディレクトリはデフォルトのままです。使用するパッケージの
オプションは全て{$IMPLICITBUILD OFF}になってます 。
ソースコードをエラーの出る前まで復元し原因を分析した所、新規に作成
したユニットを別のユニットで参照すると発生しました。コンパイル対象
のプログラムは特異なユニット間の参照を行ってるのでそれが原因かも
しれません。レスで指摘された点を考慮しても解決しませんし、コードの
量もかなり多いので原因を完全にはっきりさせるのは難しいです。とりあ
えず問題の参照を無くせばエラーは発生しないので、適当に回避してこの
問題に対処する事にします。レス有難うございました。
500 ：
デフォルトの名無しさん ：2006/02/25(土) 22:27:40
ｄｅｌｐｈｉ７です
プロジェクトに追加、とか無いか？
>>500 そのプロジェクトのあるディレクトリに、使うファイルをコピーするのはどう？一番簡単な方法。
ファイルがあっちこっちに分散するのが嫌なら、パスを通しておくとか。
パスは
「ツール(T)」→「環境オプション(O)...」→「ライブラリ」タブ→「ライブラリパス(B)」
で指定できる。(Delphi6の場合)
503 ：
500 ：2006/02/25(土) 23:05:38
「プロジェクトに追加」で出来ました・・・何やってんだ俺。
for i:=1 to 10 でi=1ならframe1 i＝2ならframe2 を参照するような
findcomponent
配列に入れるとかな
試してないけどこんなので上手くいくかな
nilチェックぐらいしようぜ
レジストリへの書き込みについての質問です。
hoge := TRegistryIniFile.Create('');
511 ：
504 ：2006/02/27(月) 02:20:22
507の方法で試したみたけど
512 ：
504 ：2006/02/27(月) 02:38:30
507の方法で試したみたけど
513 ：
デフォルトの名無しさん ：2006/02/27(月) 04:06:59
514 ：
509 ：2006/02/27(月) 07:54:20
>>510 FileNameはインスタンス生成後に変更することができないので、
それだと結局使えません。。。
質問させてください
517 ：
515 ：2006/02/27(月) 09:00:12
\n入れてみましたけど無理でした
オブジェクトインスペクタでは設定できないよ
519 ：
515 ：2006/02/27(月) 09:25:41
>>518 出来ました
ありがとうございます
本当に助かったですｗ
>>513 Strm := TFileStream.Create('D:\test\testfile.txt', fmOpenRead or fmShareDenyWrite);
が抜けてるよ?
IdHTTP.Getってアドレス先の内容をStreamに保存するんじゃないのかな。
procedure TForm1.Button1Click(Sender: TObject);
Form2のFormStyle弄れ
ｵﾌﾞｼﾞｪｸﾄｲﾝｽﾍﾟｸﾀでForm2のFormStyleをfsStayOnTopに
TIdHTTPServerですが、OnCommandGetイベントの引数、
>>520 レスありがとうございます
レスするときに省いただけでソースには入ってました
改めて、ひととおり貼り付けておきます
------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Strm := TFileStream.Create('C:\test\testfile.txt',fmOpenRead or fmShareDenyWrite); //ここのパスを変えた
try
IdHTTP1.Head('
http://pc8.2ch.net/tech/subject.txt '); //ここのURLを変えた
ProgressBar1.Max := IdHTTP1.Response.ContentLength;
IdHTTP1.Get('
http://pc8.2ch.net/tech/subject.txt ',Strm); //ここのURLを変えた ここでとまる
finally
Strm.Free;
end;
end;
--------------------------------------------------------------
ちなみにこんな感じで、subject.txtをとってきてhogeに入れることは出来るんです
--------------------------------------------------------------
var hoge : AnsiString ;
hoge := IdHTTP1.Get('
http://pc8.2ch.net/tech/subject.txt ');
ShowMessage(hoge);
--------------------------------------------------------------
メモリ上？の変数には書き込めるのに、Strmには書き込めない？
まさかfmOpenCreateにしたらおｋ何ちゅうギャグは勿論ないよな？
イカン、間違えた
528 ：
デフォルトの名無しさん ：2006/02/27(月) 15:46:04
>>527 レスありがとうございます
これで出来ました
Strm := TFileStream.Create('C:\test\testfile.txt',fmCreate);
できたはいいけど、fmCreateとかfmOpenReadとか
よくわかってないんで勉強してきます
ありがとうございました
529 ：
デフォルトの名無しさん ：2006/02/27(月) 17:16:01
パネルのキャプションやステータスバーのパネルにファイル名をフルパスで表示する際、
>>529 MinimizeName
PathCompactPath
532 ：
529 ：2006/02/27(月) 18:01:05
>>531 超サンクス！
PathCompactPathまでは見つけたのですが、MinimizeNameが見つけられませんでした。
ListViewでonClickなんかに処理書いてて
何がしたいのか分からんがとりあえず例外捕まえとけ
onClickの中に下の１文書いとけ
536 ：
533 ：2006/02/27(月) 22:21:39
集合型の変数が要素をいくつ含んでいるか数えるには
ないです。
539 ：
537 ：2006/02/28(火) 00:44:21
ありがとう。でも残念(´･ω･`)ｼｮﾎﾞｰﾝ
541 ：
537 ：2006/02/28(火) 01:30:32
>>540 ありがとう。
K&Rの高速なbitcountとか初めて利用できそうな感じで嬉しげです。
質問いいですか
>>542 h_Menu : HMenu;
h_Menu := GetSystemMenu(Handle, False);
DeleteMenu(h_Menu, 6, MF_BYPOSITION);
DrawMenuBar(Handle);
InsertMenuItemとかってDelphiのTMenuItemのハンドル登録してもちゃんと動く？
>>543 出来ました
ありがとうございます
凄く嬉しいです、感謝してますｗ
お礼にｗをつけるのはナウなヤングの間で流行ってんだぞ！
548 ：
545 ：2006/02/28(火) 16:47:46
549 ：
デフォルトの名無しさん ：2006/02/28(火) 17:12:22
バイナリファイルを二つ読み込んで、それぞれ内容を書き換えた後に
TFileStream
Streamで出来そうだが、TMemoのSaveToFileしか理解していないのでは苦しいだろうな
ストリームってアレですか？
>>550 似たような機能が多くてどのメソッドを使うべきなのか迷いますが
まさに探していたクラスです。ありがとうございます。
>>551 今から猛勉強です。Streamと名前の付くクラスがたくさんあったので
便乗して覚えておきます。
>>552 私も好きなキャラはアンドロメダ瞬でした
本当にありがとうございました。
DelWikiに逆引きが欲しい
７のＩＤＥで、プロシージャの一覧って無かったでしたっけ？
・・質問です
TStringStream
>>556 コードエクスプローラーはCtrl+Shift+Eだったっけ？
それ以上はGExpert
>>557 変数に
Size: Integer;
を追加して、
Size := F.Size - F.Position;
SetString(S, nil, Size);
F.Read(Pointer(S)^, Size);
質問いいですか
563 ：
562 ：2006/03/01(水) 06:09:10
すいません、自分の間違いでした
564 ：
509 ：2006/03/01(水) 08:58:11
どうも無理そうなので、TCustumIniFileを継承してTRegIniFileに委譲するクラスを作って回避しました。抽象メソッドしか実装しなかったので結構楽でした。
565 ：
556 ：2006/03/01(水) 12:34:21
>>559 ＨＥＬＰにバージョンにより云々と書いてある・・・ｏｒｚ
Ｔimageｺﾝﾎﾟｰﾈﾝﾄに表示した画像をクリアーする方法って
>>566 Image1.Picture.Assign(nil);
Form1.Image1.Picture := nil;
569 ：
566 ：2006/03/01(水) 15:00:04
>>567 >>568 出来ましたありがとうございます
どちらかと言うと Form1.Image1.Picture := nil; の方が良いんですね
感謝していますｗ
またお前か
意味もなく準コテハン叩くな
TListViewのカラムはCustomDrawできないの？
自前で書かなくてもできる方法があったと思うんだけど、どこで解説してたか忘れたorz
コピペも面倒なんか？
577 ：
573 ：2006/03/02(木) 00:39:52
せっかく探してきてくれた人に礼も言わずに無視かよ
おっと、はずれだった
>>575 HDF_SORTUP/HDF_SORTDOWNかな？
>>580 あー、それですそれ。どうもです。
確かコモンコントロールのバージョンの関係上XP以降のみでしたっけ。
ちなみに573≠575ですんで。
ｺｰﾄﾞの中からListViewの行を選択したいのですが良い方法ないでしょうか
ListView1.ItemIndex := 任意の行数
ListView1.Items[Pred(gyou)].Selected:= True;
>>582 ListView1.ClearSelection;
ListView1.Items[XX].Selected:=True;
ListView1.Items[XX].Focused:=True;
ListView.MakeVisible(XX,False);
586 ：
585 ：2006/03/02(木) 15:03:10
>>582 間違えた・・・
ListView1.ClearSelection;
ListView1.Items[XX].Selected:=True;
ListView1.Items[XX].Focused:=True;
ListView.Items[XX].MakeVisible(False);
587 ：
582 ：2006/03/02(木) 15:18:20
>>583-586 思い通りに動くようになりました。
助かりました、ありがとうございました。
588 ：
デフォルトの名無しさん ：2006/03/02(木) 16:40:46
TTimerイベント内でループを回して重い処理をしてるのですが
つ TApplication.ProcessMessages
ProcessMessages がダメなら、
>>588 ProcessMessagesやSleepは別に重たい処理を軽くしてくれるわけではない。
重たい処理は重たい処理のまま。
重たい処理で時間がかかるのはいいとしても
Sleep(0)とかやってるならどこでも寝ないから100%使うし
>>592 そりゃ、ProcessMessagesでWinに制御を返しても、
Winのタスクリスト（登録されてるコールバック関数）で他処理が終ったら、
アプリに制御戻ってくるんだから１００％だお。
>>935 Sleepすると自アプリは寝ると思うお。
つか100%になったら困るのか？
スレッド関係ないだろ
OnTimer で Application.ProcessMessages よんだら再入しまくりだろうなぁ
いや Timer1.Enabled := False; でだいじょうぶ
600 ：
588 ：2006/03/02(木) 17:45:27
原因はリンクしている別のDLLでした
ボンクラカワイソス
リンクしただけで100％行くDLLってどんなん
ビジーループなスレッドでも建ててたんじゃね？
教えてください。
606 ：
デフォルトの名無しさん ：2006/03/02(木) 22:40:28
設定ファイルを読み込むにはどうしたら良いでしょうか。
INIファイル、TInifileクラスを使え。
Iniファイル形式にしてTIniFileクラス
かぶった
611 ：
607 ：2006/03/02(木) 23:39:33
612 ：
604 ：2006/03/03(金) 01:12:54
>>605 ありがとうございます。
早速やってみます。
ボーランドに見捨てたらた言語はあきらめて、未来永劫安泰なVBに
おいおい、ド素人どもが
TIniFileは多分そのAPIのラッパーだろ
WritePrivateProfileString等はNT系だとやたら遅いから、
でも微妙に挙動が違う罠があるから注意だ！
TMemIniFileがあるのにTIniFileを使う意味が分からない。
方法は1個に統一してくんねーかな
INIファイルに64kb以上書き込むような超上級者の超高度な議論は他所でやってくれ
64KB制限関係なしにTMemIniFile推奨だな
TMemIniFileは適当に整形もしてくれるんだよね
EXEファイルやDLLファイルのバージョンを調べる関数みたいなものはありませんでしょうか？
VerQueryValueでググレ
↑これで愛着のあったDelphiに見切りをつけてVB.NETに完全移行する決心が付いたよ。
買い手が無かったことに安心するほどの馬鹿がいるスレですか、ここ？
626=627=もう必死杉。
>>625 JBuilderは，よりシンプルにJavaプログラミングができるツールとして
クライアントサイド，サーバーサイドともにサポートを続けていく。
「Peloton」というコード名で開発している次期版はJBuilderの使い勝手を
Eclipse上に実現したものになる。
これって何気にｽｺﾞｽ
JBuilderってとにかく重いっていうイメージしかないんだが、今は違うの？
ジャバコさん談義はすれ違い
632 ：
デフォルトの名無しさん ：2006/03/03(金) 18:41:03
すみません教えてください。
ウルトラ初心者なんですが、
「買い手がつかなかった」事実をいろいろ言い換えたり、言い訳したり、もうたいへん・・・
636 ：
デフォルトの名無しさん ：2006/03/03(金) 19:23:49
632です。
>>634 ありがとうございます。
自力でコンパイラ指令の項を探していて見つたところでした。
書き込む前に自力でまず探せと。
del5がデフォルトで{$A4}で2006が{$A1}なわけですね。
>>632 2006でもデフォルトでは28になるはずだけど、
{$A-}使ってる？
638 ：
デフォルトの名無しさん ：2006/03/03(金) 19:42:30
>>637 コードに{$A-}と書いておくしかアライメントを制御する方法があるんですか?
コードに{$A-}とは書いていないので2006のデフォルトかと思いました。
今まで、Delphi5でコンパイルしていたものを2006でコンパイルしたら
おかしかったのでコードはいじってないので2006のデフォルトかと・・・。
たしかに2006で新規プロジェクトでこのrecord型のサイズを調べると28になってました。
>>638 プロジェクトオプションのコンパイルページにある構造体データの配置はどうなってる？
すみません質問させてください
Button1.Enabled := false;
よく聞けクソ虫。
スクリーンの隅に吸い付くようにするのは、FormのScreenSnapプロパティでできるよ。
Del6にはないなそのプロパティは
>>646 レスどうもです
delphi6では、そのプロパティは確認できませんでした
まあ、いろいろ試してみようと思います
改めてありがとうございました
649 ：
デフォルトの名無しさん ：2006/03/04(土) 08:29:21
>>639 構造体の境界配置という項目がコンパイラの設定の箇所に在ったことに
気が付きませんでした。ありがとうございます。
delphi5のでは構造体を境界配置にチェックが入っているプロジェクトを
2006で読み込むと構造体データの配置が1({$A-})になるんですね。
勉強になりました。
popupmenuでmenuItemを7つ以上作ると実行時エラーでるんですが
完全な新規プロジェクトでやっても出るか？
652 ：
650 ：2006/03/04(土) 10:52:12
>>651 新規だと問題ないです。
七つ目を消すと無事動作します。
別にpopupmenuを作ってmenuitemを作ってもエラーがでます。
新規で無問題ならおまいのプロジェクトに問題があると思うんだが
そんな深い階層のメニュー自体に問題が有るような気が。
655 ：
654 ：2006/03/04(土) 12:25:35
勘違いorz
657 ：
652 ：2006/03/04(土) 16:03:08
なるほどプロジェクトが問題なのですか
エラーの内容くらい欠け
どうせアクセス違反だろ
661 ：
657 ：2006/03/04(土) 18:05:23
関係ありそうなところ少しずつ削っていって原因を特定しろ
>>661 [検索(S)] → [エラーの検索(E...)] で出てくるコンボボックスみたいなやつに
そのエラーのアドレス($00449669)を入れてみるとか。
何をしたときにエラーになるのかくらい賭け
解決する気があるとは思えない
666
関係ないがわざわざキャプチャしなくても、普通のダイアログならCtrl＋Cでテキストをコピーできる。
>>661 お前はまずもうちょっと基礎知識増やして来い
素人に毛の生えたやつほど、先輩面したがる。
デバッガでどこまで追ってみたとか書いてもらわないと
vipperは巣に戻れ。その為に隔離スレをわざわざム板に立てたんだろ。
673 ：
661 ：2006/03/05(日) 04:33:33
なんか皆さん荒れ気味ですねｗ
675 ：
デフォルトの名無しさん ：2006/03/05(日) 06:06:29
>作りなおしはキッツイなぁｗ
678 ：
デフォルトの名無しさん ：2006/03/05(日) 14:49:24
Edit1で何も入力されなかった時にbuttonを押されるとエラーを出す処理を書きたいのですが、
sage忘れ申し訳ないです
エラーって何だ？
>678
>>680 Edit1とEdit2が配置してあり、
Edit1もしくはEdit2のテキストに何も入力がなされていなかった場合にbutton1を押されると、
エラーダイアログを出す、という感じです。
何か入力がされていればそのまま、、、といった感じです。
>>682 結局エラーダイアログなるものが意味不明だが、
要はShowMessageでおｋということなのか？
procedure TForm1.button1Click(Sender: TObject)
begin
if Length(Edit1.Text) = 0 then
ShowMessage('何か書け');
end;
あと681の例だとbreakのとこをExitに変えないとコンパイル出来ないはずだな
684 ：
681 ：2006/03/05(日) 15:34:27
スイマセン他の言語と勘違いorz
>>683 具体例を有難うございます！
Edit1.TextとEdit2.Text両方が書かれていない場合にShowMessageの場合だとどうなりますかね？
これは答えたくないのでしたら答えなくてもいいです。本当に有難うございます
andで結合すればいい
もしくは
どこでも笑えるしね、あれじゃ
ExplorerとのDag&Dropについて教えてください。
おっと・・・DragがDagになってた・・・
692 ：
デフォルトの名無しさん ：2006/03/05(日) 22:29:30
失礼します。今Delphi6で電卓作ってるんですけど
MaskEditというものを調べてみれ
VCLってデータと表示が直結しすぎていてたまに困る。
695 ：
デフォルトの名無しさん ：2006/03/05(日) 23:02:05
文句があるなら自分で作れ。
>>694 基本の面倒な部分は全部作ったから、
残りの簡単な部分は自分で作れってスタイルがVCL（というかDelphi）だと思うが
GUI だけだろ。正規表現もないのに。GUI 以外はサードパーティーだのみ。
>>690 さん
そっち方向は難しいんですよ。
まつたく、VCLの不出来さをこういう所で嘆くんだよな～～。
新生Delphiは、こういうマトモな機能実装に励んでもらいたいよ。
オプソソースのIDE取り込みとかも、励んでやってくれないかしら。
DropSourceってので
検索したらどっかでみつかるかもしれない。
昔、有名なのが
http://www.melander.dk/delphi/dragdrop/ にあったんですが
どこにいったやら,,,DropSource.pas,,,
どうしても欲しかったらメアドさらしてくれたら送ります。
>>699 OLE Drag&Dropの勉強になりそうなサイトですね。
COMはむかし一度だけやったことがあるんですが・・・
702 ：
692 ：2006/03/06(月) 03:39:02
マスクエディット使ってみたんですけど
procedure SetMaskInEdit(TargetEdit: TEdit; Value: Integer);
>>697 すべて１社が用意しろというあなたのそういうとこがビルさんぽくって好きよ
そうそう、Delphi はもともとデータベースのフォントエンドだから GUI ビルダー
× フォントエンド
せめてスレタイくらい読んで適切なスレに移動するくらいの配慮はないのかね
708 ：
692 ：2006/03/06(月) 10:25:14
>>703 レスサンクスです！そのコードで表現したかった表示は出来たのですが
整数ではありません。で処理が止まっちゃいます｡ﾟ(ﾟ´Д｀ﾟ)ﾟ｡
MaskEditに入力された値をカンマ区切りでMaskEditに返してるから整数扱いされないって事ですよね？
>>707 694 からつながってるだろ。くだらない質問にあれこれ言ってなんで移動しなきゃならん？
710 ：
デフォルトの名無しさん ：2006/03/06(月) 12:36:28
指定したウインドウが別のアプリケーションのウインドウに
インチキ技でよければ
つか、OLEドラッグ&ドロップ程度で難しいとか不出来とか言われてもな。
くだすれレベルなんだからスレの主旨から言えばお前が間違ってる
716 ：
デフォルトの名無しさん ：2006/03/06(月) 18:28:18
マクロやインライン関数の書き方を教え給え
>>715 リンク先あんまりよくみてないけど、ToolBar2000+TBXみたいなもの？
>>715 よく分かんないけど2006ならデフォルトでできる気がする
720 ：
デフォルトの名無しさん ：2006/03/07(火) 12:23:08
Delphi6使ってるんですけどファイル 編集などのタブを開いた時に文字化けがひどくて読めません。
722 ：
デフォルトの名無しさん ：2006/03/07(火) 12:30:55
コンポーネントの使い方とかを説明してるサイトってありますか？
723 ：
720 ：2006/03/07(火) 12:33:45
>>721 日本語でというとタブ開くとエンコードかなんかの機能があるんですか？
何分文字化けしてて全く読めないのでどこのタブの上から何番目にあるとか教えていただきたい orz
724 ：
デフォルトの名無しさん ：2006/03/07(火) 12:35:26
>>723 721の日本語でおｋってのは
お前の言ってることが理解出来ないって意味では？
実際俺にも意味がわからない
>>722 どんな用途にどんなコンポーネントが適してるかは経験しかない
Demoフォルダ内を片っ端から見て勉強あるのみ
727 ：
720 ：2006/03/07(火) 13:24:21
化けるのはDelphiだけか？
729 ：
720 ：2006/03/07(火) 13:41:34
俺もスキンのせいかなと思ったんですがDelphi以外のアプリケーションは
・別ユーザー作って試してみる
スキンが原因だろうな おれもむかしなったことある
>>729 > 俺もスキンのせいかなと思ったんですがDelphi以外のアプリケーションは
> 全て正常なんですよね。Delphiで作ったソフトも文字化けしません。
Delphiそのものは、TMainMenu(メニューリソース)を直接使っていなくて、
TToolBarか何かを使って、TMainMenuをエミュレーションしていたような希ガス。
[Delphi-ML:35223] Re: IDE と同じ動作のメインメニューの作り方
ttp://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/article/035/035223.html それで、Delphi以外のアプリケーションも
(メニューリソースか、Windows APIのCreateMenu関数を使っている)
Delphiで作ったソフトも
(TMainMenuを直接使っている)
文字化けしないんじゃないかと。
勘違い乙
>>734 そこまで凄く無いけどTActionMainMenuBarってデフォで入ってんだが…できないと言い切るのはどうしたもんか
タブドッキングとかも標準のTDockTabSetでできるね。
>>738 カスタマイズダイアログは日本語化されてない時点でどうかと。。。
>Sampleカテゴリからは ShellListView ShellTreeView などがなくなっているようです。
>>740 削られたというか、デフォルトではパッケージがインストールされていないだけだよね。
パッケージ入れれば、DelphiはもちろんBCBからも使える。
>>738 持ってない人間が勝手に仕入れた知識で断定するのはやめてくれ
743 ：
720 ：2006/03/08(水) 17:41:54
久しぶりです！あれからDelphi6の文字化けに関して試行錯誤した結果を書いておきます。
思い切ってって…。普通は一番最初に試すよね。。。
今までデルフィーと呼んでました
>>1 のおかげで読み方を初めて知りました。
本当にありがとうございました
Windows Media Playerで再生してる曲の曲名を取得する方法を誰か知りませんか？
ヒント：ウィンドウハンドル
ここはアホしかいないからWin32APIスレ行って聞いた方がいいよ
751 ：
デフォルトの名無しさん ：2006/03/08(水) 19:58:00
ボタン1を押すとラベル1にhelloと表示し、ボタン2を押すとラベル2にbyeと表示
表示したい時
753 ：
デフォルトの名無しさん ：2006/03/08(水) 20:31:10
Delphiは配列に配列を格納できますか？
754 ：
デフォルトの名無しさん ：2006/03/08(水) 20:33:40
うん
array[0..10, 0..20] of integer
756 ：
デフォルトの名無しさん ：2006/03/08(水) 20:39:02
さんくすこ
757 ：
751 ：2006/03/08(水) 20:56:09
＞＞752 レスサンクスです！
visibleの存在忘れてました。
このvisibleってif文の中でも使えますか？
例えば
if 条件 then
エラー1を表示
else if
エラー2を表示
else
処理実行
みたいな感じにしたとき最初にエラーを表示させちゃうと処理実行に移行しても
エラーを表示させたラベル1にはずっとメッセージ残っちゃいますよね？
これもvisibleを記述することによって初期化できますか？
やってみれ！
確かに｡
うっせーばーか
>>746 プラグイン食わせるのが確実
MSNメッセンジャーに現在再生中の曲表示する機能があるけど、あれもプラグイン食わせてる
俺も死ぬまでに一度はプラグインなるものを食ってみたい
>>761 結局SamurizeのWMP用スクリプトに含まれてたプラグインを流用することにしてみた．
CPUが故障しているかどうかを調べる方法をお教え下さい。
CPUがぶっ壊れていたらそもそもマシンはまともに動きません
>>764 PCそのものが全く起動しないかPOSTエラー出て止まると思われ
>>767 どっちかつーたらメモリのデータ化けだろ
以下放置して次の質問へ
773 ：
デフォルトの名無しさん ：2006/03/09(木) 16:18:30
TStringGridの使用方法でお聞きしたいことがあります。
774 ：
デフォルトの名無しさん ：2006/03/09(木) 16:31:06
Editで書き込まれた数値を13桁まで読み取って計算に使おうと思い
>>773 TStringGrid使うならOnDrawCellくらい理解しとけよ。
>>774 StrToInt64
> あとボタンを押した時RadioBoxで選択された値を使って計算させたいと思い
> RadioBoxにそれぞれ変数を与えボタンの処理のとこで呼んでみたんですが
> 計算できません。この辺についても教えていただけるとありがたいです。
意味不明。
778 ：
775 ：2006/03/09(木) 16:40:50
>>777 そういうことか、質問の意味を理解できなかった・・・
んだらObjectsプロパティでも使えばいいだな。
>>777 ColWidth[i]:=0; も考えたのですがマウスで操作出来てしまいます。
>>778 ヘルプだけではちょっと分かりませんでした。
Objectsプロパティの使用方法を教えて頂けないでしょうか？
よろしくお願い致します。
780 ：
774 ：2006/03/09(木) 16:58:35
>>776 13桁で計算できました！ありがとう
とりあえず今やりたいのは、入力してもらった13桁までの値に対して
RadioBox（●1倍 ●3倍 ●5倍 みたいな感じ）から倍率を選んでもらい
[入力された値*RadioBoxで選ばれた倍率→ラベルに出力]
みたいな感じの事をやりたいんですがやり方がわかりません。
最初チェックボックス使ってたんですけどチェックボックスだと倍率を複数選択
できちゃうんで断念しました。
・特定のセルにデータを関連付けたいとき
782 ：
775 ：2006/03/09(木) 17:02:35
>>779 各行にランダムな整数を保持する場合の例。
for N:=0 to StringGrid1.RowCount-1 do
StringGrid1.Objects[0,N]:=TObject(Random(65000));
3行目の数値を変数Xに代入する例。
X:=Integer(StringGrid1.Objects[0,2]);
こんな感じ・・・
Label1.Caption := IntToStr(StrToInt(Edit1.Text) *
>>781 IntegerをTObjectにキャストして突っ込んでるのにTObjectのFreeを呼び出し？
そもそも、PIntegerをNewしてTObjectにキャストしてセット、
解放時にはPIntegerでキャストしてDisposeする方が良いのでは？
785 ：
775 ：2006/03/09(木) 17:03:43
786 ：
774 ：2006/03/09(木) 17:05:25
787 ：
774 ：2006/03/09(木) 17:15:42
やっぱだめでした。delphi6なのでRadioGroupのコンポーネントないんで無理でした。
>やっぱだめでした。delphi6なのでRadioGroupのコンポーネントないんで無理でした。
790 ：
774 ：2006/03/09(木) 17:46:24
すんません勘違いしてました。RadioGroupありました。
791 ：
デフォルトの名無しさん ：2006/03/09(木) 17:46:52
Del6Per でも RadioGroup あるけどな。
RadioGroupってD2かD3にはすでにあった希ガス
793 ：
774 ：2006/03/09(木) 18:00:36
procedure TForm1.RadioGroup1Click(Sender: TObject);
795 ：
774 ：2006/03/09(木) 18:02:14
TDropFileTargetコンポーネントをダウンロードできるところありませんか？
case文の書き方からして違う
いちいち効率の悪い奴だな。
799 ：
774 ：2006/03/09(木) 18:52:18
やっとできました。
お前はすっこんでろ
801 ：
デフォルトの名無しさん ：2006/03/10(金) 01:35:57
失礼します。ちょっと聞きたいんすけどボタンのプロパティーにあるDefaultをtrueにすると
Button1Click は、イベントハンドラだけど、たんなるメソッドでもある。
Button1Click(Sender)で呼べるよ
delphi6 personal で、 Mysqlは使えますか？
806 ：
801 ：2006/03/10(金) 03:05:31
>>805 ボタンが押されっぱなし？みたいな状態かな
とりあえず
procedure TForm1.TKeyEvent1(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then begin
Button1Click(Sender);
end;
end;
みたいな感じで書いてみたんですがうまくいきません。
どこがいけないかご教示願えますか(´･ω･`)？
809 ：
801 ：2006/03/10(金) 03:12:19
ほう。知らんかった。「おしさげ」または「おしげ」と読んでたよ(´･ω･`)
>>801 フォーカスがあるEditコンポーネントによって処理を変えたいってことなら
EditのOnEnterイベントを使う
>>810 全部は試してないがプロ版以上を求めるものばかり
delphiいじりはじめたものです。
814 ：
813 ：2006/03/10(金) 03:54:16
Iventじゃないですね。Eventです。
>>813 ActionプロパティやTActionListでも調べなさい
Delphi personal + Mysql は無理そうですね。
818 ：
813 ：2006/03/10(金) 06:27:01
Actionプロパティに入れたら動きました。
819 ：
デフォルトの名無しさん ：2006/03/10(金) 14:12:35
一回コンパイルして出来上がったプログラムをPageControlでTab形式に改良したい
コンポ選択してShift+Delでカットして
か、オブジェクトツリー上でD&D
普通にCtrl+Cでコピーして、Ctrl+Vで貼り付けだろ。
コピーて
普通キーバインドはDOS IDEだろ。
化石乙
そんな化石なのにまだくだすれレベルなのかｗ
828 ：
819 ：2006/03/10(金) 16:58:03
切り取ればいけるんですね！勉強になりました。さんきゅ
ウォシュレットはいいものだ
TMemo上で、Ctrl+Enterである処理をさせたいのですが、
831 ：
デフォルトの名無しさん ：2006/03/11(土) 01:57:52
IEなんかのブラウザのツールバーにDelphiで作ったアプリケーションを表示させたいんですが
>>830 TAction の ShortCut に Ctrl+Enter を登録しておく。ってのは？
835 ：
831 ：2006/03/11(土) 13:22:20
StringGrid上でクリックされた時にそのCellの一番左( Cell[0,**] )
StringGrid1.Row
>>837 おお、できました。ありがとうございます。
>>834 いけました。
たったそれだけのことだったのかあ orz
840 ：
デフォルトの名無しさん ：2006/03/12(日) 14:27:52
リソースにManifestを埋め込んでTListViewを使っていると、フォームが開かれた時点でエラーが発生します・・
Manifestはずせばええんでね？
dynamicはvirtualは機能的に全く同じだからわからなくていいよ。
動的メソッドと動的メソッド
雑談がしたいだけなら別スレで
TSample = class(TObject)
o.Point := Point(100, o.Point.Y);
MDIで現在表示されている子フォームの数を取得するにはどうすればいいですか？
MDIChildCount
851 ：
849 ：2006/03/12(日) 23:36:25
852 ：
849 ：2006/03/12(日) 23:43:34
見つかりました。
・・シンプルなので充分ですから・・
はい、次↓
855 ：
853 ：2006/03/13(月) 05:05:52
マルチスレッドのダウンロード
自力じゃねえだろｗ
>>813 さん
ＭＤＩをいじっている方とお見受けして質問します。
作成された子windowはMDIChildren[]で取得できますが、閉じて消滅した子windowの情報の取り方はわかりますか？
消滅したのなら情報なんて存在しません
説明がマズかったです。
子Window の Closeイベントを使ったらどうでしょ
子WindowのCloseですか。子windowが閉じるときに親フォームにCaptionでも発信するようにするってことですか？
誰かこの馬鹿つまみ出せ
ここはくだすれだぜ
荒れてきたな。
865 ：
デフォルトの名無しさん ：2006/03/13(月) 15:56:02
質問があります。
最悪owner drawのイベントハンドラで取れるがいまいちだな
>>865 Headerコントロールなんだからウィンドウハンドルを取得してあとはお好きなように。
▲▼描画するサンプルのURLあっただろ
Yahooメッセンジャー等のように、webカメラなどのWDMデバイスから
870 ：
デフォルトの名無しさん ：2006/03/13(月) 19:55:09
TCanvas で文字列の幅は TextWidth で求めることができますが、逆に
WWWWWとiiiiiで全く違うから無理だろ
>>869 DirectShowを使うんじゃない？
>>870 ループ回して、1文字(or 予定描画幅/最大の文字の幅)からだんだん文字数を増やしてって、
TextWidth()で返ってきた幅>予定描画幅になった時点での文字数から1引けばOKだろ
どうせもっとエレガントな方法があるんだろうが知らね
固定ピッチフォントしかサポートしないって言うのが、一番真っ当な気がする。
875 ：
870 ：2006/03/13(月) 20:47:17
>>873 おおっ！そういう方法もありますね！ありがとうございます。
でもおっしゃる通りかなり力技っぽくて性能が少し心配ですね(^_^;
エレガントな方法があれば良いのですが、無ければこの方法を試してみます。
>>870 その方法を模索するより、それを使って何したいか聞いた方が答えられるかも心内
877 ：
870 ：2006/03/13(月) 20:50:57
>>874 固定ピッチフォントって言うのは全く同一幅なんですかね。
だとすれば計算が楽ですね。ちょっと仕様にするのに勇気がいる感じですが。
（色々と案があるものですね）
固定ピッチフォントしか許さないエディタって結構あるよ
879 ：
870 ：2006/03/13(月) 20:55:03
>>876 ああ、そうですね。すみません。Form に文字列を縦書きで描画
させたいのです。で、折り返す文字幅を計算したかったのです。
いい案がありましたらよろしくお願いします。
Delphi開発は子会社に移管されるみただけど、
デマを広めたいのか、本当にそう思ってるのかどっち？
違うのか？
質問です。
>>883 ある。
IDEの機能で無くなってそうなのは、プロジェクトで最終的にリンクしたユニットの一覧が見えるブラウザぐらいかな。
>>884 お、「指定アドレスに移動」ですね。見つかりました、ありがとうございます。
> IDEの機能で無くなってそうなのは、プロジェクトで最終的にリンクしたユニットの一覧が見えるブラウザぐらいかな。
こんな機能あったんですね。リンクしているユニット一覧を見るだけなら
JCLについてくるAnalyze Projectエキスパートでできそうですね。
>>870 前に似たようなことやった覚えがあるんで引っ張り出してきてみた。
var char_count: Integer; text_size: TSize;
GetTextExtentExPoint(Canvas.Handle, PChar(str), Length(str),
text_width, @char_count, nil, text_size);
strに文字列、text_widthに予定描画幅を渡す。
char_countに収まる文字数、text_sizeに実際の描画幅が返ってくる。
たしか第6引数で文字ごとの描画位置を受け取ることもできるはず。
Delphi6Personalを使っています。解説サイト及びヘルプで見たBitmap、Graphicというコンポーネントを使いたいのですが、パレット上に見当たりません。どこかにあるのでしょうか。
コンポーネントじゃなくてクラスなんだよ。
>>887 まずは解説サイトに書いてある通りに実行してみなさい
IEのアドレス等のComboBoxの▼って水色だよね。
プログラミングの勉強にと、目下テキストエディタを作成中です。
if fsBold in FontStyles then
>>893 さん、ありがとうございます。
いま丁度、in やExclude、InCludeなどの説明が書いてあるサイトをみつけ、実験していたところです。
なんとかなりそうです。
Fontをまるごとファイルに保存するという荒業はまだできそうにないですが。
Delphi TFont 保存
Delphi6 Personalでネットワークの通信速度（上下）
ネットワークの通信速度って何？
すいません
899 ：
デフォルトの名無しさん ：2006/03/14(火) 09:38:39
テキストファイルを1行ずつ読み込む処理に
安直に考え付いたのは
>>899 ・TFileStreamはファイルの内容をすべてメモリに保持したりしない。
・TFileStreamでテキストファイルを一行ずつ読むことはできない。
・つーかTStringList.LoadFromFileだけでいいだろ。
905 ：
899 ：2006/03/14(火) 10:06:55
・TFileStreamはファイルの内容をすべてメモリに保持したりしない。
906 ：
870 ：2006/03/14(火) 10:27:13
>>886 GetTextExtentExPoint なる API があったとは。検索したのですが、
見つかりませんでした。サンプルコードもご提示していただいて参考になります。
ありがとうございました。
908 ：
デフォルトの名無しさん ：2006/03/14(火) 13:20:06
VS.NETのIDEの至る所に使われているウィンドウで、
>>908 VS.NETのがどんなのかわからんが、
MOUSEENTERやMOUSELEAVEメッセージでできるんじゃないのか。
そんなんじゃないよ。一度使ってごらん。コード補完やら、語句補正やら、
911 ：
908 ：2006/03/14(火) 14:06:24
>>909 自分でプログラミングをしなくてもカーソルを近づけたり
すると勝手に現れたり隠れたりする便利なウィンドウが
あるんですね。
名前は知りませんけど。
PaintBoxがマウスをキャプチャ出来る範囲を制御したいのですが何かいい方法はないでしょうか？
913 ：
デフォルトの名無しさん ：2006/03/14(火) 18:08:55
ライセンスキーっての？
数秒で来た
915 ：
デフォルトの名無しさん ：2006/03/14(火) 18:45:09
>>914 さっきもログインしてsubmit押してきたけどやっぱり来てないな
アドレス間違ったりしてないのになｗ
さーてVBに移るか。
未来のないVBよりせめて.NETに移れよｗ
>888-889
JVCLについてまとめてよだれかー。
MegaDemoをみれば大体分かるよ。
避難所は画像張れないから、まとめようにも難しいよなぁ。
>>915 俺、3日前に同じことで悩んでた。
submitのあと、メール送信のリンクをクリックしてないんじゃない？
925 ：
デフォルトの名無しさん ：2006/03/15(水) 09:09:24
>>923 BDNが日本語化するまではブログに書くしかないね。
927 ：
デフォルトの名無しさん ：2006/03/15(水) 11:39:04
>>904 2K Xp だけででいいのなら・・・AlphaBlendってのでフォームの透かしはできるけど
こんな程度を要求してＵ訳じゃぁないんだろうなぁ(w
928 ：
904 ：2006/03/15(水) 11:44:55
>>927 ではないです・・・
「めもすけ」を使っていただいたら分かると思うのですが、
文字以外の部分は、完全に透けて、下のウィンドウが見えてますし、
アクセスできます。不思議です・・・
最初は文字の形のリージョンかとも思ったのですが、Ctrl+Aを
入力などして、文字を選択した状態にすると、選択していない
背景だけが透けるようになり、処理も重かったり、ちらついたり
しないので、違うかなぁと。
最近Delphiを触り始めて今
>>929 Professional 以上が必要です。
Delphi 7かDelphi 2006がお勧めです。
仮に商用利用したとしてもBorlandから訴えられなければ全く問題ありません。
>>931 通報しま（ry
おとなしくProfessional版買うか、VSに移れ
>>928 TransparmentColorでできるでしょ。。。
934 ：
904 ：2006/03/15(水) 12:47:42
>>933 ではなくて、例えばデスクトップの上に「めもすけ」を置いていると、
デスクトップにマウスでアクセスできるのです。
>>934 他人には試してくれっていっておきながら、自分では試す気ないのね。
936 ：
904 ：2006/03/15(水) 13:02:23
知らんけど透明度100%の所はマウスクリックとかも含めて抜きになるって話じゃないの
>>937 透明度というかTransparmentColorで透過したところは、マウス入力も突き抜けるね。
>904は死んでいいぞ。
941 ：
デフォルトの名無しさん ：2006/03/15(水) 13:56:06
>>924 はーっ!!そうだったのか!
英語ややこしいなｗ
君のブログは新し杉じゃまいか？
945 ：
941 ：2006/03/15(水) 22:19:08
やっとインスコし終って始めたんだがコーディングワカンネｗ
Del6Personal
ない
まあ、こんな関数を作っておけば一括で設定はできるよ。
TPanel継承してEnabled切り替えのとき子コントロールもいじる機能つけちゃえばいい
DDDDって.netに対応してないですよね？
953 ：
129 ：2006/03/16(木) 04:27:16
おい！！！！
>>943 のブログの作者！！！！
あんたブログにすげーエレガントな解決方法書いてるじゃないですかぁ！
おかげで完璧に解決しましたよ！
あんたマジ神だな
>>952 ＞.net以降、Delphiに対応してるDirectXコンポ
リンクきぼん！ネイティブならD2005対応たまに見るけど.NETは見たこと無い
ずっとﾊﾏってたのかｗ
Managed DirectXって奴を使えばいいんじゃないの？
DelphiXやらみたく簡便じゃねーべさ
あえて.NETでDirectXをやるという需要が読み切れない
>>958 確かに・・・
でももし.NET用のDirectX対応ライブラリがあれば、使えそうなもんだけど。あるのか？
961 ：
デフォルトの名無しさん ：2006/03/16(木) 08:30:33
DirectX７以前はやたら面度くさかったよね。
黒田○○さんや堀○○さんはいまごろどうしてるんだろう？
964 ：
デフォルトの名無しさん ：2006/03/16(木) 10:59:11
すみませんが…Delphiでスキンを変えたりする
余裕で作れますが
やる気と根性があれば作れます
967 ：
デフォルトの名無しさん ：2006/03/16(木) 15:28:15
Delphi7でListViewをOwnerDrawで使ってますが、
XPManifestを載せない
969 ：
967 ：2006/03/16(木) 16:12:15
まったく試してないけど、さらに上描きしてやれ！
971 ：
967 ：2006/03/16(木) 18:58:28
TList型オブジェクトlistはA型のオブジェクトのポインタを要素に持っています。
974 ：
訂正 ：2006/03/17(金) 00:43:39
>pが無効なオブジェクトなのか
975 ：
973 ：2006/03/17(金) 00:54:48
書き忘れましたが、削除された要素のポインタが分からない場合です。
>973
>>973 TListの変わりにTObjectListを使う
>976
>>977 そうじゃなくて、あるオブジェクトが破棄された時、
それを参照しているポインタ変数をnilで初期化したいって事だと思いますよ。
無理だな。
答え方がおかしいか。
間接的に参照するとデザパタっぽい
TListViewでアイテム挿入中の描画を止めたいんですけど
TListItems.BeginUpdate
986 ：
デフォルトの名無しさん ：2006/03/17(金) 10:11:28
RichEditでTabキーを押したとき、6桁くらい移動するんですが、これを
出来ないことはないけどかなり面倒だったと思う
これでどうだ
最後の1行がなければカッコ良かったのに
誰でも言いたくなる気がする
わからないならレスすんなってことだろ。
992 ：
986 ：2006/03/17(金) 12:20:03
>>988 出来ました！ありがとです。できなければ（面倒だったら） 987 さんの
やり方でやろうかと思っていたのです…
>>973 Handleという概念を使う
ゲームなんかだとよく使うよ
var a: THoge;
begin
a = THoge(Handle.ToObject)
if Assigned(a) then
a.Hoge;
VB.NETなら簡単なのにね。
998
999
1000
1001 ：
１００１ ：
Over 1000 Thread このスレッドは１０００を超えました。
