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

1 名前： ◆XcB18Bks.Y mailto:sage [2008/06/24(火) 16:24:25 ] Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を 勇気を持って書き込むスレッドです。 Delphi使いが優しくコメントを返しますが お礼はDelphiの布教と初心者の救済をお願いします。 <前スレ> くだすれDelphi(超初心者用)その46 pc11.2ch.net/test/read.cgi/tech/1205323779/ <過去スレ> DelWiki避難所（Delphi 関連の過去スレッド） delwiki.info/?%E3%83%AA%E3%83%B3%E3%82%AF%2F%E3%82%B3%E3%83%9F%E3%83%A5%E3%83%8B%E3%83%86%E3%82%A3%2FDelphi%20%E9%96%A2%E9%80%A3%E3%81%AE%E9%81%8E%E5%8E%BB%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89 82 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 08:52:14 ] ageて暴言だけ吐くだけ奴くらいパターン検出してスルーしてくれよ 83 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 16:53:43 ] CPUのクロック数を出来るだけ正確に計測するにはどうすればいいのでしょうか？ Jane Styleのバグレポートは毎回同じ数値を出しますが、起動時に測った数値を表示しているだけでしょうか？ 84 名前：83 mailto:sage [2008/07/04(金) 17:49:03 ] すみません、自己解決しました 85 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 20:44:56 ] いいけど 現象、原因、影響、対策、要因、作りこんだ理由、防げなかった理由、 再発防止策、などなど晒してくれるとウレシイ 86 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 20:59:29 ] おとこわりだ！ 87 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 21:05:57 ] 男割り・・・？ウホッ 88 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 05:26:04 ] >>83 自己解決したら、あとの人のためにももしかしたら協力して調べてくれた人のためにも、 解決法を書いていきましょうや 89 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 05:52:44 ] CPUネタはスレちがいです 90 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 06:34:09 ] 　　　 ＿_　　　　　　＿＿＿＿＿　　r―‐┐┌――┐　　 　 　 　 ＿　　　　　厂|　　 　 　 ＿＿厂|＿＿ 　　／ ∠＿＿＿,　 |＿＿＿___　|　/_/７ /　 ７ 厂|　|　く＼ 　 　 ｜｜　 　 　 |　|　　 　 　 |＿＿　 ＿＿| 　　l 　 ＿＿＿　 |　　 　 　 　 |　|　＿/ 〈＿ Ｌ/　[＿| 　 ヽ」┌─┘└─┐　 |　|　　　　_　|＿＿　 ＿＿| 　 ｜　|＿＿＿|　|　＿＿＿＿|　|　| 口 口 | /Ｚ_冂＿　〈＼.└─┐┌┐│　 |　ヽ＿_／ | /┌┐　＿ ＼ 　　l 　 ＿＿＿　 |　|　　 　 　 　 |　| 口 口 l〈_,r┐┌┘　＼/＿＿|　L_」　|＿　＼＿＿／ ヽ､二__ノ　 ヽ/ 　 ｜　|＿＿＿|　|　|　|￣￣￣￣　|┌ー┐|┌ ┘└┐　　　|＿＿　 ＿＿＿|　 厂|　　　 　 ＿厂|＿＿ 　　l 　 ＿＿＿　 |　|　| 　 　 　 　 ｜| 　 ｜|└ ┐┌┘　 / 〉　　 /　＼　　　 　 | ｜　　　　└┐┌─┘ 　 ｜　|＿＿＿|　|　|　ヽ＿＿__／| |｜ 　 |｜ 　 |　|　　　/ /　 ／／＼ ＼＿_　 |　|＿,ノ|　　　 |　| l二二l 　　l＿＿＿＿＿_|　ヽ＿＿＿＿_ﾉ |.」 　 [__|　　 |_.」　　く_/　く_／　　　＼＿ﾉ　 ヽ＿＿/　　 ∠_/　l二二l 91 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 08:19:33 ] Delphi使いは馬鹿って本当なんですか？ 92 名前：91 mailto:sage [2008/07/05(土) 08:20:05 ] すみません、自己解決しました 93 名前：デフォルトの名無しさん [2008/07/05(土) 08:59:20 ] まさに思うツボｗｗｗ 94 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 14:54:13 ] つーかJane Styleって書いてあるんだから、CCPUID 使ってるだけだろ www.cafe-au-lait.info/ 95 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 16:12:37 ] 変な奴が別板から湧いてるな。 96 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 17:50:36 ] >>94 ｷﾓｲ 97 名前：デフォルトの名無しさん mailto:sage [2008/07/05(土) 18:14:49 ] 変な奴が別板から湧いてるな。 98 名前：デフォルトの名無しさん mailto:sage [2008/07/06(日) 17:27:53 ] delphinoIDEのタブ順序の設定みたいに選択した部分をクリックやドラッグで上下に移動するのは どうやって作ればいいですか。 99 名前：デフォルトの名無しさん mailto:sage [2008/07/06(日) 22:26:28 ] delphi6のエディタの行番号はどうすればでてきますか？ 100 名前：デフォルトの名無しさん [2008/07/07(月) 23:04:31 ] >>98 なんだ、その頼み方は？ お前はまともな礼儀も習わなかったのか？ バカヤロ。 101 名前：デフォルトの名無しさん mailto:sage [2008/07/08(火) 11:33:18 ] >>98 設計中ではなく、実行中に動的にやりたいという事？ もしかして、こういう事がやりたいのかと、delWikiから消えていたので再upした delwiki.info/?%E3%82%B3%E3%83%BC%E3%83%89%E5%80%89%E5%BA%AB%2FFormDraw >>99 自分のアプリに行番号表示した編集窓を付けたいの？ TEditor とか　エディターコンポを入れるといいと思うよ 102 名前：98 mailto:sage [2008/07/08(火) 19:55:58 ] >>101 ありがとうございます。 有るリストの中身の順番を手動で任意に設定したかったのです。 DBからリストを読み込んでGRID形式で表示して表示順のインデックスフィールドの 値を任意に変えるのをあのタブ順の変更のような形でやりたかったので。 103 名前：デフォルトの名無しさん [2008/07/09(水) 00:41:21 ] >>102 クソ野郎、そんなお礼の仕方があるか。 104 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 01:07:00 ] どうしたんだ？ん？ また職場で嫌なことがあったのか？ 105 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 08:46:05 ] >>103 お、おまえも裏口先生なのか？ 106 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 10:43:04 ] >>104 親に働けと言われたんだろう 107 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 11:01:04 ] 推奨NGEx:クソ野郎|馬鹿|バカ|どうしたんだ？ 108 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 13:46:01 ] お兄ちゃんたち、宿題もってきたよ。 私のために解いてね。 配列を使ったプログラムで、Editに入れた数字をButton1を押すごとにMemo1に追加していって ある程度追加したところでButton2を押すとその数字に応じた長さが棒グラフのようにPaintBoxに表示される プログラムを作りなさい。 お願い！ 109 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 14:35:25 ] TXPToolBarMenuってどこにあるんでしょうか・・・ ググったらbagelという専ブラのコントロールのようだと分かったんですが、 そのソースを見てもさっぱり分かりません・・・ ComCtrlsXP.pasというユニットが見つからないのでそれにあるのかな？ こいつもググっても出てこないんですがこれはどこにあるんでしょう・・・ 110 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 15:37:32 ] >>109 Geckoタブブラウザ Bagel その6 pc11.2ch.net/test/read.cgi/software/1181840099/ このスレに行ってbagelの作者さんに聞いてみたら？ 111 名前：98 mailto:sage [2008/07/09(水) 21:11:42 ] D7でQuickReportで帳票を作っています プレビュー画面で印刷ボタンを押すとすぐに印刷が始まってしまいますが、印刷先を変えたり、 一部ページだけ印刷したいときに、うっかり全部印刷してしまうのが悲しいので、印刷ボタンを 押したら、印刷設定のダイアログを出して変更出来るようにしたいのですが、どうすればいいでしょうか。 112 名前：デフォルトの名無しさん [2008/07/09(水) 21:15:21 ] 適当に作ったら巧くいかんかった上に配列使ってなかった。 配列定義してみたが使ってないことに気付かなかった。 明日も早いし良い感じで酩酊してきたんでもう寝る。 酒入ると何がしたいのかサッパリになるねぇ。 type TMySharp = class FColor : TColor; Fx1,Fx2,Fy1,Fy2 : Integer; constructor Create(memo:TMemo;line:integer); procedure Draw(TargetCanvas:TCanvas); end; 113 名前：デフォルトの名無しさん [2008/07/09(水) 21:16:55 ] constructor TMySharp.Create(memo: TMemo; line: integer); var dc : THandle; tm : TTextMetric; begin dc := GetDC(memo.Handle); try GetTextMetrics(dc, tm); Fx1 := memo.Left+memo.Width+1; Fx2 := Fx1+StrToInt(memo.Lines[line])*2; if line = 0 then begin Fy1 := Memo.Top; Fy2 := Memo.Top+10; end else begin Fy1 := Memo.Top+(tm.tmHeight*line)-(line*6); Fy2 := Fy1+10; end; FColor := $99FF66; finally ReleaseDC(memo.Handle,dc); end; end; 114 名前：デフォルトの名無しさん [2008/07/09(水) 21:18:14 ] procedure TMySharp.Draw(TargetCanvas: TCanvas); begin TargetCanvas.Brush.Color := FColor; TargetCanvas.RectAngle(Fx1,Fy1,Fx2,Fy2); end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin if TryStrToint(Edit1.Text, i) then Memo1.Lines.Add(Edit1.Text); Edit1.Clear; end; 115 名前：デフォルトの名無しさん [2008/07/09(水) 21:19:19 ] procedure TForm1.Button2Click(Sender: TObject); var MySharp : TMySharp; i,j,k : Integer; ArryInt : Array of Integer; begin try j := Memo1.Perform(EM_GETFIRSTVISIBLELINE,0,0); SetLength(ArryInt, Memo1.Lines.Count-j); k := Memo1.Lines.Count-j; for i := j to j+k-1 do ArryInt[i] := StrToInt(Memo1.Lines[j+i]); for i := j to j+k-1 do begin MySharp := TMySharp.Create(Memo1,i); MySharp.Draw(Canvas); end; Finally freeandnil(MySharp); end; end; 116 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 21:57:37 ] 俺が悪かった >>108お願いします。 117 名前：１１６ mailto:sage [2008/07/09(水) 21:58:30 ] あ、すいません。 >>112-115 ありがとうございました。 118 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 23:04:32 ] メモから配列に入れるルーチンと、 配列からグラフを描画するルーチンを分けるといいかも。 119 名前：116 mailto:sage [2008/07/09(水) 23:15:44 ] var n : integer; a : array[1..20] of integer; // 長さ 20 の配列の宣言 Edit1.Clear; Edit1.SetFocus; end; procedure TForm1.Button2Click(Sender: TObject); // データの入力 // begin Memo1.Lines.Add(Edit1.Text); n := n + 1; // n を 1 ふやし， a[n] := StrToInt(Edit1.Text); // Edit1 に入力された整数を // 配列 a[n] にしまう Edit1.Clear; Edit1.SetFocus; end; procedure TForm1.Button3Click(Sender: TObject); // 棒グラフの作成 // var i : integer; begin with PaintBox1.Canvas do begin ?? ?? 問 2: 以下の作業を，i = 1 から n まで， ?? n 回繰り返す （ for 文 または repeat 文，while 文を用いる） ?? ?? 作業： ?? i の値に応じて x 方向に位置をずらしながら， ?? a[i] に対応する高さの細長い長方形を描く ?? end; Edit1.SetFocus; end; end. こんな感じなのですが・・・ 120 名前：116 mailto:sage [2008/07/09(水) 23:16:14 ] 問い２の部分がわからない； 121 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 23:38:19 ] >>119 上がよくわからんが 配列a はグローバル変数かクラスのフィールドだよな？ だとして、 問2： for i := 1 to n do 　DrawRectangle(i, a[i]); こんな感じかな？DrawRectangle の中身は適当にかけばいいと思う。 はいつぎの質問 122 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 00:28:58 ] procedure TForm1.Button1Click(Sender:TObject) begin 　　Memo1.Add(Edit1.Text); end; procedure TForm1.Button2Click(Sender: TObject); var I,Y:Integer; 　　R:TRect; begin PaintBox1.Canvas.Brush.Color := clRed; 　　R := Rect(0,0,0,4); 　　for I:=0 to Memo1.Lines.Count-1 do 　　begin 　　　　R.Right := StrToInt(Memo1.Lines[I]) * 5; 　　　　PaintBox1.Canvas.FillRect(R); 　　　　OffsetRect(R,0,4); 　　end; end; 123 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 00:37:06 ] >>110 ありがとうございます 聞いてみます 124 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 19:49:28 ] tifファイルを開くにはどうしたらいいでしょうか。 125 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 20:04:28 ] こじ開ける 126 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 20:14:40 ] >>124 reset 127 名前：112 mailto:sage [2008/07/10(木) 20:26:38 ] 出題した方スマン。 全然見当違いの解答やった。 おまけにメモスクロールするとエラー出るし。 128 名前：デフォルトの名無しさん mailto:sage [2008/07/10(木) 23:05:46 ] TurboDelphi Interbase7.5 WindowsXP　Nod32ファイアウォール付 Interbase自動起動に失敗します。 起動時にシステムトレイに入りかかるんだが、消えてしまう。 interbase7.5 managerの設定では、自動起動、「InterBaseをWindowsサービスとして起動する」 のチェックははずしてある。 でもなんで「InterBaseをWindowsサービスとして起動する」とするとサーバーにログインできないんかね。 なぜかIBCosoleではInterBaseがWindowsサービスでも接続できるんだが、 ほかでは、BDEはだめだし、設計時にも接続できないんだよね。 129 名前：デフォルトの名無しさん mailto:sage [2008/07/11(金) 21:34:23 ] >>109>>123 Windows XP Theme Manager www.soft-gems.net/index.php?option=com_content&task=view&id=17&Itemid=33 130 名前：109 mailto:sage [2008/07/12(土) 02:28:37 ] >>129 ありがとうございます しかしTheme Managerのすべてのプロパティをオンにしてもメニューがボタンぽくなってしまいます 自分で描画しようと思うのですが、TMenuItemがポップアップされているか確認するにはどうすればいいんでしょうか？ 131 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 04:11:56 ] TurboDelphiとMicrosoftのVisualStudio(VB or C#)は共存できますでしょうか？ 両方入れたいのですが、大丈夫かどうかご教示ください。 132 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 08:18:00 ] 問題なし。 かち合うのはインストール時の標準のデバッガの上書きをし合うくらいだろう。 133 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 19:37:49 ] delphi 2007って安定してますか？ 134 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 20:05:35 ] どういう意味で？IDEは普通に動くけど、終了時にたまにコケる程度。 135 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 20:11:35 ] >>134 2006が一番安定してるって聞いたことがあるので2007はどの程度なのかと思い質問させていただきました。 参考になりました 136 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 20:29:41 ] そういう意味では2007オススメ。2006より問題が少ない。 137 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 20:45:30 ] >>136 体験版あるみたいなので使ってみようと思います。 ありがとうございました。 138 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 20:48:20 ] もしこの先Vista以降の環境で使う予定があるなら2007にしとくのが無難かな。 ガリレオ以前のIDEはVistaだと挙動がかなりやばい。 139 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 21:27:57 ] 質問です　デルファイ7です すっごく前から気になっていたんですが デルファイのプロパティのキャプション（NAME？） をコピーして、エクセルに貼り付けしようとすると object なんたらかんたら　size　なんたらかんたらって でるんですけど、これ何とかならないですか たとえば　LblHoge をコピーして張り付けると　LblHogeだけの コピーが欲しいのに上記のように長ーい呪文みたいのが付いてくるんです 回避する方法ありますか知っていたら教えてください 140 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 21:31:12 ] コピー元が間違ってる。オブジェクトインスペクタのCaptionの値のところでコピーしないと駄目。 今のやり方で何がコピーされてるのかはメモ帳にでも貼り付けてみりゃわかるだろ。 141 名前：デフォルトの名無しさん [2008/07/12(土) 22:06:09 ] ではNameをコピーするにはどうすればいいんでしょうか 仕様書を作る時 captionもnameも（captionは日本語でnameは英語） 必要なんです＾＾； いちいち編集するんです・・よね？ ちなみに いま７環境ないんで試せないんで デルファイのターボで試したら どちらも（caption ,name）も普通にコピーできた！ 142 名前：デフォルトの名無しさん mailto:sage [2008/07/12(土) 23:29:22 ] >>130 TToolBar.Flat こういうのもある SpTBXLib club.telepolis.com/silverpointdev/sptbxlib/index.htm 143 名前：140 mailto:sage [2008/07/12(土) 23:48:05 ] >141 > 今のやり方で何がコピーされてるのかはメモ帳にでも貼り付けてみりゃわかるだろ。 144 名前：109 mailto:sage [2008/07/13(日) 00:12:40 ] >>142 ありがとうございます TMenuBarでテストしたのでそれはないです SpTBXLibも使ってみたんですが、なんだか変だったり、常時XPスタイルっぽかったりして使いづらいです 自分で描画するのはメニューを出してる時に青くならないのに目をつぶれば行けるんですが 完璧主義っぽいところがあるので許せないんですよね・・・ 145 名前：デフォルトの名無しさん mailto:sage [2008/07/13(日) 00:45:11 ] >>140 そうですか・・・ 146 名前：デフォルトの名無しさん mailto:sage [2008/07/13(日) 02:32:46 ] >>144 たぶんプロパティの設定を間違ってるか、何か勘違いしているかどちらかだろう 好きにすれば？ 147 名前：デフォルトの名無しさん mailto:sage [2008/07/13(日) 08:33:20 ] >>138 Delphi6製のGUIアプリとか、Vistaだとラベルが真っ白になったりするよな アレ何なんだろう 148 名前：デフォルトの名無しさん mailto:sage [2008/07/13(日) 11:18:07 ] manifestリソースだけで無理矢理視覚スタイル適用してるため。 TGroupBoxなど、VCLは非標準的方法で描画しているコントロールが結構あるんで そういうところ対策していないと表示がおかしな事になる。 149 名前：デフォルトの名無しさん mailto:sage [2008/07/13(日) 11:34:51 ] もういっそのこと開き直るしかない 150 名前：デフォルトの名無しさん mailto:sage [2008/07/13(日) 14:19:54 ] >>144 ｴﾝｺｰﾄﾞはShift_Jisで web.archive.org/web/20040606145326/www.namakoworld.com/lowtech/download/xpctrls.htm ZIPの尻が１byte欠けてるのでﾊﾞｲﾅﾘｴﾃﾞｨﾀでNull足せば どのｱｰｶｲﾊﾞでも開けると思う 151 名前：デフォルトの名無しさん mailto:sage [2008/07/13(日) 15:32:42 ] >>148 thank なるほどなあ 152 名前：109 mailto:sage [2008/07/13(日) 17:16:46 ] >>150 そこにキャッシュされてたんですか・・・ ありがとうございました！ 153 名前：デフォルトの名無しさん mailto:sage [2008/07/15(火) 19:45:27 ] gifをTGIFImageで読んで、TBitmapにCanvas.Drawで描画したいんですが、なぜか描画されないようです TImageだと描画できるのに何ででしょうか？ OnCreateの中だと無理なんでしょうか 154 名前：デフォルトの名無しさん mailto:sage [2008/07/15(火) 21:54:30 ] 空っぽのビットマップだからとか？ いずれにせよエスパーが必要な質問はやめれ。 155 名前：デフォルトの名無しさん mailto:sage [2008/07/15(火) 22:36:14 ] TBitmapに描画したあと、OnPaintでFormのCanvasに描画しないとダメだよ。 156 名前：131 mailto:sage [2008/07/15(火) 23:06:03 ] >>132 遅レスですが、ありがとうございます。 両方入れてみましたが、とりあえず問題ありません。 157 名前：デフォルトの名無しさん [2008/07/16(水) 00:48:29 ] >>154 偉そうに、バカのくせに。 158 名前：153 mailto:sage [2008/07/16(水) 11:16:22 ] こんな感じなんですけど・・・ この例のようにファイルが1つだけならいいんですが、 今やりたいのは2つ以上あるファイルを起動時に読み込みたいんです procedure TForm1.FormCreate(Sender: TObject); var Gif: TGIFImage; Bmp: TBitmap; begin Gif := TGIFImage.Create; Bmp := TBitmap.Create; try Gif.LoadFromFile('Gifファイル.gif'); Bmp.Canvas.Draw(0,0,Gif); Bmp.SaveToFile('Bmpファイル.bmp'); finally Gif.Free; Bmp.Free; end; end; 159 名前：デフォルトの名無しさん mailto:sage [2008/07/16(水) 11:46:58 ] >>158 Gif.LoadFromFile('Gifファイル.gif'); Bmp.Width := Gif.Width; //追加 Bmp.Height := Gif.Height; //追加 Bmp.Canvas.Draw(0,0,Gif); 試してないけど、こうすればできるかも。 160 名前：デフォルトの名無しさん mailto:sage [2008/07/16(水) 11:55:03 ] >>158 assignはBmpの大きさ設定不要だけど、Drawは>>159 161 名前：153 mailto:sage [2008/07/16(水) 14:52:41 ] >>159,160 そうだったんですか、ありがとうございました 162 名前：デフォルトの名無しさん mailto:sage [2008/07/16(水) 22:32:03 ] ListView のカラムをクリックで ListView1.AlphaSort と Compare:=CompareText(Item1.SubItems[(Colum-1)],Item2.SubItems[(Colum-1)]); を 使ってソートしてるんです。 でも、半角や全角ひら漢字はちゃんと並ぶんですけど 全角英数カナが変な並びになってしまうんです。 SortType は色々ためして見ましたけど結果は同じでした。 もし解決方が有ればお願いします。 163 名前：デフォルトの名無しさん mailto:sage [2008/07/16(水) 22:34:31 ] つAnsiCompareText 164 名前：162 mailto:sage [2008/07/16(水) 23:06:54 ] >>163 出来ましたｗ そんな便利なのがあったんですね、本当にありがとうございました。 165 名前：デフォルトの名無しさん [2008/07/17(木) 13:01:05 ] >>164 うるせーこのあほう 166 名前：デフォルトの名無しさん mailto:sage [2008/07/17(木) 19:20:48 ] 推奨NGEx:クソ野郎|馬鹿|バカ|どうしたんだ？|あほう 167 名前：デフォルトの名無しさん mailto:sage [2008/07/17(木) 19:26:05 ] >>165 デレツンですね、わかります。 168 名前：デフォルトの名無しさん mailto:sage [2008/07/17(木) 21:41:07 ] デレツンじゃなくヘルメンです 169 名前：デフォルトの名無しさん [2008/07/17(木) 22:50:47 ] ツンデレＱＡ大人気 170 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 01:09:37 ] labelって半角文字はワードラップしてくれないんですか？ してくれる方法があれば教えて下さい。 171 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 02:19:52 ] WordWrap=Trueにすれば普通にできるはずだが 聞き方からするとワードラップじゃなくて、単語の途中で改行させたいのか？ 172 名前：170 mailto:sage [2008/07/19(土) 02:37:49 ] 単語の途中というかaaaaaaa aaaaaaａａａａａａａａａａａａａａａ 見たいな感じにしたいんです やり方は、WordWrap=Trueにして、メモのChangeのイベントで label1.Caption:=memo1.Text; でMemo1に入力すると 全角は上手く端っこで改行するんですけど 半角がそのまま、aaaaaaaと言う風に、まっすぐ通り過ぎて行くんです。 ちなみにメモの方はちゃんと半角でも上手く改行してくれるんです。 173 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 04:06:48 ] つまりそういうことでしょ。英語は単語間の空白で改行する（=ワードラップ）のがお約束、 ずっと空白が現れなければ改行できないから横にはみ出る。 どうしても空白のないところで改行したかったら自分で#13#10入れるしかない。 入れる場所を探すにはGetTextExtentExPoint使えば一発だけど わからなかったらTextWidthで1文字ずつ増やしながら幅を測って探す。 幅を測る時にはCanvasにフォントを設定しとくのを忘れずに。 174 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 04:59:23 ] TMemoで色変えたりEnabled := Falseとかで代用できないか 175 名前：170 mailto:sage [2008/07/19(土) 05:00:17 ] >>173 そうでしたか、なんか勘違いしてたみたいです。 試しにやってみたら空白で改行出来ました。 教えて貰った通りに、色々挑戦してみようと思います。 夜分眠いのにも関わらず、どうもありがとうございました。 またいつかお世話になりますｗ 176 名前：170 mailto:sage [2008/07/19(土) 05:14:39 ] >>174 それも良いですね、じゃあlabelで無理そうだったらTMemoで代用してみます。 どうもありがとうございました。 177 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 11:20:05 ] TMessageの宣言でcase分が使われていますがこれはどうなっているんでしょうか ヘルプ読んでみたけどさっぱり・・・ 178 名前：デフォルトの名無しさん [2008/07/19(土) 11:36:29 ] 同じアプリ間の TreeView1.Items.Assign(TreeView2.Items); にあたることを、違うアプリのツリービュー同士で行いたいのですが どうやったらできるのでしょうか？ コピー元のアプリも自作のものなので、何か必要な 情報があれば取れると思いますが 素人考えでポインタを違うアプリで参照とかやってみたんですがだめなんすね・・ 179 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 12:32:41 ] >>177 共用体のPasacal特有の宣言方法。同じ記憶領域を違った方法でアクセスするため。 180 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 12:35:08 ] >>178 「共有メモリ Delphi」でググッってみる。 181 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 12:46:06 ] >>179,180 なるほど、ちょっと分かりました でもcase Integer of・・・ってどうやって分岐出来てるんですか？ ここが一番分からない・・・ 182 名前：178 mailto:sage [2008/07/19(土) 12:55:00 ] >>180 ありがとうございます！ 早速調べてみます。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef