くだすれDelphi(超初心者用)その47

くだすれDelphi(超初� ..

331: ◆XcB18Bks.Y
08/08/10 21:15:41
>>329
編集中のテキストにファイルから別のテキストを追加読み込みしたいということですね。
別に文字列リストを用意してそれに読み込んでからMemo1.Linesに追加。

procedure TForm1.Action_AddFromFileExecute(Sender: TObject);
var
　Strings: TStringList;
begin
　Strings := TStringList.Create;
　try
　　if OpenDialog1.Execute then
　　begin
　　　//　文字列リストにファイルを読み込む．
　　　Strings.LoadFromFile(OpenDialog1.FileName);
　　　//　Memo1のテキストにこの内容を追加．
　　　Memo1.Lines.AddStrings(Strings);
　　end;
　finally
　　Strings.Free;
　end;
end;

332:デフォルトの名無しさん
08/08/11 07:32:07
ClientDataSetに大量のデータ突っ込んだ後、EmptyDataSetでクリアしても、
タスクマネージャのメモリ使用量が変わらないんだけど、これは？？
データ突っ込んで、タスクマネージャで100MB近くなったんだけど、ずっとそのまま・・

333:デフォルトの名無しさん
08/08/11 18:05:35
TurboDelphiを先日落とした身です。

例えば

procedure TForm1.Button2Click(Sender: TObject);
var
hoge: string;
begin

end;

でF9実行しようとすると、その変数は使われてないと警告が出てデバッグが実行できません。
警告を残したままデバッグの実行はできないものなのでしょうか。

334:デフォルトの名無しさん
08/08/11 18:08:42
{$WARN SYMBOL_DEPRECATED OFF}
みたいなのを頭に書いとけば消せる。
具体的な指定はヘルプにあるはず。
その警告は残しておいた方がいいとは思うが。

335:デフォルトの名無しさん
08/08/11 19:24:36
Delphiでのアプリケーション間通信のよい方法があったら教えてください。

環境は双方ともDelphi製で、片方VCL GUIアプリ、片方Win32アプリです。

実際にはマップエディタで設定したマップを、別アプリのゲーム側で
リアルタイムに読み込んでプレビュー処理をしたいのです。
そこで、マップエディタで現在編集中のマップをファイルで保存しておいて、
そのファイル名（もしくはマップのIDなり）をゲーム側に伝えたいのです。

336:デフォルトの名無しさん
08/08/11 19:38:34
ファイル名程度ならWM_COPYDATAで十分じゃ？

337:デフォルトの名無しさん
08/08/11 19:39:06
ファイル名程度なら、WM_COPYDATAで十分じゃ？

338:デフォルトの名無しさん
08/08/11 19:40:24
Delphiでのアプリケーション間通信のよい方法があったら教えてください。

環境は双方ともDelphi製で、片方VCL GUIアプリ、片方Win32アプリです。

実際にはマップエディタで設定したマップを、別アプリのゲーム側で
リアルタイムに読み込んでプレビュー処理をしたいのです。
そこで、マップエディタで現在編集中のマップをファイルで保存しておいて、
そのファイル名（もしくはマップのIDなり）をゲーム側に伝えたいのです。

339:デフォルトの名無しさん
08/08/11 19:45:33
SendMessage(WM_COPYDATA でマップデータを送るのはどうか。
使ったこと無いけど、SendMessageTimeout の方がいいのかもしれない。
受け取り側でデータをコピーするから、マップデータが巨大だと
時間がかかる。

340:デフォルトの名無しさん
08/08/11 22:10:29
普通に考えればメモリマップドファイルだろうね。

341:デフォルトの名無しさん
08/08/11 22:11:12
>>339-340
ありがとうございます。WM_COPYDATAが簡単にできそうです。

こちらが参考になりました。

WM_COPYDATA
メッセージによるプロセス間通信
URLﾘﾝｸ(homepage2.nifty.com)

342:デフォルトの名無しさん
08/08/12 00:09:05
警告ならできるだろ >333
原因は別にある

343:デフォルトの名無しさん
08/08/12 00:55:49
変更のあるたびに全部送るんじゃなくて、変更のあったところのみ送れば
速くなりそうですね。

344:デフォルトの名無しさん
08/08/12 13:06:48
>>334 >>342
新規でプロジェクト作成してみたら警告が出るようなコードでもデバッグが実行できました。

どうもお騒がせしましたorz

345:デフォルトの名無しさん
08/08/12 20:09:22
>>331
遅くなりましたが、ありがとうございます！
おかげでできました～

346:デフォルトの名無しさん
08/08/13 19:18:29
TMenuItemからTMenuItemに全てのプロパティをコピーするにはどうすればいいんでしょうか
Assignでは「TMenuItem から TMenuItem に代入することはできません.」と例外が発生しました

347:346
08/08/13 20:30:24
自己解決しました
URLﾘﾝｸ(delfusa.main.jp)
このCopyComponentを使えば出来ました

348:346
08/08/13 20:57:39
と思ったけど完全にはコピー出来ないようです
何とかコピー出来ないものでしょうか

349:デフォルトの名無しさん
08/08/13 21:01:06
TStream.WriteComponent/ReadComponentしてみたら。
それかメニュー構造を再帰的にコピーしていくコード書くか。

350:346
08/08/13 22:33:53
>>349
> TStream.WriteComponent/ReadComponentしてみたら。
例外が発生し、動きませんでした

> それかメニュー構造を再帰的にコピーしていくコード書くか。
適当に書いたら普通に出来てしまいましたｗ

ありがとうございました

351:デフォルトの名無しさん
08/08/14 00:24:35
以前からこのスレを拝見しておりました
いきなりの質問ですみませんがお答えいただけたら幸いです
var
str: array of array of String
i : Integer;
List: TList;
begin
SetLength(str,10);
for i:=0 to 9 do
begin
SetLength(str[i],10)
end; //str[0,0]からstr[9,9]まで領域を作る

List:= TList.create;

としたとき、
TListにstring型の１時配列を格納したいと思い、
List.add(str[Idx])
としたのですが、その後ListからItemsプロパティによって中身にアクセスできないんです・・・どうしたらよろしいのでしょうか？

352:デフォルトの名無しさん
08/08/14 01:42:22
>>351
usesにTypesを追加します。
TStringDynArray(List[x])[y] で str[x, y] にアクセスできます。

353:デフォルトの名無しさん
08/08/14 23:26:38
>>352
お答えありがとうごさいました！とても助かりました。

354:322
08/08/15 20:04:40
Delphi2007Pro版アップグレードの価格比較をみつけたので、こちらで吟味することにします。

ボーランド/Borland Borland Delphi 2007 for Win32 Professional R2 アップグレード版価格比較 [coneco.net]
URLﾘﾝｸ(www.coneco.net)

amazonとかだと50000円超えててびくりしました
お騒がせしました。
ありがとうございました。

355:デフォルトの名無しさん
08/08/15 20:51:48
直販でUGすれば３１５００円だろ。
直販のUGってもう終了したんかな。

356:デフォルトの名無しさん
08/08/15 21:50:23
電話してお姉さんに丁寧に説明してもらいなさい。

357:デフォルトの名無しさん
08/08/15 23:04:26
おねいさんに手取り足取り教えてもらいたい。

358:デフォルトの名無しさん
08/08/16 00:16:26
おねいさんに手コキ足コキしてもらいたい。

359:322
08/08/16 06:40:01
>>355
もう直販やってない希ガスCodeGearのページいってもたらいまわしにされる

360:322
08/08/16 07:06:51
製品の購入のページってこれですよねえ。
URLﾘﾝｸ(www.codegear.com)

> バージョンアップ版を購入の方
> 以下のCodeGear製品については、バージョンアップ版も、新規購入と同様に、ソフトウェア流通代理店各社、SEshopのCodeGear専門ショップなどのオンラインショップサイトよりお求めいただけます。
>
> CodeGear RAD Studio 2007
> Delphi 2007 for Win32 R2
> C++Builder 2007 R2
> JBuilder 2007
> 上記製品のバージョンアップ版の詳細については、こちらをご覧ください。その他の製品については、下記までお問い合わせください。

直販やってない？
たらいまわしは、商品詳細とかんちがいしてましたw
問い合わせてみるか・・・

それともTiburon待ったほうがいいのかなあ

361:デフォルトの名無しさん
08/08/16 08:49:32
Unicode が必須じゃなければ２００７にしとけ。
BDS2006持ってて2007買うのはどうかと思うがな。
お金持ちならだめもとでTiburonを。

362:デフォルトの名無しさん
08/08/16 08:54:10
こういう業界じゃ、バージョンアップの3万なんて日給分程度だろ？
お金持ちって・・。

363:デフォルトの名無しさん
08/08/16 09:18:41
ＩＴ土方をなめるなよ。
ピンハネされまくって、ひ孫受けの土方に渡る金は、元金の１／３以下

364:デフォルトの名無しさん
08/08/16 09:31:53
Delphiできる人少ないから、手が足りない。
バイトで内職してくれる人おらん？

365:デフォルトの名無しさん
08/08/16 09:33:29
思いっきり丸投げしといて
「内規で２割引かないといけないんですよてへへー」が
２つ３つ挟まるとか平気であるしなｗ

366:デフォルトの名無しさん
08/08/16 09:34:58
3割引かれてﾃﾍﾍｰだけど、1社しか挟まってないからまだ楽だ。

367:デフォルトの名無しさん
08/08/16 09:36:28
他所でやれ

368:デフォルトの名無しさん
08/08/16 10:09:56
スキルが高まれば高まるほど逃げ出す、それが日本のIT業界。

369:デフォルトの名無しさん
08/08/16 13:10:00
>360
だからとりあえず電話してみなさいって。連絡先は
URLﾘﾝｸ(www.codegear.com)
ここね。ただアップグレード期間は終わってるような気がするので通常の購入になって
高いかもしれないけど、そしたら他のところで買うことを考えてみればいいだけの話。

>366
3割ってよっぽど舐められてるか893か、いずれにしろろくでもないところだと思う。

370:デフォルトの名無しさん
08/08/16 13:25:53
スキルの低い底辺クズがいる、それがIT業界。

371:デフォルトの名無しさん
08/08/16 13:40:40
>>338-339 へぇ、メッセージで投げられるんだ
普通はアプリの通信ってパイプ使うけど
マップデータ自体を送るんじゃなくてファイル名って言ったよね　たった数文字送るなら
パイプ通信のほうがいいんじゃないの

372:デフォルトの名無しさん
08/08/16 13:40:50
Form1からForm2へドラッグ＆ドロップするにはどうすればいいんでしょうか？

373:322
08/08/16 15:41:26
>>369
電話してみます。

みなさんありがとう。

374:デフォルトの名無しさん
08/08/16 15:57:45
>>372
OnDragOverイベントでAccept設定して出来ないか？

375:デフォルトの名無しさん
08/08/16 18:00:12
>>371 受け取る方はパイプのデータが更新されたことをどうやって知るの？

376:デフォルトの名無しさん
08/08/16 20:41:12
数文字程度でもWM_COPYDATAの方が簡単かもしれない。

377:デフォルトの名無しさん
08/08/16 21:18:38
自前のTMyFormの機能としてWM_COPYDATAをラップして
識別用のDWORD一つとデータ本体を送受信できるようにしておくといろいろ便利。

378:デフォルトの名無しさん
08/08/16 23:16:21
現在Delphi2007を使用しています。

デバッグ機能について教えていただきたいのですが
Visual Studioでいうところの「次のステートメントの設定」は
Delphiに存在しないのでしょうか。

無いととても不便な気がするのですが
どうしても見つかりません。

379:デフォルトの名無しさん
08/08/16 23:30:13
ない。なくても別にそれほど不便じゃないし。
QCに登録したら次の次で採用されるかも。

380:デフォルトの名無しさん
08/08/16 23:45:05
>>379
即レスありがとうございます。探し回っていたのですが
これ以上探さずにすみます。それにしても残念。

381:デフォルトの名無しさん
08/08/17 03:40:24
>>372
VCL標準のD&D機構では出来ないから、
MouseCaptureして自分でやる。

382:372
08/08/17 10:49:16
>>374
>>381

レスありがとうございます。
MouseCaptureググッって、午後からいろいろ試してみようと思います。

383:デフォルトの名無しさん
08/08/17 11:13:40
TFormのDnD、VCLでできないんならOLEDnDのほうがスマートじゃ？
プロセス間でも平気だし、テキストや画像なら未知のアプリケーション間でも出来るし

384:デフォルトの名無しさん
08/08/17 11:30:37
フォーム上にカラーパレットのようなものを配置(カラーグリッドでいいのかな)
お絵描きコントロールを配置(たぶんペイントボックス)

ペイントボックスに、既存のbmpファイルを読み込む(←ここがすでにわからない)

カラーパレットをクリック
で、色を選択

ペイントボックスに読み込まれた絵のどこか適当な場所をクリック

その「クリックした個所と同じ色が」選択した色に塗りつぶされる
(MSペイントの塗りつぶしみたいな感じ。あれは別な色で囲まれちゃってる部分は無視されるけど、
そこもぶち破って塗りつぶしてくれるならなおよろし。あれと同じでも充分)

顰蹙非難罵詈雑言何もかも覚悟でおねがい

以上を実現するコードください
まるごとください
おねがいします

385:デフォルトの名無しさん
08/08/17 11:34:30
どっかでペイントソフト作るチュートリアル無かったか。
丸投げするなら金額も一緒に書いとけよ。

386:デフォルトの名無しさん
08/08/17 11:38:11
大人しくTPaintBox使わずにTImage使えば？

387:デフォルトの名無しさん
08/08/17 11:47:07
，　　，:‘. 　　　　　　　　　。　　　　　　　　　　　　　+　　，..
　’‘ 　　　　+　　，.. 　　　　　　. ..; '，　　，:‘
　　　　　　. .; : ’　　　　　　　　　　　　　　　　　　　　　　　　　　 '　，:‘.
　　　　　　　　　　あ　あ　　　　　　　　　　　　　，:‘. 　　　　　+
.. '　，:‘. 　　　　　　　　　　　　　　　　　　　　　　　　　　　　. ...::　’‘
’‘ 　　　　.;　　　こ　ん　な　に　お　断　り　し　た　い
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　。
.　　　　　。　　　気　持　ち　に　な　っ　た　の　は　　　，:‘. 。
　'+。
　　　　　　　　　　　　　　　　初　め　て　で　す　　　　　　　　　　.. '　，:‘.
:: . .. 　　　　　　　　　　　　　　　　　　　　　　　　　　　.. '　，:‘.
　　　　　　ﾊ,,ﾊ
　　　　　( ﾟωﾟ )

388:デフォルトの名無しさん
08/08/17 11:48:25
　 /＼＿＿_／＼
／　／　　　ヽ ::: ＼
|　（●）,　、（●）、　|
|　　,,ノ(、_, )ヽ、,, 　 |
|　　　,;‐＝‐ヽ　 .:::::|
＼　　｀ニニ´　 .:::／　　　　　　NO THANK YOU 　
／｀ー‐--‐‐―´´＼
　　　　　 .ｎ:n　　　ｎｎ
　　　　nf|｜| 　　　| | |^!n
　　　　ｆ|.| | ∩　　∩|..| |.|
　　　　|: ::　 ! }　　{！ ::: :|
　　　　ヽ　　,イ　　ヽ　 :イ

389:デフォルトの名無しさん
08/08/17 12:12:59
　　　　　　　　　　　　お断りします
　　　　　　ﾊ,,ﾊ　ﾊ,,ﾊ　ﾊ,,ﾊ　ﾊ,,ﾊ
　　　　　（ﾟωﾟ）ﾟωﾟ）ﾟωﾟ）ﾟωﾟ）　　お断りします
　　　　／　　　＼　　＼　　＼　　＼　　　お断りします
　 ((⊂ 　）　ﾉ＼つﾉ＼つﾉ＼つﾉ＼つ)) 　　お断りします
　　　　　（＿⌒ヽ　⌒ヽ　⌒ヽ　⌒ヽ　　　　　　　お断りします
　　　　　　ヽ　ﾍ　}　ﾍ　} 　ﾍ　}　ﾍ　}
　 ε≡Ξ　ﾉノ｀Jノ｀J ノ｀J ノ｀J

390:デフォルトの名無しさん
08/08/17 15:47:38
再度おねがいにきました
あきらめないで待ってます

391:デフォルトの名無しさん
08/08/17 15:48:24
　　　　　　　　　　＿＿＿_ 　　やなこったｗｗｗｗｗｗｗｗｗ
　 .ｎi 7　　　　　／⌒　　⌒＼
l^l | | ｌ ,/) 　／（ﾟ）　（。）＼　　　　 .ｎ　　　
', U ! ﾚ' / ／ ::::::⌒（__人__）⌒:::::＼　　l^l.| | /）　
/　　　〈　| 　　　　ﾍ　 / 　　　　| 　 | U ﾚ'/／)　　
　　　　　ヽっ　　　　｀ ⌒´ 　　／　　ﾉ　　　／　　
　／´￣￣　ノ　　　　　　　　　＼ｒニ　　　　|
　　　　　　　　　　　　　　　　　　　　　 `ヽ　　　l　

392:デフォルトの名無しさん
08/08/17 16:19:04
そんなことよりポインタ演算の話しようぜ。

393:デフォルトの名無しさん
08/08/17 22:17:46
もうちょっと待て。ベータブログに出てきてNDAから外れたらな。

394:デフォルトの名無しさん
08/08/17 22:19:01
>390
WindowsのPaint使えばいいんじゃね？

395:デフォルトの名無しさん
08/08/18 00:18:16
お絵かきソフトのサンプルをCDから探して。

396:デフォルトの名無しさん
08/08/18 11:40:11
その１
Image1.Picture.LoadFromFile('hoge.bmp');

以降よろしく。

397:デフォルトの名無しさん
08/08/18 11:58:30
canvas.FloodFill(なんたらかんたら)

398:デフォルトの名無しさん
08/08/18 19:12:39
DEMOSとかというフォルダからサンプルらしきものを発見しました
imageでも絵かけるんですね
>>396
>>397
ありがとうございます
ちょっと自力でがんばってみます

399:398
08/08/19 19:05:38
おかげさまでどうにか以下までは成功しました

procedure TForm1.Image1Click(Sender: TObject);
var
MouseP:TPoint;
MouseX:integer;
MouseY:integer;
GetColor:integer;
begin
GetCursorPos(MouseP);
MouseP:=Image1.ScreenToClient(MouseP);
MouseX:=MouseP.X;
MouseY:=MouseP.Y;
GetColor:=Image1.Canvas.Pixels[MouseX,MouseY];
Image1.Canvas.Brush.Color:=塗りつぶしたい色;
Image1.Canvas.FloodFill(MouseX,MouseY,GetColor,fsSurface);
end;

元のbmpファイルがけっこう小っちゃいので、Imageをめいっぱい大きくとったうえストレッチ表示にしたら
クリック位置を補正しなきゃならなくなってしまいました

MouseX:= Trunc(Image1.Picture.Bitmap.Width*MouseP.X/Image1.Width)

とか、とりあえずやってみたらできたけど、何かこのあたりはまだ考える余地がありそうです
あとちょっとだけがんばります

400:デフォルトの名無しさん
08/08/19 20:27:01
始めたばかりで頑張っていた頃を思い出させるいいレス。
頑張れ！

401:デフォルトの名無しさん
08/08/20 01:07:43
WideStringでのインデックスをAnsiStringでのインデックスに直すにはどうすればいいんでしょうか？
例えば
関数('あああ',3) = 5
みたいな感じです

402:デフォルトの名無しさん
08/08/20 01:25:08
>>401
こんな感じかな
function WideIndexToAnsiIndex(const ws: widestring; index: Integer): Integer;
begin
　　if (Index < 1) or (Index > Length(ws)) then
　　　　Result := 0
　　else
　　　　Result := Length(AnsiString(Copy(ws, 1, index - 1))) + 1
end;

403:デフォルトの名無しさん
08/08/20 01:36:25
>>402
うお、こんな簡単に出来ちゃうんですね
ありがとうございました

404:デフォルトの名無しさん
08/08/20 03:34:47
>>401
なぜユニコードだったりそれをMCBSに変換しなければならないかにもよるけど、
ByteToCharIndexやCharToByteIndexでもっと幸せになれるかもしれない。

405:デフォルトの名無しさん
08/08/20 12:47:33
Button1を押したら

Memo1の書いてる文章を
全て選択
コピー
切り取り
貼り付け

するにはどうやればいいでしょうか？

406:デフォルトの名無しさん
08/08/20 13:36:46
>>405
Memo1.SelectAll;
Clipboard.AsText:=Memo1.SelText;
Memo1.SelText:='';
Memo1.SelText:=Clipboard.AsText;

407:デフォルトの名無しさん
08/08/20 14:00:30
マジありがとうございます。
超助かります！

Memo1.SelectAll;
をしたら、ちゃんと全部選択できるてるみたいですが
選択範囲の色が変わりません。
普通のメモ張だったら
全て選択とかCTRL+Aで選択範囲が青くなりますよね？

青くするのはどうやるんですか？

408:デフォルトの名無しさん
08/08/20 14:17:29
>>407
Memo1.SelectAll;
Memo1.SetFocus;

409:デフォルトの名無しさん
08/08/20 14:24:01
あー。できました。
ありがとうございましたー。

410:デフォルトの名無しさん
08/08/20 20:57:20
SpeedButtonかToolButton使え

411:デフォルトの名無しさん
08/08/21 12:41:16
ファイルネームの最後だけ、たとえば
c:\AAA\BBB\CCC\asdf.html
というファイルなら
OpenDialogやFileListBoxのFileNameは
c:\AAA\BBB\CCC\asdf.htmlになってしまうので
Edit1.Text:=FileNameみたいにすると長くなっちゃうんだけど
c:\からCCCまでいらなくてasdf.htmlだけ取得するにはどうしたらいいんですか？

412:デフォルトの名無しさん
08/08/21 13:00:55
ExtractFileName

413:デフォルトの名無しさん
08/08/21 13:02:45
このくらい考えられないか？
FileName := 'c:\AAA\BBB\CCC\asdf.html';
while pos('\',FileName) > 0 do FileName := copy(FileName,pos('\',FileName)+1);
edit1.Text := FileName;

414:デフォルトの名無しさん
08/08/21 13:10:37
>>413
Pos2回もやってるのって無駄じゃね？
それに「ソ」とかのことも考えたほうがいいぜ
まあLastDelimiter使った方が楽だがｗｗ

415:デフォルトの名無しさん
08/08/21 14:53:29
役に立たないスレだな

416:デフォルトの名無しさん
08/08/21 15:46:36
412で答え出てるじゃん。

417:デフォルトの名無しさん
08/08/22 07:16:18
Delphiはchar型って変数じゃないんですか？

418:デフォルトの名無しさん
08/08/22 07:19:56
変数です。整数ではありませんが。

419:デフォルトの名無しさん
08/08/22 08:15:42
checklistbox1
にあるすべての項目にチェックを入れるボタンと
チェックをはずすボタンはどうやればいいんですか？
Seleckallやclearを押してもチェックがはずれたりしなくて困ってます。
ボタンクリック
begin
CheckListBox1.SelectAll;
end;
ってやってもなんも変わらないんですけど、どうすりゃいいですか？

420:デフォルトの名無しさん
08/08/22 08:55:17
>>419
まわしたら？

421:デフォルトの名無しさん
08/08/22 17:00:54
Button2をクリックしたら、Button1クリックと同じ処理をしたいときはどうやるの？
procedure TForm1.Button2click(sender:Tobject);
begin
Button1click(sender)
end;

とかやってもエラーがでてコンパイルできません。

422:デフォルトの名無しさん
08/08/22 17:13:13
>>421
それで間違ってないだろ。つかエラーメッセージくらい読めよ。

423:デフォルトの名無しさん
08/08/22 17:15:56
button1.onclick(sender);

424:デフォルトの名無しさん
08/08/22 17:34:25
Button2のイベントハンドラをButton1Clickに設定する

425:デフォルトの名無しさん
08/08/22 17:37:16
interfaceの宣言の下に書くGUIDはCtrl+Shift+Gで出る奴でいいんですか？

426: ◆XcB18Bks.Y
08/08/22 19:23:55
>>421
エラーメッセージはなんですか？

　未定義の識別子 Button1click

と出たなら Button1click という名前のメソッドがないということです。
（このメソッドがあるはずだ！ということなら似たような違う名前になっていないか調べてください）

427:デフォルトの名無しさん
08/08/22 21:20:55
俺俺っていうコードを変換したいんだけど
(俺のコードは89 B4です)
89 B4 89 B4をchrを使って
chr(89)+chr(B4)+chr(89)+chr(B4)ってやっても
ｴｴって出てきちゃいます。(半角のｴはB4)

どうやったら89 B4を「俺」になおせますか？
chr(46127)てやっても出来ませんでした。

数値を日本語に変えるやりかたを教えてください！

428:デフォルトの名無しさん
08/08/22 21:29:25
ShowMessage(chr($89)+chr($B4))
で普通に俺って出るぞ

429:デフォルトの名無しさん
08/08/22 21:37:50
なぁんだ、$をつければよかったんだ。
どうもありがとう

430:デフォルトの名無しさん
08/08/22 22:17:39
Chr(B4)でコンパイル通るのかｗｗ

431:デフォルトの名無しさん
08/08/22 22:32:41
ListviewのFullDragをtrueにしてドラッグで入れ替えても
見かけ上は入れ替わるんですけど、中身のデータはその場所と一致してないんですけど
ちゃんと一致させる方法ありますか？

432:431
08/08/22 22:35:26
すいませんカラムの並び替えです・・・

433:デフォルトの名無しさん
08/08/23 00:44:16
StringReplaceのWideString版ってありますか？

434:デフォルトの名無しさん
08/08/23 08:36:38
>>421
Button1.Click;

435:デフォルトの名無しさん
08/08/23 09:33:40
>>433
AnsiStringReplaceのことか？

436:デフォルトの名無しさん
08/08/23 14:31:08
Memo1.Linesのそれぞれの行の文字数(全角文字は二文字と数える)を取得するにはどうすればいいですか？
-------
最初
12345
あほ
apple
-------
ならメモ1の最初の行文字数=4
二行目=5
三行目=4
四行目=5
といった感じです！

437:デフォルトの名無しさん
08/08/23 14:34:12
>>436
普通にLength()でいいじゃん。

438:デフォルトの名無しさん
08/08/23 14:36:57
length

439:デフォルトの名無しさん
08/08/23 14:37:01
そんなコマンドがあったのか！ありがとうございます

440:431
08/08/23 19:21:21
>>431の問題ってデフォですか、それともウチだけの不具合ですか
それだけでも教えてください

441:デフォルトの名無しさん
08/08/23 19:32:19
>>435
それでも十分いけるんだけどいちいちWideString→Stringで置換→WideStringってやってるとなんか無駄っぽいので
WideStringのまま出来ないかなって思っただけです
TurboDelphiにWideStrUtilsってのがあったのでその中にある、
WideStringReplaceを使ってみたけどなんか不具合があるっぽくて正常に置換されなくて使えなかったんです
でもTntの関数使ったら出来ました
ありがとうございました

442:デフォルトの名無しさん
08/08/24 01:16:25
>>440
カラムのドラッグによる位置変更で
データそのものの位置が変わっちゃったらえらい事になるでしょうよ

ListView_GetColumnOrderArray
ListView_SetColumnOrderArray

辺りで幸せになれるかもね

443:デフォルトの名無しさん
08/08/24 02:23:50
TTrayIconを使用しているのですが、
TrayIconが表示されている状態でWindowsをシャットダウンすると、
「シェル通知アイコンが削除できません」
というエラーメッセージダイアログが発されて、正常にシャットダウンしません。
ダイアログを閉じるなりすれば、シャットダウンは進行するのですが。

アプリケーションでメッセージを補足して、WM_QUERYENDSESSIONを
受けたときに、TrayIconの表示をFalseにすれば何とかなるかと思ったのですが、
WM_QUERYENDSESSIONを受け取る以前に上記のエラーメッセージが
発されてしまっているようです。

対策をテストするにも、毎回Windowsをログアウトするなりしなければならないので、
非常に非効率的な事態に陥っています。

これらの問題をすでに解決済みの先哲がいらっしゃいましょうや。
なにとぞ愚人に叡智を授けて下されれば、この443、幸いに存じます。

444:デフォルトの名無しさん
08/08/24 05:30:02
SDK32: 通知領域にアイコンが登録されないことがある
URLﾘﾝｸ(support.microsoft.com)

445:デフォルトの名無しさん
08/08/24 05:45:16
どうも、443っす。
結局のところ、自己解決したっす。
原因は、WM_QUERYENDSESSIONを補足しきれてなかったことみたいっす。
WM_QUERYENDSESSIONをちゃんと補足したときにTrayIconを非表示にするだけで何とかなったっす。
つまり、アプローチは間違って無かったっす。
汗顔のイタリーっす。板汚し、失礼したっす。
それじゃ、天上の調べをオリーブの枝に接ぐ作業に戻るっす。
チャオっす。

446:431
08/08/24 06:30:05
>>442
ありがとうございました

447:デフォルトの名無しさん
08/08/26 14:13:11
Excelで管理していたToDoのメモを使いやすくしたいと思い、
愛用のDelphiでDB化できないかと思っています。

可搬性を考え、Delphiの通常のアプリ同様インストールなしでDBを使いたいのですが、
なにかよいエンジンは何かないでしょうか？
手持ちの最新版は Delphi2006です。

448:デフォルトの名無しさん
08/08/26 15:21:06
EmbeddedFirebirdとか
インタフェースはInterbaseそのままだからIBXとかも普通に使える。ただしDLLなので、動作時のカレントディレクトリに注意。

449:デフォルトの名無しさん
08/08/26 15:33:36
プロパティを絶対に変更しないって前提なら
TTodoItem = class
published
にいろいろデータ溜め込んでTStream.WriteComponent, ReadComonentすればいいんだけど
リスク高すぎなんだよな。
ここら辺もうちょっと柔軟にXMLに対して読み書きしてくれるライブラリはないものか。

450:デフォルトの名無しさん
08/08/26 16:05:15
>>447
SQLiteが一番手軽かと

451:デフォルトの名無しさん
08/08/26 16:15:53
>>448-450
ありがとうございます。
Embedded Firebird(Interbase6互換)、Write(Read)Component、SQLite などですね。

あと、MyBaseも使えるようです。こちらが参考になりました。
Delphi@WCIMH
URLﾘﾝｸ(hp.vector.co.jp)

SQLiteはビジュアルコンポーネントと連携できるのでしょうか？

452:447=451
08/08/26 16:28:25
SQLiteのライブラリがいくつかありました。

Tim Anderson’s ITWriting - Tech writing blog ≫ A simple Delphi wrapper for Sqlite 3
URLﾘﾝｸ(www.itwriting.com)

Aducom Software [Delphi SQLite Components]
URLﾘﾝｸ(www.aducom.com)

18385 SQLite DbExpress driver
URLﾘﾝｸ(cc.codegear.com)
Delphi8以降で使えない？

いくつか試してみます。ありがとうございました。

453:322
08/08/26 16:38:56
>>369
遅レスですいません。

エンバカデロ日本に電話してみました。
直販はやってないとのことで、個人の場合は量販店やネットなどで買ってほしいとのことでした。

通販の値段はこちらを参考にすることにします。
ボーランド/Borland Borland Delphi 2007 for Win32 Professional R2 アップグレード版価格比較 [coneco.net]
URLﾘﾝｸ(www.coneco.net)

42000円前後でしょうか。
アップグレード割引期間内にアップグレードしておけばよかったと後悔してます。
2006の時は期間を延長したりしてくれてたのに・・・

454:デフォルトの名無しさん
08/08/26 19:34:14
>>447
ToDo リスト程度なら、TcrientDataSet でも十分実用になると思います。

455:デフォルトの名無しさん
08/08/26 20:34:40
つかDBいらねぇだろ。

456:デフォルトの名無しさん
08/08/26 20:55:00
URLﾘﾝｸ(enterprise.watch.impress.co.jp)

＞価格は、Delphi 2009、C++Builder 2009とも、
＞Professional版が10万2900円、Enterprise版が25万2000円、Architect版が44万1000円。
＞両製品のバンドルパッケージも用意されており、
＞Professional版が13万4400円、Enterprise版が29万4000円、Architect版が50万4000円となっている。

どう考えても、高いよな。

457:デフォルトの名無しさん
08/08/26 20:56:48
日本のPCゲーム業界みたいなことになってるな

458:デフォルトの名無しさん
08/08/26 21:13:14
アカデミック無いのかな

459:デフォルトの名無しさん
08/08/26 21:16:02
5年前にやっとけよといいたいがようやく標準でまともなUNICODEアプリが作れるようになったか。

　新版では、IDE、コンパイラ、フレームワーク、ランタイムがすべてUnicodeに対応し、
ANSIデータとUnicodeのシームレスな利用をサポートした。
また、新しいVCL（Visual Component Library）コンポーネントを搭載。
Office 2007から採用されたリボンをはじめとする、
新しいWindowsのルック＆フィールに対応している。
さらに、RADテクノロジーを用いた多層データベースアプリケーションアーキテクチャ
「DataSnap」により、コンポーネントベースのデータベースアプリケーション開発を行えるとのこと。

　これらに加えてDelphiでは、ジェネリックスや無名メソッドなど、
Delphiが持つ言語機能を強化し、開発効率の向上を実現。
一方のC++Buildeでは、新しい言語標準「C++0x」などもサポートしたとしている。

460:デフォルトの名無しさん
08/08/26 21:17:34
オッチャスレ池

461:デフォルトの名無しさん
08/08/26 21:28:23
>>460
ここですか？＞＜
ｽﾚﾘﾝｸ(pot板)

462:デフォルトの名無しさん
08/08/27 03:54:49
どんどん高くなっていくなぁ

463:デフォルトの名無しさん
08/08/27 06:16:53
>>459
これは欲しい。
次のバージョンアップが待ち遠しいぜ。

464:デフォルトの名無しさん
08/08/27 08:01:15
オッチャスレみていない俺のために張っておく

新規購入価格
Delphi 2009 Professional　￥98,000　（税込：￥102,900）
Delphi 2009 Enterprise　￥240,000　（税込：￥252,000）
Delphi 2009 Architect　￥420,000　（税込：￥441,000）
C++Builder 2009 Professional　￥98,000　（税込：￥102,900）
C++Builder 2009 Enterprise　￥240,000　（税込：￥252,000）
C++Builder 2009 Architect　￥420,000　（税込：￥441,000）
Delphi 2009 & C++Builder 2009 Bundle Professional　￥128,000　（税込：￥134,400）
Delphi 2009 & C++Builder 2009 Bundle Enterprise　￥280,000　（税込：￥294,000）
Delphi 2009 & C++Builder 2009 Bundle Architect　￥480,000　（税込：￥504,000）
バージョンアップ価格
Delphi 2009 Professional　￥46,000　（税込：￥48,300）
Delphi 2009 Enterprise　￥160,000　（税込：￥168,000）
Delphi 2009 Architect　￥280,000　（税込：￥294,000）
C++Builder 2009 Professional　￥46,000　（税込：￥48,300）
C++Builder 2009 Enterprise　￥160,000　（税込：￥168,000）
C++Builder 2009 Architect　￥280,000　（税込：￥294,000）
Delphi 2009 & C++Builder 2009 Bundle Professional　￥60,000　（税込：￥63,000）
Delphi 2009 & C++Builder 2009 Bundle Enterprise　￥180,000　（税込：￥189,000）
Delphi 2009 & C++Builder 2009 Bundle Architect　￥320,000　（税込：￥336,000）

465:デフォルトの名無しさん
08/08/27 08:40:21
高すぎる

466:デフォルトの名無しさん
08/08/27 10:40:51
Vistaがこけたおかげで、Delphi7が今でも現役だぜぇ。

467:デフォルトの名無しさん
08/08/27 10:59:26
割れ厨急増ですねわかります

468:デフォルトの名無しさん
08/08/27 11:03:18
>>466うんうん
助かるよねぇ
ってか2006買ったが7使ってる

469:デフォルトの名無しさん
08/08/27 15:17:18
>>466
というか製品としても現役じゃないか、Del7とCBuilder6

470:デフォルトの名無しさん
08/08/27 16:49:25
2007の拡張に慣れたらもう戻れない。

471:デフォルトの名無しさん
08/08/27 17:06:21
>>470
kwsk

472:デフォルトの名無しさん
08/08/27 17:08:09
以前買った「Delphi DB&Webプログラミング」を読んでいるのですが
DB初心者にすごくわかりやすくてよい本ですね。

ところで、Delphi7時代の本のせいか、いくつか用語かツールが変わっています。
例えば、SQLエクスプローラー相当はBDS2006時代では何にあたるんでしょうか？

473:デフォルトの名無しさん
08/08/27 21:13:03
BDS2006はもう誰も使ってないんじゃないかな・・

474:デフォルトの名無しさん
08/08/27 21:19:07
いや、俺使いまくってるけどｗ

475:デフォルトの名無しさん
08/08/28 00:05:29
URLﾘﾝｸ(www.geocities.jp)
これを利用して多重起動させないようにしようとしてるんですが
新しい起動パラメータでリスタートさせるにはどうしたらいいでしょうか？

476:デフォルトの名無しさん
08/08/28 00:32:16
起動させるためのexeを作る

477:デフォルトの名無しさん
08/08/28 02:30:28
最初のexe起動。
次のexeをパラメータ付きで起動。
すでに起動済みならパラメータを最初のexeへ渡して自分は終了する。
タイミングによっては難しいかな。
最初のexeを終了させる方がいいかも。　いろいろ試して。

478:デフォルトの名無しさん
08/08/28 02:35:53
>>476 >>477
やっぱりそうゆうやり方しか無いんですかね。
やってみます。有難うございました。

479:デフォルトの名無しさん
08/08/28 05:23:51
>>475
自分でExe側をコーディングしているのなら、起動パラメータを弄るのではなく、
多重起動した場合、前のを落として
起動パラメータによって変更されるパラメータを変更するだけではないのかな？

480:475
08/08/28 12:49:11
>>479
すいません。
前のを落とす方法がわかりません。

481:デフォルトの名無しさん
08/08/28 14:22:09
mutexで排他制御をして
すでに起動していたらWM_COPYDATAでパラメータを丸投げして
新しい方が自爆して
すでに起動している方がパラメータを受け取ってリスタートする。

あるいは
WM_COPYDATAで死ねというコマンドを送って古い方を終了させて
新しい方がそのままパラメータを処理する。

前者の方が初期化を省ける分軽くなる可能性はある。
後者の方が実装が楽になる可能性がある。

482:475
08/08/28 14:26:22
いい機会だからWM勉強してみます。
みなさん有難うございましたm(_ _)m

483:デフォルトの名無しさん
08/08/28 14:50:53
TWebBrowserにｈｔｍｌでフォームを表示してるんですが
フォームのtextarea内で改行出来ません
ｉｅ・fxでは正常に改行できます

484:デフォルトの名無しさん
08/08/28 15:46:53
UIWebBrowserとか使っとけ

485:デフォルトの名無しさん
08/08/28 16:33:06
>>475
DDEを使って、既に起動している方に終了命令を送るかな

後から起動した方が、パラメータを既に起動している方に送って、
すぐに終了ってのはよくあるけど

486:485
08/08/28 16:59:49
>>475 DDEを使うとこんな感じ

※同じプログラム内に送受信を書きます

【メッセージ受信】
1. Systemパレットから DdeServerConv をフォームに置く
2. DdeServerConv の Name プロパティを "AAA" とかにする ← 後でトピック名に使われる
3. DdeServerConv の OnExecuteMacro イベントに受け取ったときの記述をする例) Caption := Msg.Text;

【メッセージ送信】
1. uses 節に DDEMan 等(Formsも？)を追加
2. DdeClientConv を使って送信項目を書く↓

// アプリケーションが HogeHoge.exe で、トピック名が AAA の場合
SendStr = 'Tojiro-Goma'; ←送信するメッセージ
with TDdeClientConv.Create(Application) do begin
　　 if SetLink('HogeHoge', 'AAA') then begin
　　　　 ExecuteMacro(PChar(SendStr), False);
　　　　 CloseLink;
　　 end;
　　 Free;
end;

487:475
08/08/28 17:02:44
>>485
今回は>>481さんの前者の方で無事成功しました。
ＤＤＥは別のところで使えそうなので参考にさせていただきます。
有難うございました。

488:デフォルトの名無しさん
08/08/28 22:11:06
文字列'ABCD'があって、その文字列に1文字置きに'#'を挿入したいのですがどのようにすればいいでしょうか？

こんな感じです。
A#B#C#D

よろしくお願いします。

489:デフォルトの名無しさん
08/08/28 22:13:35
insert

490:デフォルトの名無しさん
08/08/28 23:01:40
Insertとforループでどうにかできました
ありがとうございました

491:デフォルトの名無しさん
08/08/29 00:07:10
二重ループの中で中側をブレークしてそのまま外をコンティニューするにはどうしたらいいで初夏？
取り敢えずフラグ立ててみたのですがこれしかないでしょうか？

for i:=0 to Files.Count-1 do
begin
while .. do
begin
case xx of
mrOk :zzz;
mrIgnore:begin
Flag:=True;
Break;
end;
else exit;
end;
xxxx
end;
if Flag then Continue;
zzzzzz;
end;

mrIgnoreの時はxxxxもzzzzzzを処理せずfor i:=ループを続けたい

492:デフォルトの名無しさん
08/08/29 03:55:45
速度は遅いかもしれんけど中のループはbreakではなくcontinueで全部終わらせば
外のループへ出れる

493:デフォルトの名無しさん
08/08/29 07:52:05
goto使え

494:デフォルトの名無しさん
08/08/29 08:49:03
>>481
そっちのほうがスマートだな

495:デフォルトの名無しさん
08/08/29 13:36:05
bsNoneに設定したフォームで
Form1.WindowState := wsmaximized
を実行するとタスクバーの領域を浸食してしまうんだがお手軽に
システムメニューの最大化を実装する方法ってあります？

496:デフォルトの名無しさん
08/08/29 21:31:01
こちらのサイトの方法を汎用化する方法はありませんでしょうか？

Delphi　VCL継承コンポーネントをインストールなしで使う/Tips & Tricks
URLﾘﾝｸ(www.geocities.jp)

Edti1 := CloneComponent(Edit1);
みたいな方法で使いたいのですが・・・。

Hoge.Createすると、生成されずに、Createだけよばれてしまいます。

class helper使えばできる気もするのですが、class helperの同時に1つしか使えないという制限から困っています。

497:496
08/08/29 21:40:44
Result := TComponent(Original.ClassType).Create(Owner);
でいける気がしました。
ちょっと試してみます。

498:496
08/08/29 21:51:58
>>497は勘違いでした。orz
とりあえずいけた気がします。

function CloneComponent(Owner, Original: TComponent; ClassType: TComponentClass): TComponent;
var
　　Stream: TMemoryStream;
begin
　　Result := ClassType.Create(Owner);
　　if Original is TWinControl then
　　　　(Result as TWinControl).Parent := (Original as TWinControl).Parent;

　　Stream := TMemoryStream.Create;
　　try
　　　　Stream.WriteComponent(Original);
　　　　Original.Free;
　　　　Stream.Position := 0;
　　　　Stream.ReadComponent(Result);
　　finally
　　　　Stream.Free;
　　end;
end;

使い方：
Panel1 := CloneComponent(Self, Panel1, TPanelEx) as TPanel;

問題点は、PanelならPanelの上におかれたものが全部開放されちゃうことです・・・
なんとかならないかなあ・・・

499:デフォルトの名無しさん
08/08/29 23:08:08
再帰

500:デフォルトの名無しさん
08/08/30 15:57:40
２つのアプリを同じPCで動かしているのですが、
競合する動作があるので片方が動作すつときはもう片方の動作を止めるために
WM_COPYDATAを送っています。
開発環境はｘｐで正常に動作しますが動作環境は98で
「このプログラムは不正な処理をおこなったので・・・」とゆうエラーが出ます。
このエラーは送信側が送信した瞬間に送信側で出ますが受信側は受信できています。
片方を落として動作させたり、片方の受信機能を外して送信した場合はエラーが出ません。
こちらの１と２をほぼそのまま利用しました。
URLﾘﾝｸ(homepage2.nifty.com)

501:デフォルトの名無しさん
08/08/30 16:12:36

502:デフォルトの名無しさん
08/08/30 16:57:25
＞競合する動作があるので片方が動作すつときはもう片方の動作を止めるために
そういうときには「ミューテックス」というモンを使うんですわ。
URLﾘﾝｸ(docs.codegear.com)

503:デフォルトの名無しさん
08/08/30 17:50:03
Win98上での開発・デバッグ環境を用意しろとしか

504:デフォルトの名無しさん
08/08/31 03:59:43
短い文字列型でやってみるとか。 ShortStringね。

送信側のEdit1.Textが空のときも問題ないのかな。
PCharでキャストすると、コード領域にある#0のアドレス返すから、
その辺でおかしくなるのかも。良く分かりません。

505:デフォルトの名無しさん
08/08/31 11:32:33
>>498
TReaderのメソッドの中に、
コンポーネントの構成を再帰的に追っかけて読み込んでくれるメソッドがあった希ガス

このメソッド使うと、イベントも含めたコンポーネントのクローンを作成することも可能。

506:デフォルトの名無しさん
08/08/31 19:37:44
>>502
そこはもう通り過ぎてるだろｗ

507:496
08/08/31 19:49:11
>>498のコードは不完全でして、イベントハンドラ等のコピーができません。
それらをカバーするにはこちらが参考になるようです。

DelFusaBlog コンポーネントをインストールせずに使う方法
URLﾘﾝｸ(delfusa.blog65.fc2.com)

TMemoryStreamでイベントハンドラを別のオブジェクトにコピーするには？
URLﾘﾝｸ(hpcgi1.nifty.com)

私はも書いてみようと思います。

508:デフォルトの名無しさん
08/09/01 11:01:26
DLLについて質問です。
-----------------------------------
PCOPRS1CONTROL_RET Open(int port_no)

port_no
使用するCOMポート番号(0 - 255)

出力
PCOPRS1CONTROL_RET_OK = 0
成功
PCOPRS1CONTROL_RET_ERR = 1
失敗
-----------------------------------
DLL内の上のような関数をテストしようと以下のようなコードを書いて実行すると関数はちゃんと走っているようなんですが矢印のところで毎回'privileged instruction at 0x0012f6d6'とエラーがでてしまいます。
これはDLLの呼び出し方が悪いのでしょうか？それとも他に原因があるのでしょうか？
----------------------------------
function Open(port_no: Integer): Integer; stdcall; external 'hogehoge.dll';

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
　i := Open(0);
　ShowMessage(IntToStr(i));
end; //←
----------------------------------

509:デフォルトの名無しさん
08/09/01 11:49:53
>>500
メッセージと一緒にデータも送ってるのか？
サンプルはＣＤＳがローカル変数になってるのが良くないと思われるが

別のやりかたとしては、wmuser,wmapp,resisterwindowmessage()、ファイルマッピングオブジェクト、ミューテックスあたり

510:デフォルトの名無しさん
08/09/01 18:18:00
>>500
CDS.lpData:=PChar(Edit1.Text);　がダメじゃないの？

S := Edit1.Text;
CDS.lpData := PChar(S);
でどうだ。

>>508
呼び出し規約が合ってないかもね。
Cならデフォルトはcdecl。

511:508
08/09/01 20:51:26
>>510
function Open(port_no: Integer): Integer; cdecl; external 'hogehoge.dll';
ズバリその通りで上記のようにしたらエラーが出なくなりました。
ありがとうございます！

512:デフォルトの名無しさん
08/09/02 09:37:22
すいません、listviewのコラムの順番を変えたいんですけど
ListView_SetColumnOrderArray(ListView1.Handle,3,pi);
これって、３番目を１番目に移動するには pi に何を指定すれば良いんですか

あと、これは全６個のうち３番目を１番目に移動するという事ですか
SendMessage(ListView1.Handle,LVM_SETCOLUMNORDERARRAY,6,3)

なんか、具体的な使い方が解からないので、お願いします

513:デフォルトの名無しさん
08/09/02 11:17:29
>>512
少しはググろうぜ
ListView_SetColumnOrderArrayはLVM_SETCOLUMNORDERARRAYのマクロだからどちらも同じと受け取っておｋ
piにはarray of Integerへのポインタを指定するっぽい
三つのカラムのうち一番右のカラムを一番左に持ってくるときは
pi: array[0..2] of Integer
pi[0] := 2;
pi[1] := 0;
pi[2] := 1;
でいいと思う
んで第二引数のとこには並べ替えるカラムの個数を指定するんだと思う
だからListView_SetColumnOrderArray(ListView1.Handle, Length(pi), @pi);でいいような悪寒

以上ググった結果から適当に推測した結果でした

514:512
08/09/02 18:02:04
>>513
うまく出来ました
しかし、コラムの内容は位置番号と一致してるけど
それ以下の内容は位置番号と一致しないです
やっぱり一致させるのは無理なのかな
でも、使い方が解かったんで助かりました、ありがとうございますｗ

515:デフォルトの名無しさん
08/09/03 13:41:01
SpTBXLibを使っている方は、おられませんでしょうか？
Silverpoint Development
URLﾘﾝｸ(club.telepolis.com)

SpTBXLibは標準で便利なドッカブルパネルがあるのですが、
いくつものドッカブルパネルを上に載せて設計時にGUIデザインすると、
画面が狭くなるためフレームを使って分離できないかと考えています。

しかし、TSpTBXMultiDock に載せた TSpTBXDockablePanel 上に
他の出作ったTFrameから継承したフレームを載せると、
載せたフレームが真っ黒になってしまいます orz

いままでSpTBXLib以外でのフレームでこのようなことはなかった気がします。
何か解決方法はないものでしょうか？
SpTBXLib 2.2です。OSは、Vista SP1、XP SP3で確認しました。

次ページ