- 1 名前： ◆XcB18Bks.Y mailto:sage [2008/03/12(水) 21:09:39 ]
- Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を
勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが
お礼はDelphiの布教と初心者の救済をお願いします。
<前スレ>
くだすれDelphi(超初心者用)その45
pc11.2ch.net/test/read.cgi/tech/1198802907/
<過去スレ>
DelWiki避難所（Delphi 関連の過去スレッド）
delwiki.info/?Delphi%20%B4%D8%CF%A2%A4%CE%B2%E1%B5%EE%A5%B9%A5%EC%A5%C3%A5%C9
- 883 名前：デフォルトの名無しさん mailto:sage [2008/06/10(火) 23:58:55 ]
- >>882
やるね！！
まあああああああああああベラス！！
ありがとう！！
フリーカーソル？・・・・ググッタ！コンポーネントかぁ メモメモ
ついでに、選択したところ全て注釈にする方法わかりますか？
これも出来たはずなんだが・・・
- 884 名前：デフォルトの名無しさん [2008/06/11(水) 00:13:32 ]
- テプラ作った大切にするぉ
サンキュウ デルファイ マイスターズ
- 885 名前：デフォルトの名無しさん [2008/06/11(水) 09:34:41 ]
- >>879
バカっていうんなら、人にわかるように説明しろよ
- 886 名前：デフォルトの名無しさん mailto:sage [2008/06/11(水) 09:43:27 ]
- グラフライブラリって書いてあるじゃんｗ
- 887 名前：デフォルトの名無しさん mailto:sage [2008/06/11(水) 10:35:03 ]
- TChartって２次元までだっけか？
- 888 名前：デフォルトの名無しさん mailto:sage [2008/06/11(水) 13:39:59 ]
- >>883
選択状態にして選択範囲を右クリックしてみるといいよ。
ちなみに、Ctrl+/で出来る。
- 889 名前：デフォルトの名無しさん mailto:sage [2008/06/11(水) 14:29:00 ]
- TlistBoxを３つ並べてスクロールを同期させたいんだがどうすればいい？
- 890 名前：デフォルトの名無しさん [2008/06/11(水) 14:36:13 ]
- >>886
いやそこの前の話
- 891 名前：デフォルトの名無しさん mailto:sage [2008/06/11(水) 19:59:06 ]
- >>889
OnScrollで他もスクロールさせる。
- 892 名前：デフォルトの名無しさん mailto:sage [2008/06/11(水) 20:38:46 ]
- >>888
ふむふむ
ありがとう
テプラットきます
- 893 名前：デフォルトの名無しさん mailto:sage [2008/06/12(木) 12:31:07 ]
- >>888
それ、D7で出来ないみたい
あと、いつの間にか右クリックして「しおり」のテンキーの数字が効かなくなってるし
- 894 名前：デフォルトの名無しさん mailto:sage [2008/06/12(木) 21:33:02 ]
- >>893
うん
やってみた
ターボの方は出来るんですけれど
７はダメでした
報告ありがとう
でも ７でもやる方法があった様な気がするが
はて 勘違いかなあ
- 895 名前：デフォルトの名無しさん mailto:sage [2008/06/12(木) 23:12:29 ]
- MainMenuについて聞きたいんですが
項目の右側に勝手に(Z)と付くのはどうにか出来ませんか？
- 896 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 00:38:15 ]
- >895
AutoHotKeysをmaManualに。
- 897 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 00:50:17 ]
- >>896
ありがっとう！
- 898 名前：デフォルトの名無しさん [2008/06/13(金) 09:30:41 ]
- >>894
GExpertsのマクロでコメントアウトなどできた気がするよ
- 899 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 10:59:51 ]
- homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/790_ListView.htm#04
ここの通りにやってlistviewのカラムクリックでソートができたのですが
カラムをもう一回クリックしたら逆順ソートになるようにしたいのですが、どうしたらいいか教えてください。
- 900 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 11:09:25 ]
- >>899
フラグでも立てて、Compareに-1掛ければいい。
- 901 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 11:17:28 ]
- >>900
それはわかるんですけど、そのフラグがわからんのです。
そもそもcompareイベントの仕組みがよくわからなくてコピペしたのがいけないんですが・・ｗ
- 902 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 11:39:40 ]
- デバッガで追いかけろ
- 903 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 11:46:29 ]
- 前に書いたソートサンプル。適当に解読してくれ。
{ Private 宣言 }
ColumnToSort: Integer;
LastColumnToSort: Integer;
Ascending: Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
ColumnToSort := -1;
LastColumnToSort := -1;
end;
procedure TForm1.listviewColumnClick(Sender: TObject; Column: TListColumn);
begin
ColumnToSort := Column.Index;
if (Ascending > 0) and (ColumnToSort = LastColumnToSort) then
Ascending := -1
else
Ascending := 1;
LastColumnToSort := ColumnToSort;
listview.AlphaSort;
end;
procedure TForm1.listviewCompare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
begin
Compare := ( StrToInt(Item1.SubItems[ColumnToSort-1]) - StrToInt(Item2.SubItems[ColumnToSort-1]) ) * Ascending;
end;
- 904 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 11:59:15 ]
- >>903
助かった。ｔｈｘ！
コピペでできてしまったので、次使うときのために解読しとくわ。
- 905 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 13:44:41 ]
- コピペだけでアプリ一本作りそうな勢いだなｗｗ
- 906 名前：デフォルトの名無しさん mailto:sage [2008/06/13(金) 15:35:05 ]
- >>905
教科書はネットのみだからおのずとコピペが多くなってしまうのは仕方ない気がｗ
アプリはもうできてて今は改善している段階でふ。
- 907 名前：デフォルトの名無しさん mailto:sage [2008/06/14(土) 01:34:51 ]
- ifの条件が複数あるときはVBのようにandで繋ぐことは出来ないんでしょうか？
- 908 名前：デフォルトの名無しさん mailto:sage [2008/06/14(土) 01:38:27 ]
- そんなの入門サイトに乗ってそうだけどなあ
回答としては「出来る」よ
- 909 名前：デフォルトの名無しさん mailto:sage [2008/06/14(土) 16:33:57 ]
- listviewで表を作っているんですが
ある条件を満たしたときに画像を文字の後ろに付け足したいのですがどうすればいいですか？
column1,column2,・・・
名前,数学の点数,国語の点数,
で、数学の点数や国語の点数が80点を越えたときに
各々数学マーク.bmp、国語マーク.bmpを名前の後ろに付け足したいという意味です。
- 910 名前：デフォルトの名無しさん [2008/06/14(土) 17:20:45 ]
- >>907
自分で答えを書いているじゃないかｗ
- 911 名前：デフォルトの名無しさん mailto:sage [2008/06/14(土) 17:47:55 ]
- >>909
OwnerDrawするしかないと思う
- 912 名前：デフォルトの名無しさん [2008/06/14(土) 18:59:06 ]
- listviewのownerdrawか・・・激しく挫折しそうだ・・
- 913 名前：デフォルトの名無しさん mailto:sage [2008/06/14(土) 20:38:35 ]
- >>907-908
演算子の優先度がVBと違うからできないと思ったのかもしれないな
if (条件) and (条件) 〜
みたいに括弧で括らないといけないから
- 914 名前： ◆XcB18Bks.Y mailto:sage [2008/06/15(日) 01:09:49 ]
- >>912
ListViewのOwnerDrawはOwnerDataを使っていなければそんなに難しくないと思います。
OwnerDataを使っているならHeaderコントロール＋ListBoxマジオススメ。
- 915 名前：デフォルトの名無しさん mailto:sage [2008/06/15(日) 11:58:17 ]
- ListViewやListBoxの内容は直接編集出来ないんでしょうか？
- 916 名前：デフォルトの名無しさん mailto:sage [2008/06/15(日) 12:36:59 ]
- クリックしたときに、カーソル直下のセルに内容入れたTEdit生成して、TEditがフォーカス失ったらTEditの内容をセルに書き込めばいいと思うよ。
TStringGridで用が足りることも多いけどNE
- 917 名前：デフォルトの名無しさん mailto:sage [2008/06/15(日) 22:17:04 ]
- formcreateでiniファイルを読み込んで、listboxにiniの内容を書き出したいのですが
for do でループしようと思ったら、iniファイルのセクションの項目数をカウントする方法が思いつかずに
困っているのですが、これはどうしたらいいのでしょうか
逆にtxt形式にしてreadlnでuntil Eofとかしないとだめなのでしょうか。ご教授ください。
- 918 名前：デフォルトの名無しさん mailto:sage [2008/06/15(日) 22:43:28 ]
- >>917
ReadSections
- 919 名前：デフォルトの名無しさん mailto:sage [2008/06/15(日) 22:47:52 ]
- >>918
ありがとう
- 920 名前：デフォルトの名無しさん [2008/06/17(火) 08:04:52 ]
- >>919
自演おつ
- 921 名前：デフォルトの名無しさん mailto:sage [2008/06/18(水) 16:54:27 ]
- AnsiやUTF8の文字列をUTF32にエンコードするにはどうすればいいんでしょう？
WikipediaのUnicodeの項目を見るとUCS4とUTF32は互換性があるらしいですが、
WideStringToUCS4Stringでエンコードしても、UCS4StringをStringに正常にキャストする方法が見つからず、
UTF32かどうか確かめられません
よろしくお願いします
- 922 名前：デフォルトの名無しさん mailto:sage [2008/06/18(水) 18:44:59 ]
- WideStringToUCS4Stringがあれば、当然UCS4StringToWideStringもあるわけだけど、
直接Stringにしたいって事？
- 923 名前：921 mailto:sage [2008/06/18(水) 19:30:09 ]
- すみません、自己解決しました
MBCSUtils(cc.codegear.com/item/25496)のAnsiStringToUtf8をしたあと、Utf8ToWideStringをしたら
望むとおりの結果がでました
>>922
そうです
UTF8にしたときは普通にStringとして取得できますが、WideStringToUCS4Stringだと
取得できないので、それを取得しようと思ったのです
|
 |
