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

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

1: ◆XcB18Bks.Y
08/06/24 16:24:25
Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を
勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが
お礼はDelphiの布教と初心者の救済をお願いします。

<前スレ>
くだすれDelphi(超初心者用)その46
ｽﾚﾘﾝｸ(tech板)

<過去スレ>
DelWiki避難所（Delphi 関連の過去スレッド）
URLﾘﾝｸ(delwiki.info)

2: ◆XcB18Bks.Y
08/06/24 16:25:01
<関連スレ>
【Delphi】 Indyコンポーネント【C++Builder】
ｽﾚﾘﾝｸ(tech板)
Delphi初心者のための寺子屋
ｽﾚﾘﾝｸ(tech板)
delphiで作った有名ソフトって何があるの？
ｽﾚﾘﾝｸ(tech板)
Delphi持ってるならGLSceneを使え
ｽﾚﾘﾝｸ(tech板)
【Delphi互換!?】FreePascal【GPL】
ｽﾚﾘﾝｸ(tech板)

【Delphi】ゲームつくるぞ(ﾟДﾟ)ｺﾞﾙｧ２【Delphi】
ｽﾚﾘﾝｸ(gamedev板)
Delphiでアクションゲームが作りたい！！ Part2
ｽﾚﾘﾝｸ(gamedev板)
ネットワークゲーム作成のお勉強（Delphi専用スレ）
ｽﾚﾘﾝｸ(gamedev板)
delphiでMMO
ｽﾚﾘﾝｸ(gamedev板)

3:デフォルトの名無しさん
08/06/24 17:17:38
前すれの
>>995さん～
さんくすです。
Formatというのがあったんですね。
printfとは書式が違うみたいですが、とりあえず無事に文字列に変換できました。

4:デフォルトの名無しさん
08/06/24 20:28:48
1乙ー

5:デフォルトの名無しさん
08/06/24 21:32:28
>>3
うるせ馬鹿
馴れ馴れしく話しかけんな

6:デフォルトの名無しさん
08/06/24 21:40:09
病んでるなぁ

7:デフォルトの名無しさん
08/06/24 23:21:12
Delユーザっておかしいのが多いよね

8:デフォルトの名無しさん
08/06/24 23:23:22
質問です
当方デルファイ７を使用しているのですが
やはり、WIN　Vistaでは　動かないのでしょうか
.NETじゃないから　ダメですかねぇ
実際　Vistaに、のせたら　「ザワールド！！」
・・・と言うかんじでした

9:デフォルトの名無しさん
08/06/25 00:13:14
あてずっぽだけど、互換モードで起動してみたら？

10:デフォルトの名無しさん
08/06/25 00:33:50
あるんすか？

11:デフォルトの名無しさん
08/06/25 00:36:54
やってみうます

12:デフォルトの名無しさん
08/06/25 00:51:01
ショートカットを右クリック→プロパティね。

13:デフォルトの名無しさん
08/06/25 08:24:15
>>8
馬鹿ジャネ

14:デフォルトの名無しさん
08/06/25 12:18:56
Delユーザっておかしいのが多いよね

15:デフォルトの名無しさん
08/06/25 13:47:59
VB や VC++ を選ばない時点で

16:デフォルトの名無しさん
08/06/25 17:27:16
賢い

17:デフォルトの名無しさん
08/06/25 17:40:41
>>8
Delphi7 Vistaで検索してみると
いくつか対応すれば基本的にはうごくっぽい。

18:8
08/06/25 19:31:47
BDE使ってるせいか？
ピクリとも動きませんでした・・・
プロパティからXp　Sp2とか選んで
チャレンジしたんですけどねえ

ググッテきます

19:デフォルトの名無しさん
08/06/25 19:49:18
BDEならUAC

20:デフォルトの名無しさん
08/06/25 20:08:09
BDEか…　使ってないせいか、ガンガン動いてます。

21:デフォルトの名無しさん
08/06/25 20:10:42
>>19
ヒント　アリース＾＾

22:デフォルトの名無しさん
08/06/25 22:02:32
>18
BDEか。忘れてたよ。
URLﾘﾝｸ(support.codegear.com)

23:デフォルトの名無しさん
08/06/25 22:39:31
>>22 もサンクス

24:デフォルトの名無しさん
08/06/26 00:12:31
>>18
お前がバカだからだよ

25:デフォルトの名無しさん
08/06/26 13:33:42
推奨NGEx：馬鹿|バカ

26:デフォルトの名無しさん
08/06/26 22:29:38
それじゃあエンバカデロの話題もNGになってしまうのでは？

27:デフォルトの名無しさん
08/06/28 00:55:39
フサー
delphiworld消えたんで祝祭日カレンダーコンポーネント 2000をどっかにうｐしておくれ

28:デフォルトの名無しさん
08/06/28 01:16:23
そういうの作者に無断で配布してよいのだろうか？

29:デフォルトの名無しさん
08/06/28 08:55:06
以下のコードがありまして、Button1をクリックするとStringGridのセルが
両方とも00になります。なんででしょう？

procedure TForm1.Button1Click(Sender: TObject);
var
H : Byte;
S : string;
begin
H := $FF;
SetLength(S,2);
BinToHex(@H, PChar(S),1);
StringGrid1.Cells[1,1] := S;

H := $00;
BinToHex(@H, PChar(S),1);
StringGrid1.Cells[1,2] := S;
end;

30:デフォルトの名無しさん
08/06/28 09:01:21
BinToHexの方を晒してくれないと

31:デフォルトの名無しさん
08/06/28 09:43:02
Stringの参照カウンタが悪さしてるのか変なことになるな。

StringGrid1.Cells[1,1] := Format('%02X', [$FF]);
するか固定バッファで
var buf: array[0..2] of Char;
BinToHex(@H, @buf, 1);
buf[2] = #0;
StringGrid1.Cells[1,1] := buf;
にした方がよさげ

32:デフォルトの名無しさん
08/06/28 12:43:39
こうなのか？
procedure BinToHex(Buffer, Text: PChar; BufSize: Integer); assembler;
@Hでコンパイルエラーが出そうですけど。

33:デフォルトの名無しさん
08/06/28 17:42:34
環境書き忘れてた。BinToHexはDelphi7のClassesに実装されてる手続きです。
ちなみに2回目のBinToHexの前でSetLengthしたら正常な値になりました。
なんか変だけど、こんなもんなのかな。

34:デフォルトの名無しさん
08/06/28 18:17:29
IntToHexを使用しない理由は？StringではなくPCharを操作する関数は意味がわかるまで
使わないほうがいいと思うけど。

35:デフォルトの名無しさん
08/06/28 18:47:59
>>34
>>29のコードは具体的にどこが間違ってる？

36:デフォルトの名無しさん
08/06/28 20:43:33
BinToHex(@H, @S[1],1);

37:デフォルトの名無しさん
08/06/28 22:45:24
>35
や、だからそういう質問が出る間はPChar系の関数はやめとけって意味だ。

UniqueStringかなんかで文字列実体の参照カウントが1になるようにしとけ。

38:デフォルトの名無しさん
08/06/29 09:19:57
>>35
間違ってるというか、コンパイラは BinToHexで Sが変更されたのが判らないので
Cells への代入の後複製を作らないで、そのまま実体を次のBinToHexに渡してしまう

＞長い文字列型の変数はポインタであるので，2 つ以上の変数が追加のメモリを
＞使用することなく同じ値を参照することができます。

という特性の為、
StringGrid1.Cells[1,1] と StringGrid1.Cells[1,2] が結果として同じポインタを指してしまう。

＞添字付けを使って文字列の中にある 1 文字の値を変更するときは，
＞文字列値の参照カウンタが 1 より大きい場合にのみ，
＞文字列値のコピーが作成されます。これは書き込み時コピーと呼ばれます。

39:デフォルトの名無しさん
08/06/29 09:55:35
>>35
お前あたま悪いな

40:デフォルトの名無しさん
08/06/29 10:15:10
みなさん、色々アドバイスありがとうございます。長い文字列の代入や変更は
参照カウンタを使って管理していること、PCharの型キャストの意味などを理解
していないまま使っていました。38さんの回答や以下のサイトを参考に
何となくですが分かりました。
URLﾘﾝｸ(kakinotane.s7.xrea.com)

41:デフォルトの名無しさん
08/06/29 12:54:31
ああ、そういうことか。
Cellsもstring型だから、同じsを指すわけね。

42:デフォルトの名無しさん
08/06/29 18:14:42
しかしDelphi布教といっても開発部門売却って．．．
しかも新Verは初心者には高い値段だし．．．
もう初心者お断りのプロ用のツールしかし企業には相手されていない
そんな言語に成り下がってしまった感じがするよ
思うに販売戦略を間違った方向にいっちゃったんだね
Del使いとしては悲しすぎる

43:デフォルトの名無しさん
08/06/29 18:57:25
スレ違い。をっちゃスレへどうぞ。

44:デフォルトの名無しさん
08/06/29 23:05:22
5Pro を使い続けている俺は勝ち組。

45:デフォルトの名無しさん
08/06/29 23:09:59
ちょっとまった新Verおいくら？
怖くて調べれないYo

46:デフォルトの名無しさん
08/06/29 23:17:09
Proは68000で据え置きじゃ？

47:デフォルトの名無しさん
08/06/29 23:27:54
ただで配っちゃえばいいのに

48:デフォルトの名無しさん
08/06/30 00:03:02
それだと儲からないということを6で学んだのだろう。

49:デフォルトの名無しさん
08/06/30 02:50:08
D8で儲かることを学んだのかよ？　Turbo Explorer の意味は何？

50:デフォルトの名無しさん
08/06/30 05:13:27
必死だな

51:デフォルトの名無しさん
08/06/30 10:12:55
何でこのおっさんたちはスレタイが読めないの？

52:デフォルトの名無しさん
08/06/30 12:20:18
ガキばっかりだな

53:デフォルトの名無しさん
08/06/30 13:57:30
最初はPro高いかもしれんけど、バージョンアップは3万くらいだよな。
3万って、この業界じゃ日給程度かそれ以下だし、そこまで騒ぐほど高いもんでもないがなあ。

54:デフォルトの名無しさん
08/06/30 18:49:41
desktop databaseを使ってhoge.dbを作ったのですが、これに関連付けするために
tableのプロパティでtablenameにhoge.dbと入力してdbgridに表示させることはできました。

hoge.dbはc\programfiles\commonfiles\borlandshared\dataに置いておかないとダメなようで
tablenameのところにたとえば./hoge.dbと相対パスを書いてみてもだめでした。

配布をする際にexeファイルと同じ場所にdbがあっても読み込めるようにするにはどうしたらいいのでしょうか

55:デフォルトの名無しさん
08/06/30 20:32:40
enter押しても改行できなかったり、space押しても文字が消えてしまうのはどうにかなりませんか。

56:デフォルトの名無しさん
08/06/30 21:32:33
>>54
exeファイルのディレクトリを指定してみたら？

>>55
意味が分からん

57:デフォルトの名無しさん
08/06/30 21:39:39
自己解決しました
ｓｒｙ

58:デフォルトの名無しさん
08/06/30 22:24:46
誰だよお前ｗ

59:デフォルトの名無しさん
08/06/30 23:51:55
Insertですね

60:デフォルトの名無しさん
08/07/01 00:24:37
>>56
プロジェクト→オプション→ディレクトリ/条件
ですかね；見てるんですがそれっぽいのがない希ガス

61:デフォルトの名無しさん
08/07/01 00:36:45
>>60
いやそうじゃなくてExtractFilePathにApplicationのExeNameを指定してそんでhoge.dbの先っちょにくっつける

62:デフォルトの名無しさん
08/07/02 09:38:15
質問したいんですけど
ShellListView を使うとフロッピードライブが必ずガガガって鳴るんで ShellCtrls.pas の中の
どの部分を変更すると鳴らなくなるか解かりますか？

63:62
08/07/02 10:27:52
すいません ShellTreeView の方でした

64:デフォルトの名無しさん
08/07/02 13:15:25
>>62
フロッピー殺すほうが楽だぞ。

65:デフォルトの名無しさん
08/07/02 20:35:02
FDDの電源抜きっぱなしだから知らなかった

66:デフォルトの名無しさん
08/07/02 23:02:33
>>64
そうですか、やっぱり難そうなのであきらめます
ありがとうございました

67:デフォルトの名無しさん
08/07/03 00:17:37
外部アプリを操作したいんですが
ShellExecute(Handle, 'OPEN', 'C:\Program Files\EmEditor\EmEditor.exe', nil, nil, SW_NORMAL);
Sleep(1000);
hndl :=FindWindow(nil,'無題 - EmEditor');
Edit4.SelectAll;
Edit4.CopyToClipboard;
Sleep(500);
SendMessage(hndl, WM_PASTE , 0, 0);
Sleep(500);
SendMessage(hndl, WM_KEYDOWN, 32, 0);
Sleep(100);
SendMessage(hndl, WM_KEYUP, 32, 0);
Sleep(500);
SendMessage(hndl, WM_PASTE , 0, 0);
WM_PASTE はできるのにWM_KEYDOWNができません

68:デフォルトの名無しさん
08/07/03 00:20:30
つ keybd_event

69:デフォルトの名無しさん
08/07/03 00:46:25
>>68
ありがとうございます
出来たのはいいのですが>>67ではいけないのでしょうか？

70:デフォルトの名無しさん
08/07/03 05:13:54
>>69
PostMessageならできるかも。

71:デフォルトの名無しさん
08/07/03 17:44:08
>>69
くれくれカスしんでいいよ

72:デフォルトの名無しさん
08/07/03 18:01:19
出来ない理由を知りたいと思うのはいいことだと思うが

73:デフォルトの名無しさん
08/07/03 18:16:37
俺もそう思う

74:デフォルトの名無しさん
08/07/03 18:33:30
じゃあ俺も

75:デフォルトの名無しさん
08/07/03 19:42:12
オレもそう思うが、ただ、じゃ何でSendMessageで出来ないか
少しは調べりよ　投稿の時間的に　みたいなことじゃね？　言い方は幼いが

76:デフォルトの名無しさん
08/07/03 21:56:07
出来ない理由がわからないから聞きに来たんじゃね？

77:デフォルトの名無しさん
08/07/03 22:03:36
調べるためにここに来てるんだろうしな

78:デフォルトの名無しさん
08/07/04 00:56:51
あくまでも、EmEditor側の処理方法による。

79:デフォルトの名無しさん
08/07/04 02:20:47
何にしてもlParamの値くらいちゃんとしたの設定しろと
本題には関係ないと思うけどな、ボク調べる気ありません感まるだしだ

80:デフォルトの名無しさん
08/07/04 07:02:36
ここは超初心者用だお
自分で何やっているのかさえ分からずに質問している人もいるレベル

81:デフォルトの名無しさん
08/07/04 08:14:34
煽り、文句レスの方が訳わかんね。
答えれないならスルーして黙ってろと。

82:デフォルトの名無しさん
08/07/04 08:52:14
ageて暴言だけ吐くだけ奴くらいパターン検出してスルーしてくれよ

83:デフォルトの名無しさん
08/07/04 16:53:43
CPUのクロック数を出来るだけ正確に計測するにはどうすればいいのでしょうか？
Jane Styleのバグレポートは毎回同じ数値を出しますが、起動時に測った数値を表示しているだけでしょうか？

84:83
08/07/04 17:49:03
すみません、自己解決しました

85:デフォルトの名無しさん
08/07/04 20:44:56
いいけど
現象、原因、影響、対策、要因、作りこんだ理由、防げなかった理由、
再発防止策、などなど晒してくれるとウレシイ

86:デフォルトの名無しさん
08/07/04 20:59:29
おとこわりだ！

87:デフォルトの名無しさん
08/07/04 21:05:57
男割り・・・？ウホッ

88:デフォルトの名無しさん
08/07/05 05:26:04
>>83
自己解決したら、あとの人のためにももしかしたら協力して調べてくれた人のためにも、
解決法を書いていきましょうや

89:デフォルトの名無しさん
08/07/05 05:52:44
CPUネタはスレちがいです

