くだすれDelphi(超初心者向け） Part5
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG他のスレッドでは書き込めない超低レベル、もしくは質問者自身何が何だが
分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、お礼はDelphiの布教と初心者の
救済をお願いします。
0002デフォルトの名無しさん
NGNGhttp://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デフォルトの名無しさん
NGNGhttp://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| -_- |
0005デフォルトの名無しさん
NGNGオフでは話せない引き篭り、もしくは質問者自身何が何だが
分からないバカ質問を勇気を持って糾弾するスレッドです。
糞Delphi使い（しかも使いこなせない）が低脳を振り絞りコメントを返しますが、
お礼は糞Delphiの撲滅と上級者だと思っている初心者の駆除をお願いします。
0006デフォルトの名無しさん
NGNGは、いかなるツールを使ってもアプリひとつ作れないに50,000ﾕｰﾛ
0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/test/read.cgi/tech/1058834815/
0011デフォルトの名無しさん
NGNGフレームもクラスだから Create を継承して書けばいいと思うけど？
ただ、フレームはチョコっと使うには便利だけど、初期化処理までそこに書くような場合は
コンポーネントにした方がいいと思うけどなあ
0012デフォルトの名無しさん
NGNG処理にもよるけどCreateは早すぎな気が。
フレーム内のコンポーネントを操作できないからね。
>>9
TFrameの宣言に
protected
procedure Loaded; override;
って追加してLoadedに書けばいいかも。
0013デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNG0015sage
NGNGそれはね、ティムポが小っちゃいからだyo
0016デフォルトの名無しさん
NGNGｷﾀｷﾀｰ
0017デフォルトの名無しさん
NGNGサンプル読んでいろいろやろうとしたけどめんどくさすぎ。
がんばってラップすればいろんなプロジェクトに簡単に適用できるようになるのかな。
0018デフォルトの名無しさん
NGNGBoundsRect := Rect(0, 0, Screen.Width, Screen.Height);
でフォームを最大化した時、それに併せてボタンを同じ倍率で拡大するにはどうすればよろしいのでしょうか？
0019デフォルトの名無しさん
NGNG同じ倍率でWidth、Heightやフォントサイズを変更すればいいでしょう。
Excelや拡大鏡のように見た目をそのまま拡大縮小する必殺技もありますが。
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNG書き換えるには、どうしたら良いのでしょう？
例）８行目の
"0","3","2"
"3"を"1"に書き換えるには？
file of Byte で読み出すと、場所が分からない。
Textfileでやると、ファイル全部を書き直すしか
方法が無いように思うし。
スマートな方法がありましたら、概略で良いので
教えて下さいませ。
0022デフォルトの名無しさん
NGNGそのどっちかしかないよ。前者の場合先頭から一バイトずつ解析していけば可能。
TStrings二つ使ってやるのが楽かも
lines.LoadFromFile('foo.cvs');
for i := 0 to lines.Count-1 do
begin
values.CommaText := lines[i];
...
lines[i] := values.CommaText;
end;
0023デフォルトの名無しさん
NGNG⊂,,,,,,,,,つ,,ﾟДﾟﾐつ
>>17
同意
>>20
ど・・・どお・・・ﾄﾞｳｲ・・・
>>21-22
ﾆｹｰｲそふとではRubyやPerlなら
簡単に出来る〜
って書いてたな…
0024デフォルトの名無しさん
NGNG移植性なんて全然興味がないので。
0025デフォルトの名無しさん
NGNGlist['key] := 'value';
とか書けたらうれしいのですが。
0026デフォルトの名無しさん
NGNGMap
0027デフォルトの名無しさん
NGNG0030Delﾌｻｷﾞｺ ◆A6VzDeLphI
NGNGミ,,ﾟДﾟ彡
ﾐ つ旦)~~
〜と,,,~),,~)
Destroyが仮想メソッドなのは
TObject.FreeからちゃんとDestroyが呼ばれる
為に必要。と激しくわかた積もりです。
で、Createの方なのですが
自分で暮らすを作る場合
Createは仮想にする必要があるのでしょうか？
自分で多々井を使うような場合はとても必要なのだとわかりますが
そういう用途がなければ
静的メソッドで隠してしまってもいいのですか？
・TObject継承ならオッケとか、オッケくないとか。
・TComponent継承ならCreateは仮想でoverrideとか、
・俺はいっつも仮想でoverrideとか
そういう、ご意見教えてください。
0031デフォルトの名無しさん
NGNG>自分で多々井を使うような場合はとても必要なのだとわかりますが
これがどのレベルの多胎のことを言ってるのか分からないけど
type TMyObject = class;
TMyObject2 = class(TMyObject); constructor Create; virtual; end;
TMyClass = class of TMyClass constructor Create; override; end;
function CreateObject(MyClass: TMyClass): TObject;
begin
Result := MyClass.Create;
end;
とするときvirtual/overrideがあればCreateObject(MyClass), CreateObject(MyClass2)は
それぞれ期待したインスタンスを生成できるが
なければ両方とも基底クラスであるTMyClassのインスタンスが生成されてしまう。
だから判断基準はクラス参照経由でコンストラクタが呼ばれる可能性があるかどうか。ということ。
003231
NGNGtype
TMyObject = class constructor Create; virtual; end;
TMyObject2 = class(TMyObject) constructor Create; override; end;
TMyClass = class of TMyObject
function CreateObject(MyClass: TMyClass): TObject;
begin
Result := MyClass.Create;
end;
とするときvirtual/overrideがあればCreateObject(TMyObject), CreateObject(TMyObject2)は
それぞれ期待したインスタンスを生成できるが
なければ両方とも基底クラスであるTMyClassのインスタンスが生成されてしまう。
だから判断基準はクラス参照経由でコンストラクタが呼ばれる可能性があるかどうか。ということ。
実際にはclass of でクラス参照を定義したクラスのコンストラクタをvirtualにすればいい。
0033ななしへたぐらま ◆XcB18Bks.Y
NGNG立てました．
ミ,,ﾟДﾟ彡ﾌｻｷﾞｺとﾓﾅｰのDelphi質問相談談話室２
http://pc2.2ch.net/test/read.cgi/tech/1061142216/
サブジェクトが長すぎるとはねられたのでカタカナが半角になっております．
って，早速ミスか…すまんです．＿|￣|○
0034デフォルトの名無しさん
NGNG0036デフォルトの名無しさん
NGNG制御できるでしょうか？
実際にこういったことをするかどうかはともかく、そういう動きの方法が思いつきません……。
0037デフォルトの名無しさん
NGNGOnClickイベントでSender以外のチェックボックスのチェックを全てはずす。
0039デフォルトの名無しさん
NGNGそれは多分Checked := FalseしたときにさらにOnClickイベントが発生してしまうから。
多重にイベントが発生しないようにすればいいよ。
var updating: Boolean;
procedure TForm1.ChckBoxOnClick(Sender: TObject);
begin
if updating then Exit;
updating := True;
try
... // メインの処理
finally
updating := False;
end;
end;
0040デフォルトの名無しさん
NGNGMSXMLを改めて取り込むのとどちらの方がいいんでしょうか？
それとも使いやすいXMLクラスがどこかで提供されているんでしょうか？
0042デフォルトの名無しさん
NGNGどういうふうな使い方をしたいの？
004340
NGNG読み書き。
それほど大したことを使用とは考えてません。
普通に読み書き、多少の検索程度で。
ついでなんですが、どっかで使い方解説しているサイトありませんか？
0044デフォルトの名無しさん
NGNGそうか。自分も最初色々調べたけど、そういうの使いこなすの結構めんどくさいから
状態遷移形で自分でパースしてやってる。
使いたい部分を見つけてそこを切り出してその前後は変更しないようにすりゃ他人にも迷惑がかからず
手間もごく小さいしね。
0045デフォルトの名無しさん
NGNG両者をFreeAndNilした後に、MoveFileExでBでAを上書きしようとすると、
たまにエラーが返ってきます。
どうも書き込み終了より先にファイル移動しようとしてしまって、
エラーが出てるようなのですが、対処策って何かありますか？
0046デフォルトの名無しさん
NGNG↑のページの通りにやってもできねーぞ。
ご指摘お願いします。
0047デフォルトの名無しさん
NGNGマルチすな
0048デフォルトの名無しさん
NGNGどうすれば「Ctrl+Shift+S」とか、プロパティのコンボボックスにない
パターンを設定できますか？
0049デフォルトの名無しさん
NGNGコンボボックスになくても書ける。
内部ではTextToShortCutが使われていると思われる。
005048
NGNGあ、本当ですね…
0051デフォルトの名無しさん
NGNGmemo1からtabsheet1を取得したいのですがどうやれば出来るでしょうか？
0052デフォルトの名無しさん
NGNG0053デフォルトの名無しさん
NGNG0054デフォルトの名無しさん
NGNGありがとうございました
0055デフォルトの名無しさん
NGNG0056デフォルトの名無しさん
NGNGってことは、乱用すると実行時に
メモリーの断片化を起こすような
気がするのは、気のせい？
0057デフォルトの名無しさん
NGNGんなこといったらDelのクラスインスタンスは
全てヒープに確保されるから何も作れなくなるぞ。
0058デフォルトの名無しさん
NGNGだ か ら 、 動 く っ て
オレは、この発言を見るたびにいって(ry
googleで検索してくれ。お願いだから。
堀さんも堀さんだよ。忙しいのは分かるけれどインストール方法くらい、
本家に書いてあげてくれよ。
0059デフォルトの名無しさん
NGNG0060デフォルトの名無しさん
NGNGttp://turbo.gamedev.net/undelphix.asp
＞Quite simply, UnDelphiX is a unofficial version of DelphiX powered by the official JEDI DirectX headers. It also has various "Better English" error messages, comments, and samples. It also will include DXG and DXW editors with full source.
0061デフォルトの名無しさん
NGNGさあ貴方の股間をムズムズさせる語句はいったいいくつありますか？
全てのエロを網羅した作品です。
アニメとはいえこれだけたくさんのフェチ心をくすぐる作品はめったにありません。必見！！
無料ムービーをご覧下さい。
http://www.pinkfriend.com/
0062デフォルトの名無しさん
NGNG了解。ワスレます。
0063デフォルトの名無しさん
NGNGバッファフラッシュかな。
0064デフォルトの名無しさん
NGNGそんなことでパフォーマンスを下げるよりもっと良い開発環境に切り替えるべきです。
0065デフォルトの名無しさん
NGNGDHGL(ttp://www.asahi-net.or.jp/~HA3T-NKMR/DGS/DownLoad.htm)
メモリ断片化対策メモリマネージャが入っている
0066デフォルトの名無しさん
NGNG＿, .＿
（. ﾟ A ﾟ;)
0067デフォルトの名無しさん
NGNG表示させたい（例えば長さが1000の配列で10から20番目までを表示させる）ので
すが可能ですか？
0068デフォルトの名無しさん
NGNG用紙サイズ設定などが、プレビュー上のプリンタ設定から選んでも反映されずに
default設定の用紙でしか、出力されません。
PrinterSettings-QutputBinをAutoにしていますが
これ以外にどこか設定などするのでしょうか？
まだまだDlphi道の浅い私に、どなたか教えて頂けますでしょうか。
よろしくお願いいたします。
006945
NGNGそのバッファフラッシュの方法が知りたいのですが…
FileStreamにメソッドありました？
0071デフォルトの名無しさん
NGNGスクリーン上の座標を知るにはどうしたらいいでしょうか？
0072デフォルトの名無しさん
NGNGvar Point: TPoint;として
Point:=ScrollBox1.ClientToScreen(Point);
TWinControlを継承しているなら↓でもできるし
Point:=TWinControl(ScrollBox1).ClientToScreen(Point);
あるいはWin32APIを直接使うことも出来る。
Windows.ClientToScreen(ScrollBox1.Handle, Point);
007371
NGNGあ、あれ？(;´Д｀)
コード補完でTYPOしてて、無いと勘違いしていたかな？
あう〜、勘違いして申し訳ない。
0074デフォルトの名無しさん
NGNG0075デフォルトの名無しさん
NGNG>Octaneは、Windows 2003とMicrosoft(R) .NETフレームワークの両方を完全にサポートする予定です。
だそうだ
0076デフォルトの名無しさん
NGNG良かった。
VC++しかネイティブを作成できないとなると終わっているよね。
0077デフォルトの名無しさん
NGNG設定しているのですが、これと同じ枠が表示されるけどサイズ変更は不可、
って方法はありますか？
WS_THICKFRAME を外して、WS_BORDER を設定してもベタッとした表示ですし、
WS_DLGFRAME ではタイトルバーが表示されてしまって…。
0078デフォルトの名無しさん
NGNGされないぽくない？まあ他に自分で描くとか、WM_NCHITTESTで結果を変えるとか
方法はあるだろうけども。
0079デフォルトの名無しさん
NGNGぐぁ！ 本当ですなぁ…。
WS_BORDER と WS_DLGFRAME 両方を設定すると
タイトルバーが出るんで、駄目だと思い込んでました…
ｽﾏｿ(;´Д｀)
008068
NGNGここに書けば、皆さんのご意見を伺えるかと思ったのですが
ご親切な方、恐れ入りますがよろしくお願いいたします。
0081デフォルトの名無しさん
NGNG008277
NGNGと思ったら、今度はウィンドウの高さが34ぐらいより
小さくすることが出来ないっぽい…むむむ
0083デフォルトの名無しさん
NGNGじゃあWM_GETMINMAXINFOを処理して、自分で最小の高さを設定。
008477
NGNGその作業してました。なんとかなりました。
しかし原因は何なんでしょうね？
VCL中でダイアログは最低この大きさ、とか書いているんですかね？
0085デフォルトの名無しさん
NGNG0086デフォルトの名無しさん
NGNG漏れの所もやってみたが確かに出ねぇな
A4のみ出してたんで気がつかんかった・・・
ｸｲｯｸﾚﾎﾟｰﾄのﾊﾞｸﾞかヽ(`Д´)ﾉ
他の連中てどうしてるんだ？(ﾟдﾟ )
0087デフォルトの名無しさん
NGNGここで「QuickReport,印刷」で検索してみれ
http://www2.big.or.jp/~osamu/Delphi/
0088デフォルトの名無しさん
NGNGとエラーが出たんですけど漏れにはこの意味がわかりません。
またどのように対処したらよいのでしょうか？
0089デフォルトの名無しさん
NGNGエラーメッセージを選択してF1キー
0090デフォルトの名無しさん
NGNG文字通り。互換性が無いんだよ。
何をしたら、ソレが出るんだか書いたら対処をアドバイス出来るかもしれんが…。
そのレスじゃダメだな。
0091デフォルトの名無しさん
NGNG小数点以下を切り捨てるなり四捨五入しなければならず、
整数型で表現できる数値の範囲でなければならない。
0092デフォルトの名無しさん
NGNG0093デフォルトの名無しさん
NGNG最初はよくやったよ。不便だなぁと思ったものだ。
0094デフォルトの名無しさん
NGNG<ビットマップ>
<ヘッダー>
<ビットマップ>
<ヘッダー>
<ビットマップ>
.
.
上のようなファイルをTFileStreamで読み込み、表示させるプログラムを作っています。
ビットマップ部先頭にPositionを移動し、Imageに流し込むようにすると
エラー(ビットマップが不正です)が出るビットマップとそうでないものが出てきます。
エラーのでるビットマップ部をバイナリエディタで切り取ってファイルから読み込むと
エラーは出ません。どうしたらいいのでしょう？教えてください。
0095デフォルトの名無しさん
NGNG0096デフォルトの名無しさん
NGNG実数を整数にするには、
丸める(Round)か、切り捨て(Trunc)か、+方向へ切り上げ、-方向へ切り下げ、四捨五入…と、
色々方法があるので、どれか選んで関数を使うべし。
暗黙の変換を許してる言語もあるけれど、結構危険と思ってる。
0097デフォルトの名無しさん
NGNGビットマップのヘッダーには、データ本体へのオフセットが含まれてた気がする。
TBitmap.LoadFromStreamがSeekしようとして変なところに移動してしまわないよう
一旦TMemoryStreamにでも切り出して使えばどう？
0098デフォルトの名無しさん
NGNG特に理由がなければExtendedは使わない方がいいぞ。
互換性がやばい。
0099デフォルトの名無しさん
NGNGうまくいきました！ありがとうございます。
0100デフォルトの名無しさん
NGNGキャストしろ。
>>69
なければAPI使え。
0101デフォルトの名無しさん
NGNGインストールの仕方がわからない・・
誰かやさしく教えてください
0102ミ,,ﾟДﾟ彡 ◆A6VzDeLphI
NGNGよくわかりました。
そう。多胎って
>だから判断基準はクラス参照経由でコンストラクタが呼ばれる可能性があるかどうか。ということ。
の意味で使いました。
中村ﾀﾝ本に書いてありましたが
VCLの基本思想って継承を使った実装ではなくて
イベントを使った委譲による実装が多くしてあって、
わかりやすいそうですね。
010368
NGNGレスを付けてくださった方々様、お礼申し上げます。
ただ結論としては、QuickReportではバグがあって命題のプリンタ設定が使えず
伝票など特殊サイズの手指しと業務に対応出来なかったと言う事で
非常に残念な結果でした…
今回はAccess+VBで対策予定ですが、今後の事もありますので
もし打開策をお持ちの達人がいらっしゃいましたら教えて頂ければ幸いです。
0104デフォルトの名無しさん
NGNGといか、Windowsの印刷ってとてもお手軽なんで、そんなツール使わずにベタベタ Canvasに表示しときゃ
何の苦労も無いって事で
0105デフォルトの名無しさん
NGNGDelphi6Personalです
0106デフォルトの名無しさん
NGNGなんとかしたいのだが・・・
0107デフォルトの名無しさん
NGNGシリアルポートの事？ Open してみてエラーステータスを見るのが一番簡単では？
それともTCP/IPポートの事？
0108デフォルトの名無しさん
NGNGTCP/IPポートです
0109デフォルトの名無しさん
NGNGフリーなDBエンジンをネイテブに叩く限りはなんとでもなるでしょ。
011068
NGNGそうなのですか！？ 初心者ですのでさっと言って頂ける内容でもありがたいです。
BDE〜DBEditなどのDBコンポーネントを利用しているのでQuickReportを前提に考えておりましたので
差し支えなければ簡単な手ほどきをして頂ければ助かります。
0111デフォルトの名無しさん
NGNGどういうふうに印刷ったって
BDEなら、ToString して 指定位置に Canvas.TextRect で印刷するだけでしょ？
そこらへん印刷用の関数をいろいろ作っていけば簡単になるよ
自分は簡単なマクロ作ってる。
0112デフォルトの名無しさん
NGNGDelphiならどうするの？
しかもDBGrid使えないんじゃ、表示もツライのでは･･･？
Delphiに興味はあるがそれを考えるとなかなか手が出ない・・・
0113デフォルトの名無しさん
NGNGタイルを読み込むまではできましたが、タイル１マスを描くごとに
Imageに描きCopyRectを使ってマップ本体に転送しているので
とても遅いです。なにかほかにいい方法はないでしょうか？
0114デフォルトの名無しさん
NGNGそれはProを買えってご宣託でしょう。
RecordSetに相当するのがProには用意されているし、DbGridも便利に使える。
パーソナルでやるなら TStringListをDB代わりに使える範囲でチマチマやるしかないと思うよ。
>>113
書き換えた場所だけ転送してるんだよね？ そんなに遅い？
0115デフォルトの名無しさん
NGNG#39で記述しますが、
これを16進数(27h)で書くにはどうしたら良いですか?
#$27にするとエラーになっちゃうし
0116デフォルトの名無しさん
NGNG0117デフォルトの名無しさん
NGNG'xxxx' + #39 + 'xxxxxx'
というふうに書きたい
39の部分は、文字コードなんで16進で・・・
0118113
NGNG1マス転送する毎に640x480のビットマップをImageに書いてからCopyRectで
指定した一部を転送してるので、遅くなってしまうのだと思います。
1つのマップを描くのに数十枚の640x480のビットマップがいるので
できればStreamから直接一部だけを転送できるような関数が
あればよいのですが・・
0119デフォルトの名無しさん
NGNG0120デフォルトの名無しさん
NGNGthx
0121デフォルトの名無しさん
NGNG#$27 でいいと思うが？ どう書いてエラーになったの？
'xxxx' + #$27 + 'xxxxxx' でも ＋ を省略して
'xxxx'#$27'xxxxxx' でもいいよ
0122デフォルトの名無しさん
NGNGよくわからないが、どうしてもっと大きなBMP作ってそこに描かないの？
0123デフォルトの名無しさん
NGNGマップ描画用のImageは初めから用意してあります。
ウラにもうひとつImageを置き、1マスごとに一旦640x480のビットマップを
いちいちそれに描いて、そこからマップデータに指定されているチップを
転送するので、遅くなってしまいます。
0124デフォルトの名無しさん
NGNG0125デフォルトの名無しさん
NGNGそうです。TImageです。。。
それしか方法が思いつかなかったので・・
0126デフォルトの名無しさん
NGNG「フリーコンポ使っとけ」
TAlphaBitmap
DirectXでもいいならDelphiX、QuadrupleD
0127デフォルトの名無しさん
NGNGアリなら>>126と同じくTABitmap
0128113
NGNGまた何かあればよろしくお願いします。
0129デフォルトの名無しさん
NGNG0130デフォルトの名無しさん
NGNGttp://plaza21.mbn.or.jp/~takoyakusi/delphi/WebBrowser.html
を見て分かったのですが、
よくブラウザで見かける、
「現在読み込み中」みたいなメーター
を出す方法（または読み込み完了したことが分かるフラグ）
が分かりません。
教えていただけないでしょうか。
Delphi6パーソナルを使用しています
0131ななしへたぐらま ◆XcB18Bks.Y
NGNGどちらかというとゲーム制作板向けの話題ですが…．
マップエディタを作るのでしたらドローグリッド（TDrawGrid）を使ってみては？
ドローグリッドはセルの縦横の長さをタイルと同じに，縦横のセルの数をマップと同じにして，OnDrawCellイベントでタイルのイメージを転送します．
ドローグリッドが「[3, 5]のセルのイメージを(128, 64)-(159, 95)の領域に描けや」って要求してくるので「へいへい．[3, 5]はえーっと…（一覧表を見る）…ああ，１１番のタイルだな．じゃぁこれをコピペ，と」という感じで描画していくわけです．
すべてのタイルを含んだイメージをビットマップオブジェクト（TBitmap）に持たせ，イメージ転送にはCopyRectを使って実験してみましたが（ビットマップは24Bit DIB形式にした），手元の遅い環境でも速度的には問題ありませんでした．
（ちなみにWin 95，CPU: MMX Pentium 200 MHz，VIDEO: Trident 9685，画面モードは1024×768のハイカラーです）
>>118
転送に時間がかかるのはCopyRectが遅いからではなくて無駄なイメージ転送が多いためでしょう．なおドローグリッドを使わないとしてもマップを描くのに必要なビットマップはタイル用に１枚，フレームバッファ用に１枚だけで済むと思いますが．
もしかしてマップ全体の表示イメージを640×480に切って持たせようとしていませんか？マップ情報はタイル番号の2次元配列として持たせないと駄目ですよ．
0132デフォルトの名無しさん
NGNGttp://plaza21.mbn.or.jp/~takoyakusi/delphi/Event.html#onProgressChange
0134デフォルトの名無しさん
NGNGクリップボードを使った方法を教えてもらえないでしょうか。
マウスクリックまでは検索して分かったのですけど、キーボードのキーを疑似的に
押すこととクリップボードを使ったペーストはやりかたが分かりませんでした。
0135デフォルトの名無しさん
NGNG設計時にはメインメニューが表示されるのに、実行時には表示されません。
お助けを。
0136デフォルトの名無しさん
NGNG製品版？ ならバージョンによってCDROMにSendKeyとかいう名前のが入ってないかな
>>135
どこかのイベントで再度設定してみたらどう？
0138デフォルトの名無しさん
NGNGMainMene1 := TMainMenu.Create(Self);
とやって、メインフォームのOnCreateで
DataModule2 := TDataModule2.Create(Self);
Menu := DataModule2.MainMenu1;
とやってみたけど、表示されませんでした。
素直にメインフォームにメインメニューを置く事にします。
0139デフォルトの名無しさん
NGNGなんかツッコミどころ満載な事やってんな。
それはいいとして、普通にFormのMenuプロパティに設定しただけで、ちゃんとメニュー出たよ。
どうせDataModule2を自動生成の対象から外してるとかそんなんじゃないの？
0140デフォルトの名無しさん
NGNGその通りでした。お恥ずかしい。
0141デフォルトの名無しさん
NGNG0142デフォルトの名無しさん
NGNGどうしてダメだと思うの？
0143デフォルトの名無しさん
NGNG投げると自動的にデストラクタが呼ばれるようになっておる。
0144デフォルトの名無しさん
NGNGD7のオフィシャルコースウェアで財務管理システムを作る演習があるんですが、
そこのプログラムを実行するとカスタム例外処理の部分で例外が発生してしまいます。
コンパイルは通るんですけど、例外を知らせるプロンプトが出るべき部分を
実行させると、どの部分でもクラス生成のエラーが出ます。
どなたか同じ症状で悩んだ方いらっしゃいますか？
この原因はどのようなことが考えられるのでしょうか？
0145デフォルトの名無しさん
NGNGそれでいいんじゃないのか？
0146144
NGNGアプリが停止してから”例外が発生〜”と出る症状なんです。
0147144
NGNG実行がストップしてしまうんです。
そのエラーが”クラス生成の例外が発生〜”なんですが。
カスタム例外クラスの記述は間違っていないです。
というか、付属CD-ROMから移しただけなんで問題ないはずなんですが。
0148デフォルトの名無しさん
NGNG聞けば聞くほどソレで正常だと思うのだが？
オフィシャルコースウェアに解説は無いのか？
ツール->デバッグオプション につていの解説とかさ
0149144
NGNGしかし、デフォルトでテーブルに入っているデータが参照出来ずにこの
エラーが出るんですよね。
何かチェック項目を変えればいいんでしょうか？こちらでも調べます。
あと接続周りもチェックして接続は出来ています。
0150デフォルトの名無しさん
NGNGa = { 0 , 2 , 3 };
↑こういうことをやりたいんです
0151デフォルトの名無しさん
NGNG例外を出したくないなら、 ツール->デバッガオプションで無視する例外に入れておけばいい
0152デフォルトの名無しさん
NGNGそういう場合は 構造体を返す関数を作るのが簡単でスマートだと思うよ。
0154デフォルトの名無しさん
NGNGあとラベル内で改行ってできますか？
0155デフォルトの名無しさん
NGNGできます。
0156デフォルトの名無しさん
NGNG細いタイトルバーっぽいのと閉じるボタンが出ますよね。
bsNoneにしているフォームでタイトルバー（もどき）を
自分で描画しているので、その細いタイトルバーとかも
なんとかイメージ統一のために自力で書きたいのですが、
何かいい方法はありませんか？
■ このスレッドは過去ログ倉庫に格納されています