90:デフォルトの名無しさん
08/07/05 06:34:09
　　　＿_　　　　　　＿＿＿＿＿　　r―‐┐┌―┐　　　　　＿　　　　　厂|　　　　＿＿厂|＿＿
　　／ ∠＿＿＿,　 |＿＿＿___　|　/_/７ /　７厂|　|　く＼　　｜｜　　　 |　|　　　　 |＿＿　＿＿|
　　l 　＿＿＿　 |　　　　　 |　|　＿/ 〈＿Ｌ/　[＿| 　ヽ」┌─┘└─┐　 |　|　　　　_　|＿＿　＿＿|
　｜　|＿＿＿|　|　＿＿＿＿|　|　| 口口 | /Ｚ_冂＿　〈＼.└─┐┌┐│　 |　ヽ＿_／ | /┌┐　＿＼
　　l 　＿＿＿　 |　|　　　　　 |　| 口口 l〈_,r┐┌┘　＼/＿＿|　L_」　|＿　＼＿＿／ヽ､二__ノ　ヽ/
　｜　|＿＿＿|　|　|　|￣￣￣￣　|┌ー┐|┌ ┘└┐　　　|＿＿　＿＿＿|　厂|　　　　＿厂|＿＿
　　l 　＿＿＿　 |　|　| 　　　　｜| 　｜|└ ┐┌┘　 / 〉　　 /　＼　　　　 | ｜　　　　└┐┌─┘
　｜　|＿＿＿|　|　|　ヽ＿＿__／| |｜　 |｜　 |　|　　　/ /　／／＼＼＿_　 |　|＿,ノ|　　　 |　| l二二l
　　l＿＿＿＿＿_|　ヽ＿＿＿＿_ﾉ |.」　 [__|　　 |_.」　　く_/　く_／　　　＼＿ﾉ　ヽ＿＿/　　 ∠_/　l二二l

91:デフォルトの名無しさん
08/07/05 08:19:33
Delphi使いは馬鹿って本当なんですか？

92:91
08/07/05 08:20:05
すみません、自己解決しました

93:デフォルトの名無しさん
08/07/05 08:59:20
まさに思うツボｗｗｗ

94:デフォルトの名無しさん
08/07/05 14:54:13
つーかJane Styleって書いてあるんだから、CCPUID
使ってるだけだろ
URLﾘﾝｸ(www.cafe-au-lait.info)

95:デフォルトの名無しさん
08/07/05 16:12:37
変な奴が別板から湧いてるな。

96:デフォルトの名無しさん
08/07/05 17:50:36
>>94 ｷﾓｲ

97:デフォルトの名無しさん
08/07/05 18:14:49
変な奴が別板から湧いてるな。

98:デフォルトの名無しさん
08/07/06 17:27:53
delphinoIDEのタブ順序の設定みたいに選択した部分をクリックやドラッグで上下に移動するのは
どうやって作ればいいですか。

99:デフォルトの名無しさん
08/07/06 22:26:28
delphi6のエディタの行番号はどうすればでてきますか？

100:デフォルトの名無しさん
08/07/07 23:04:31
>>98
なんだ、その頼み方は？
お前はまともな礼儀も習わなかったのか？
バカヤロ。

101:デフォルトの名無しさん
08/07/08 11:33:18
>>98
設計中ではなく、実行中に動的にやりたいという事？
もしかして、こういう事がやりたいのかと、delWikiから消えていたので再upした
URLﾘﾝｸ(delwiki.info)

>>99
自分のアプリに行番号表示した編集窓を付けたいの？
TEditor とか　エディターコンポを入れるといいと思うよ

102:98
08/07/08 19:55:58
>>101
ありがとうございます。
有るリストの中身の順番を手動で任意に設定したかったのです。
DBからリストを読み込んでGRID形式で表示して表示順のインデックスフィールドの
値を任意に変えるのをあのタブ順の変更のような形でやりたかったので。

103:デフォルトの名無しさん
08/07/09 00:41:21
>>102
クソ野郎、そんなお礼の仕方があるか。

104:デフォルトの名無しさん
08/07/09 01:07:00
どうしたんだ？ん？
また職場で嫌なことがあったのか？

105:デフォルトの名無しさん
08/07/09 08:46:05
>>103
お、おまえも裏口先生なのか？

106:デフォルトの名無しさん
08/07/09 10:43:04
>>104
親に働けと言われたんだろう

107:デフォルトの名無しさん
08/07/09 11:01:04
推奨NGEx:クソ野郎|馬鹿|バカ|どうしたんだ？

108:デフォルトの名無しさん
08/07/09 13:46:01
お兄ちゃんたち、宿題もってきたよ。
私のために解いてね。

配列を使ったプログラムで、Editに入れた数字をButton1を押すごとにMemo1に追加していって
ある程度追加したところでButton2を押すとその数字に応じた長さが棒グラフのようにPaintBoxに表示される
プログラムを作りなさい。

お願い！

109:デフォルトの名無しさん
08/07/09 14:35:25
TXPToolBarMenuってどこにあるんでしょうか・・・
ググったらbagelという専ブラのコントロールのようだと分かったんですが、
そのソースを見てもさっぱり分かりません・・・
ComCtrlsXP.pasというユニットが見つからないのでそれにあるのかな？
こいつもググっても出てこないんですがこれはどこにあるんでしょう・・・

110:デフォルトの名無しさん
08/07/09 15:37:32
>>109
Geckoタブブラウザ Bagel その6
ｽﾚﾘﾝｸ(software板)
このスレに行ってbagelの作者さんに聞いてみたら？

111:98
08/07/09 21:11:42
D7でQuickReportで帳票を作っています
プレビュー画面で印刷ボタンを押すとすぐに印刷が始まってしまいますが、印刷先を変えたり、
一部ページだけ印刷したいときに、うっかり全部印刷してしまうのが悲しいので、印刷ボタンを
押したら、印刷設定のダイアログを出して変更出来るようにしたいのですが、どうすればいいでしょうか。

112:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/07/09 21:57:37
俺が悪かった
>>108お願いします。

117:１１６
08/07/09 21:58:30
あ、すいません。
>>112-115
ありがとうございました。

118:デフォルトの名無しさん
08/07/09 23:04:32
メモから配列に入れるルーチンと、
配列からグラフを描画するルーチンを分けるといいかも。

119:116
08/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
08/07/09 23:16:14
問い２の部分がわからない；

121:デフォルトの名無しさん
08/07/09 23:38:19
>>119
上がよくわからんが配列a はグローバル変数かクラスのフィールドだよな？
だとして、

問2：
for i := 1 to n do
　DrawRectangle(i, a[i]);

こんな感じかな？DrawRectangle の中身は適当にかけばいいと思う。

はいつぎの質問

122:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/07/10 00:37:06
>>110
ありがとうございます
聞いてみます

124:デフォルトの名無しさん
08/07/10 19:49:28
tifファイルを開くにはどうしたらいいでしょうか。

125:デフォルトの名無しさん
08/07/10 20:04:28
こじ開ける

126:デフォルトの名無しさん
08/07/10 20:14:40
>>124
reset

127:112
08/07/10 20:26:38
出題した方スマン。
全然見当違いの解答やった。
おまけにメモスクロールするとエラー出るし。

128:デフォルトの名無しさん
08/07/10 23:05:46
TurboDelphi Interbase7.5 WindowsXP　Nod32ファイアウォール付
Interbase自動起動に失敗します。
起動時にシステムトレイに入りかかるんだが、消えてしまう。
interbase7.5 managerの設定では、自動起動、「InterBaseをWindowsサービスとして起動する」
のチェックははずしてある。
でもなんで「InterBaseをWindowsサービスとして起動する」とするとサーバーにログインできないんかね。
なぜかIBCosoleではInterBaseがWindowsサービスでも接続できるんだが、
ほかでは、BDEはだめだし、設計時にも接続できないんだよね。

129:デフォルトの名無しさん
08/07/11 21:34:23
>>109 >>123
Windows XP Theme Manager
URLﾘﾝｸ(www.soft-gems.net)

130:109
08/07/12 02:28:37
>>129
ありがとうございます
しかしTheme Managerのすべてのプロパティをオンにしてもメニューがボタンぽくなってしまいます
自分で描画しようと思うのですが、TMenuItemがポップアップされているか確認するにはどうすればいいんでしょうか？

131:デフォルトの名無しさん
08/07/12 04:11:56
TurboDelphiとMicrosoftのVisualStudio(VB or C#)は共存できますでしょうか？
両方入れたいのですが、大丈夫かどうかご教示ください。

132:デフォルトの名無しさん
08/07/12 08:18:00
問題なし。
かち合うのはインストール時の標準のデバッガの上書きをし合うくらいだろう。

133:デフォルトの名無しさん
08/07/12 19:37:49
delphi 2007って安定してますか？

134:デフォルトの名無しさん
08/07/12 20:05:35
どういう意味で？IDEは普通に動くけど、終了時にたまにコケる程度。

135:デフォルトの名無しさん
08/07/12 20:11:35
>>134
2006が一番安定してるって聞いたことがあるので2007はどの程度なのかと思い質問させていただきました。
参考になりました

136:デフォルトの名無しさん
08/07/12 20:29:41
そういう意味では2007オススメ。2006より問題が少ない。

137:デフォルトの名無しさん
08/07/12 20:45:30
>>136
体験版あるみたいなので使ってみようと思います。
ありがとうございました。

138:デフォルトの名無しさん
08/07/12 20:48:20
もしこの先Vista以降の環境で使う予定があるなら2007にしとくのが無難かな。
ガリレオ以前のIDEはVistaだと挙動がかなりやばい。

139:デフォルトの名無しさん
08/07/12 21:27:57
質問です　デルファイ7です
すっごく前から気になっていたんですが
デルファイのプロパティのキャプション（NAME？）
をコピーして、エクセルに貼り付けしようとすると

object なんたらかんたら　size　なんたらかんたらって
でるんですけど、これ何とかならないですか

たとえば　LblHoge をコピーして張り付けると　LblHogeだけの
コピーが欲しいのに上記のように長ーい呪文みたいのが付いてくるんです
回避する方法ありますか知っていたら教えてください

140:デフォルトの名無しさん
08/07/12 21:31:12
コピー元が間違ってる。オブジェクトインスペクタのCaptionの値のところでコピーしないと駄目。
今のやり方で何がコピーされてるのかはメモ帳にでも貼り付けてみりゃわかるだろ。

141:デフォルトの名無しさん
08/07/12 22:06:09
ではNameをコピーするにはどうすればいいんでしょうか
仕様書を作る時
captionもnameも（captionは日本語でnameは英語）
必要なんです＾＾；
いちいち編集するんです・・よね？

ちなみに
いま７環境ないんで試せないんで
デルファイのターボで試したら
どちらも（caption ,name）も普通にコピーできた！

142:デフォルトの名無しさん
08/07/12 23:29:22
>>130
TToolBar.Flat

こういうのもある
SpTBXLib
URLﾘﾝｸ(club.telepolis.com)

143:140
08/07/12 23:48:05
>141
> 今のやり方で何がコピーされてるのかはメモ帳にでも貼り付けてみりゃわかるだろ。

144:109
08/07/13 00:12:40
>>142
ありがとうございます
TMenuBarでテストしたのでそれはないです
SpTBXLibも使ってみたんですが、なんだか変だったり、常時XPスタイルっぽかったりして使いづらいです

自分で描画するのはメニューを出してる時に青くならないのに目をつぶれば行けるんですが
完璧主義っぽいところがあるので許せないんですよね・・・

145:デフォルトの名無しさん
08/07/13 00:45:11
>>140 そうですか・・・

146:デフォルトの名無しさん
08/07/13 02:32:46
>>144
たぶんプロパティの設定を間違ってるか、何か勘違いしているかどちらかだろう
好きにすれば？

147:デフォルトの名無しさん
08/07/13 08:33:20
>>138
Delphi6製のGUIアプリとか、Vistaだとラベルが真っ白になったりするよな
アレ何なんだろう

148:デフォルトの名無しさん
08/07/13 11:18:07
manifestリソースだけで無理矢理視覚スタイル適用してるため。

TGroupBoxなど、VCLは非標準的方法で描画しているコントロールが結構あるんで
そういうところ対策していないと表示がおかしな事になる。

149:デフォルトの名無しさん
08/07/13 11:34:51
もういっそのこと開き直るしかない

150:デフォルトの名無しさん
08/07/13 14:19:54
>>144
ｴﾝｺｰﾄﾞはShift_Jisで
URLﾘﾝｸ(web.archive.org)

ZIPの尻が１byte欠けてるのでﾊﾞｲﾅﾘｴﾃﾞｨﾀでNull足せば
どのｱｰｶｲﾊﾞでも開けると思う

151:デフォルトの名無しさん
08/07/13 15:32:42
>>148
thank なるほどなあ

152:109
08/07/13 17:16:46
>>150
そこにキャッシュされてたんですか・・・
ありがとうございました！

153:デフォルトの名無しさん
08/07/15 19:45:27
gifをTGIFImageで読んで、TBitmapにCanvas.Drawで描画したいんですが、なぜか描画されないようです
TImageだと描画できるのに何ででしょうか？
OnCreateの中だと無理なんでしょうか

154:デフォルトの名無しさん
08/07/15 21:54:30
空っぽのビットマップだからとか？
いずれにせよエスパーが必要な質問はやめれ。

155:デフォルトの名無しさん
08/07/15 22:36:14
TBitmapに描画したあと、OnPaintでFormのCanvasに描画しないとダメだよ。

156:131
08/07/15 23:06:03
>>132
遅レスですが、ありがとうございます。
両方入れてみましたが、とりあえず問題ありません。

157:デフォルトの名無しさん
08/07/16 00:48:29
>>154
偉そうに、バカのくせに。

158:153
08/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:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/07/16 11:55:03
>>158
assignはBmpの大きさ設定不要だけど、Drawは>>159

161:153
08/07/16 14:52:41
>>159,160
そうだったんですか、ありがとうございました

162:デフォルトの名無しさん
08/07/16 22:32:03
ListView のカラムをクリックで
ListView1.AlphaSort と
Compare:=CompareText(Item1.SubItems[(Colum-1)],Item2.SubItems[(Colum-1)]); を
使ってソートしてるんです。
でも、半角や全角ひら漢字はちゃんと並ぶんですけど
全角英数カナが変な並びになってしまうんです。
SortType は色々ためして見ましたけど結果は同じでした。
もし解決方が有ればお願いします。

163:デフォルトの名無しさん
08/07/16 22:34:31
つAnsiCompareText

164:162
08/07/16 23:06:54
>>163
出来ましたｗ
そんな便利なのがあったんですね、本当にありがとうございました。

165:デフォルトの名無しさん
08/07/17 13:01:05
>>164
うるせーこのあほう

166:デフォルトの名無しさん
08/07/17 19:20:48
推奨NGEx:クソ野郎|馬鹿|バカ|どうしたんだ？|あほう

167:デフォルトの名無しさん
08/07/17 19:26:05
>>165
デレツンですね、わかります。

168:デフォルトの名無しさん
08/07/17 21:41:07
デレツンじゃなくヘルメンです

169:デフォルトの名無しさん
08/07/17 22:50:47
ツンデレＱＡ大人気

170:デフォルトの名無しさん
08/07/19 01:09:37
labelって半角文字はワードラップしてくれないんですか？
してくれる方法があれば教えて下さい。

171:デフォルトの名無しさん
08/07/19 02:19:52
WordWrap=Trueにすれば普通にできるはずだが
聞き方からするとワードラップじゃなくて、単語の途中で改行させたいのか？

172:170
08/07/19 02:37:49
単語の途中というかaaaaaaa
aaaaaaａａａａａａａａａａａａａａａ
見たいな感じにしたいんです

やり方は、WordWrap=Trueにして、メモのChangeのイベントで
label1.Caption:=memo1.Text; でMemo1に入力すると
全角は上手く端っこで改行するんですけど
半角がそのまま、aaaaaaaと言う風に、まっすぐ通り過ぎて行くんです。
ちなみにメモの方はちゃんと半角でも上手く改行してくれるんです。

173:デフォルトの名無しさん
08/07/19 04:06:48
つまりそういうことでしょ。英語は単語間の空白で改行する（=ワードラップ）のがお約束、
ずっと空白が現れなければ改行できないから横にはみ出る。

どうしても空白のないところで改行したかったら自分で#13#10入れるしかない。
入れる場所を探すにはGetTextExtentExPoint使えば一発だけど
わからなかったらTextWidthで1文字ずつ増やしながら幅を測って探す。
幅を測る時にはCanvasにフォントを設定しとくのを忘れずに。

174:デフォルトの名無しさん
08/07/19 04:59:23
TMemoで色変えたりEnabled := Falseとかで代用できないか

175:170
08/07/19 05:00:17
>>173
そうでしたか、なんか勘違いしてたみたいです。
試しにやってみたら空白で改行出来ました。
教えて貰った通りに、色々挑戦してみようと思います。
夜分眠いのにも関わらず、どうもありがとうございました。
またいつかお世話になりますｗ

176:170
08/07/19 05:14:39
>>174
それも良いですね、じゃあlabelで無理そうだったらTMemoで代用してみます。
どうもありがとうございました。

177:デフォルトの名無しさん
08/07/19 11:20:05
TMessageの宣言でcase分が使われていますがこれはどうなっているんでしょうか
ヘルプ読んでみたけどさっぱり・・・

178:デフォルトの名無しさん
08/07/19 11:36:29
同じアプリ間の
TreeView1.Items.Assign(TreeView2.Items);
にあたることを、違うアプリのツリービュー同士で行いたいのですが
どうやったらできるのでしょうか？
コピー元のアプリも自作のものなので、何か必要な
情報があれば取れると思いますが

素人考えでポインタを違うアプリで参照とかやってみたんですがだめなんすね・・

179:デフォルトの名無しさん
08/07/19 12:32:41
>>177
共用体のPasacal特有の宣言方法。同じ記憶領域を違った方法でアクセスするため。

180:デフォルトの名無しさん
08/07/19 12:35:08
>>178
「共有メモリ Delphi」でググッってみる。

181:デフォルトの名無しさん
08/07/19 12:46:06
>>179,180
なるほど、ちょっと分かりました
でもcase Integer of・・・ってどうやって分岐出来てるんですか？
ここが一番分からない・・・

182:178
08/07/19 12:55:00
>>180
ありがとうございます！
早速調べてみます。

183:デフォルトの名無しさん
08/07/19 13:31:09
>>181
分岐するんじゃなくて、構造体の中のメモリの領域をどちらの方式のフィールドでも
アクセスできるようにするただの宣言形式だと、了解すべし。

184:デフォルトの名無しさん
08/07/19 13:55:25
>>183
ああ、なるほど
TMessage.wParamに代入するのとTMessage.wParamHiにHIWORD、TMessage.wParamLoにLOWORDを代入するのとを
同じにするためなんですね
確かに便利かも
ありがとうございました

185:デフォルトの名無しさん
08/07/19 17:52:47
クイックレポートのサマリーってＤＢテキストをおけば自動計算してくれるんですか？
今現在Ｆｏｒループで計算してるんですけどよく考えたらサマリーって名前が付いてるのに
自動で計算してくれないなんておかしいような気がして・・・

186:デフォルトの名無しさん
08/07/19 17:56:48
失礼しました　＾＾；
質問です
クイックレポートのサマリーってＤＢテキストをおけば自動計算してくれるんですか？
今現在Ｆｏｒループで計算してるんですけどよく考えたらサマリーって名前が付いてるのに
自動で計算してくれないなんておかしいような気がして・・・

実際ＤＢテキスト置いても出来ないんですよね
やり方がまずいのか・・・・

187:デフォルトの名無しさん
08/07/19 20:05:37
なるほど

188:デフォルトの名無しさん
08/07/20 00:38:18
ターボデルファイ（無料版）にクイックレポート追加できるのでしょうか
コンポーネント追加は有料版と聞いたので諦めていたのですが
どうなんでしょうか？

189:デフォルトの名無しさん
08/07/20 00:40:45
買え

190:デフォルトの名無しさん
08/07/20 01:04:55
【統一教会】文鮮明の乗ったヘリが韓国の山中に不時着
ｽﾚﾘﾝｸ(news板)
,==============、
| .＿＿　　 /:::::::::|　　ロＨ　　ヨﾒｯｺｰﾙ
|（一和）　　/:::__:::::|　　　￣」　己
| .￣￣　 /:::::| |:::::|
|　　　　　/:::::::L二l|　メッコールは大麦エキスと世界三大名水のひとつチョヂュン鉱泉水から
|　　　　 /::/二丶:::|　生まれ、ビタミンが豊富に含まれたまったく新しいタイプの健康飲料水です。
|　　　　/::::| l___l |:::| ┌──────────┐
| 　　 /::::::ヽ─:::::::|　|・品　　　名　：炭酸飲料　　　　　　　　　　　|
|　　　/:::/.二l:::::::./|　|・原　材　料　：糖類（砂糖,果糖ぶどう糖液糖）..　.　|
|　　 /:::::l ｌ＿:::::::/ |　|　　　　　　　.大麦エキス,酸味料,香料,ビタミンＣ |
|　 ./_:::::_ヽ─': / /|　|　　　　　　　　ナイアシン,ビタミンＢ2,ビタミンＢ1 　|
|　/| ヽ/ .|,__::::/ ｺ |　|・内　容　量　：２５０ｍｌ　　　　　　　　　　　　　|
| /:|_lヽ/l_(二/ .ｯ　|　|・製造年月日：缶底に記載　　　　　　　　　　　　|
|/::::::::::::::::￣/ .ﾒ　|　|・原産国名：大韓民国　　　　　　　　　　　　　|
|::::::::::::::::::::::/　　　|　|・輸　入　者　：株式会社ハッピーワールド　　　 .　|
|::::::::::::::::::::/　　　　| └──────────┘
ヽ============〃　※なお、日本版の缶には、「あき岳はりサイクルへ（空き缶はリサイクルへ）」という誤植がある。

191:デフォルトの名無しさん
08/07/20 03:45:02
気になって起きたらまともなレスがねええええええええ

192:デフォルトの名無しさん
08/07/20 21:39:23
何時間放置するつもりだ・・・・

193:デフォルトの名無しさん
08/07/20 21:52:37
3連休だぜ、ゆっくり休めよ。

194:デフォルトの名無しさん
08/07/21 14:07:06
デスクトップのアイコンも何もないところがダブルクリックされた
というメッセージをとらえるにはどうやったらいいのでしょうか？
TApplicationEventsのOnMessageでWM_LBUTTONDBLCLKをとらえてはみたんですが、
アプリ上でしかとらえなくって・・

195:デフォルトの名無しさん
08/07/21 14:25:57
>>194
windows様に「お願えでございますだおらのアプリ以外のメッセージも全部通知してくだせえ」と嘆願しる

196:デフォルトの名無しさん
08/07/21 14:37:54
>>195
田舎侍ゆえ
そのお願いの作法を是非にお教えくざされたも

197:デフォルトの名無しさん
08/07/21 15:22:06
例えばここのHook.lzhとか
URLﾘﾝｸ(homepage1.nifty.com)

198:デフォルトの名無しさん
08/07/21 17:34:06
CodeGearっていつのまにか、エンバカデロって会社に買収されてたんだな。
しかし、会社名にバカってつけちゃだめだろ、バカは。

199:デフォルトの名無しさん
08/07/21 20:05:55
>>198
古っ

200:デフォルトの名無しさん
08/07/21 20:27:30
ＭＳとかオラクルとかＳＵＮに売られたりして

201:194
08/07/22 01:48:44
>>197
レス遅くなりましたがありがとうございます。

202:デフォルトの名無しさん
08/07/22 20:51:43
>>194
デスクトップはごく普通のリストビューコントロールで、当然ウィンドウハンドルとかも持っている。
グローバルフックとかでメッセージ横取りすれば検出できると思うよ

203:デフォルトの名無しさん
08/07/23 02:57:18
>>201
おせーよ、チンカス野郎

204:デフォルトの名無しさん
08/07/23 16:12:54
ごみ箱が空かどうかチェックしたいんですけど、このやり方だとうまくいきません。
URLﾘﾝｸ(www.swissdelphicenter.ch)

OS XP SP2
D6 Personal

205:デフォルトの名無しさん
08/07/23 22:07:54
どううまくいかないのか詳しく。

206:デフォルトの名無しさん
08/07/24 00:16:33
>>205
URLﾘﾝｸ(www.swissdelphicenter.ch)
こちらで成功しました。

>>204のは中身があっても空でもemptyになっていました。
ども、、、

207:デフォルトの名無しさん
08/07/24 01:31:42
>>206
二度と来るなバカヤロ

208:デフォルトの名無しさん
08/07/24 06:08:30
function GetMyDocFolderPath: string;
var
PIDL: PItemIDList;
PATH: array[0..MAX_PATH-1] of Char;
begin
SHGetSpecialFolderLocation(Application.Handle, CSIDL_BITBUCKET, PIDL);
SHGetPathFromIDList(PIDL, PATH);
Result:=PATH;
end;

ごみ箱のパスが取得できません。

209:デフォルトの名無しさん
08/07/24 07:19:40
>>208
ごみ箱は仮想フォルダなのでパスは取得できない
IShellFolder2インタフェースを使ってごみ箱内のファイル名等を取り出すことは出来る
ごみ箱のファイルに直接アクセスできるかどうかは知らない
URLﾘﾝｸ(www.codeproject.com)

210:デフォルトの名無しさん
08/07/24 18:39:58
>>209 ㌧
それではなくて
C:\RECYCLER\S-1-5-21-1234567890-123456789-123456789-1234\
というようなログインユーザーに対してのパスが知りたいんです。
FindFirstで取得できるんですが他のユーザーのまで拾っちゃうんです。

211:デフォルトの名無しさん
08/07/24 21:17:02
>>210
最初に書けよ
SIDならこの方法で調べることが出来る
URLﾘﾝｸ(msdn.microsoft.com)(VS.85).aspx
ConvertSidToStringSidで変換して使えばよし
ファイルが追加されたかどうか監視するだけなら>>209にサンプルがある

212:デフォルトの名無しさん
08/07/25 00:42:06
無料で印刷する環境そろえるには何がお勧めですか
クイックレポート有料らしいので
皆さんの１押し教えて蔵際

213:デフォルトの名無しさん
08/07/25 00:45:10
TPrinter

214:デフォルトの名無しさん
08/07/25 00:48:26
Delphi 2007とか最近のやつのユーザならQRはただで使えるが？
とはいえTPrinterだな。

215:デフォルトの名無しさん
08/07/25 01:05:56
>>214
ターボデルファイなのでQRは駄目では・・・

216:デフォルトの名無しさん
08/07/25 01:44:14
>>211
㌧。　できました。
いい勉強になります。

217:デフォルトの名無しさん
08/07/25 07:17:48
>215
後出しイクナイ。TPrinterで。

218:デフォルトの名無しさん
08/07/25 22:33:13
みなみけの見すぎ。

219:デフォルトの名無しさん
08/07/25 22:48:34
ポップアップメニューについて質問です。
複数のボタンに、１つのポップアップメニューを設定しています。

この中のどれかのボタンを右クリックしてポップアップメニューが立ち上がった時、
ポップアップメニュー内のイベントハンドラで
「どのボタンから呼び出されたか」を知りたいのですが、どうすればいいでしょうか？

// このように設定しています。
button[0].popupMenu := popupMenu1;
button[1].popupMenu := popupMenu1;
button[2].popupMenu := popupMenu1;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
　// ここで「呼び出し元のボタン」を知りたい
end;

よろしくお願いします。

220:デフォルトの名無しさん
08/07/25 22:55:17
>>219
Sender.Name

221:２１９
08/07/25 23:04:24
Sender.Nameだとエラーになってしまいます。
（メッセージは「TObjectはNameという名前のメンバを含んでいません」です）

ShowMessage(Sender.ClassName）で見てみると、TPopupMenuと表示されます。

222:デフォルトの名無しさん
08/07/25 23:11:09
あ-
SenderはTComponentにキャストしといてね

223:２１９
08/07/25 23:17:56
>>222
型キャストしましたが、同じくTPopupMenuのようです。。

224:デフォルトの名無しさん
08/07/25 23:25:34
case TButton(Sender) of
Button1: ShowMessage('Button1');
Button2: ShowMessage('Button2');
Button3: ShowMessage('Button3');
Button4: ShowMessage('Button4');
end;

225:デフォルトの名無しさん
08/07/25 23:29:10
試したらSenderはPopupMenuになってるね
PopupMenu1->PopupComponent使うといい

226:デフォルトの名無しさん
08/07/25 23:31:27
void __fastcall TForm1::PopupMenu1Popup(TObject *Sender)
{
　　ShowMessage(PopupMenu1->PopupComponent);
}

227:２１９
08/07/25 23:38:53
>>225-226
できました！
Senderと思いきや、popupComponentだったんですね。ありがとうございます！

次ページ