くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2016/10/13(木) 13:21:54.84

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

■Delphi XE6　Professional/Enterprise/Ultimate/Architect エディション(トライアル版有)
64bit Windows、Mac OS XからiOS、Androidのアプリも開発可能。ライブラリのソースコード付き。アカデミックライセンス有り。
旧バージョン（XE6/5/4/3/2/XE/2010/2009/2007/Delphi 7）のライセンス取得とダウンロードが可能。（アカデミック不可）
ttp://www.embarcadero.com/jp/products/delphi

■Delphi XE6　Starter エディション
個人／5人以下の企業・組織向け。年間売上1000US＄以内の商用開発可。
（※）Delphi、Visual Studio等の有償／無償の開発ツールユーザーが対象。インストール確認は特に行わない。
ttp://www.embarcadero.com/jp/products/delphi/starter

■Embarcadero RAD Studio XE6 （Delphi、C++Builder、HTML5 Builder等を含むビジュアル開発スイート）
ttp://www.embarcadero.com/jp/products/rad-studio

＜前スレ＞
くだすれDelphi(超初心者用)その56
http://echo.2ch.net/test/read.cgi/tech/1405783063/

＜過去スレ＞
DelWiki （Delphi 関連の過去スレッド）※行方不明
ttp://delwiki.info/?

**デフォルトの名無しさん** · 2016/10/25(火) 23:23:00.70

Visisbleプロパティみたいのなかったっけ？

**デフォルトの名無しさん** · 2016/10/25(火) 23:25:41.18

s多すぎた

19 · 2016/10/26(水) 00:18:32.99

>>34
ありがとうございます。
試してみます。

**デフォルトの名無しさん** · 2016/10/26(水) 01:12:16.61

>>36
当然だけどExcel入ってない環境では動かないからね

**デフォルトの名無しさん** · 2016/10/26(水) 12:57:47.98

>Excelは立ち上げずに

って書いてあるのにVisible薦める香具師ってなんなの

**デフォルトの名無しさん** · 2016/10/26(水) 12:59:55.89

立ち上げずにコンテナになれるわけないことを暗に示しただけやない？

**デフォルトの名無しさん** · 2016/10/28(金) 04:03:53.32

新しいDelpiのフォームの位置をドラッグで移動できないな？？？

どうして？

**デフォルトの名無しさん** · 2016/10/30(日) 03:41:18.12

>>40
「デフォルトレイアウト」から「クラシック(ドッキングなし)」に変えたら
Delphi7のような画面レイアウトになるけど、お望みの回答かどうかはわからない。

**デフォルトの名無しさん** · 2016/10/30(日) 08:46:34.99

丸が幾つか描かれているbitmapがあるとして特定の丸の色を変えたいと思い、
丸の上にshapeの丸を置いて対応しました。
このbitmap上の丸とshapeをきっちり対応させる方法ってないですか？
bitmapの大きさ変えたりスクロールさせた時にshapeも追従させたいのですが。

**デフォルトの名無しさん** · 2016/10/30(日) 12:44:13.74

>>42
丸を違う色でを塗りつぶすか
違う色で丸を再描画するとかダメ?

42 · 2016/10/30(日) 13:14:20.67

>>43
説明不足ですみません。
ビットマップの画像ファイルを貼り付けた状態と言うことでした。

**デフォルトの名無しさん** · 2016/10/30(日) 15:20:00.36

>>44
じゃ、ビットマップ内の円を直接塗りつぶすのがいいよ?

モグラ叩き（？）みたいに動的に表示するんだったら
1) Bitmap0にオリジナルをロードしておいて
2) Bitmap1に都度コピーして任意の円を塗りつぶす
3) そんで最終的にPaintBoxのCanvasにコピーする
4) これを繰り返す

Shapeを使う必然性があるんだったら別だけどね

42 · 2016/10/31(月) 20:22:37.53

>>45
ありがとう！！
出来ました、

**デフォルトの名無しさん** · 2016/11/01(火) 14:44:48.26

Delphi10のインストーラーが一瞬立ち上がってすぐ終了してしまうのですが原因がわかる方いませんか？
サポートサイトを見てもレジストリを触る事しか見当たりません。
どなたかよろしくお願いします。

**デフォルトの名無しさん** · 2016/11/01(火) 15:13:15.36

パソコンが壊れとる

**デフォルトの名無しさん** · 2016/11/01(火) 17:44:57.98

まずはdependencywalkerとか
あとウィルスチェックソフト止めるとか
ファイアウォール開いてみるとか

**デフォルトの名無しさん** · 2016/11/01(火) 18:11:10.46

お客様にエスパーの方はいらっしゃりませんかー（棒

**デフォルトの名無しさん** · 2016/11/01(火) 18:13:18.08

馬鹿には無理

**デフォルトの名無しさん** · 2016/11/03(木) 13:26:56.03

符号付きのダブルワードとか言うデータを扱う事になったんだけど、普通に数値が相手から送られて来ると思ったら
16Bit毎に分かれて、しかも、-だと65535とか-が付かない値が送られてくるんだけどプロの人はどうやってるの？

ググったら変換の考え方は分かったんだけど、プログラムをどう書けば良いかわからん。

Delphiって16進数とかに変換すると文字列になるでしょ？
文字列をどうやれば計算に使えるの？

**デフォルトの名無しさん** · 2016/11/03(木) 13:32:53.30

16bitでわかれるって
65535,65535
っていう意味？
だったら
0xffff,0xffff
で1dwordだから
リトルエンディアンなら
(dword)((a[0]<<16) | a[1])
で済むはず

**デフォルトの名無しさん** · 2016/11/03(木) 13:33:58.48

ああ逆ω
(dword)((a[1]<<16) | a[0])

**デフォルトの名無しさん** · 2016/11/03(木) 13:41:15.66

早速、ありがとうございます！！
式の意味がわからないw
調べ倒します。

65535,65535に分かれるんですが、-の時には両方2の補数がナンタラカンタラ変換された10進数が送られてきます。

また、分からないことがあったら宜しくお願いします。

**デフォルトの名無しさん** · 2016/11/03(木) 16:09:43.66

SmallInt変数に代入すればいいんじゃない?

var
si: SmallInt;

si := StrToInt('$' + Edit1.Text); // 16進数の文字列
si := StrToInt(Edit1.Text); // 10進数の文字列
Edit2.Text := IntToStr(si);

...こう云うことじゃないの?

**デフォルトの名無しさん** · 2016/11/03(木) 16:20:54.86

こういうあほと仕事したくないな

53 · 2016/11/03(木) 18:24:42.65

やってみたらあっさりできました。
右や左にシフトさせるだけで、マイナスも簡単に処理できました。
2の補数とかそういうことはDelphiが内部で勝手にやってくれるという認識でOK?
10進数のまま処理ができるのは他の言語でも一緒？

**デフォルトの名無しさん** · 2016/11/03(木) 18:32:31.39

>Delphiが内部で勝手にやってくれる

その認識はおかしい

「Delphiは何もしない」が正しい

53 · 2016/11/03(木) 19:10:20.41

>>59
そうなんですか？
プログラムとして読み取る時は上位の16bitを
a:=a shl 16;
で左にシフトさせて
c:=a + b;
で、cにダブルワードの数値がマイナス値も含めて正しく入ったのでdelphiが勝手に処理してるのかなと思いました。
プログラムとしてはこれでOKですか？

**デフォルトの名無しさん** · 2016/11/03(木) 19:18:10.90

+ b でも良いかも知れないが or b の方が良くね

**デフォルトの名無しさん** · 2016/11/03(木) 19:21:51.74

符号付きのDWORDって４バイトの整数とは違うの？

**デフォルトの名無しさん** · 2016/11/03(木) 19:44:23.50

DWORDというかWORDが符号なし整数値やろ
BYTEはunsigned char
WORDはunsigned short
DWORDはunsigned long
UINTはunsigned int
いずれも符号なし整数

**デフォルトの名無しさん** · 2016/11/03(木) 20:02:43.66

DWORDは符号なしだけど
送られてくるデータはDWORDだけど符号を扱うっつってんだから
普通に中身はintだろ
intにキャストすれば万事OK

**デフォルトの名無しさん** · 2016/11/03(木) 21:13:18.27

曖昧すぎるんだ

>普通に数値が相手から送られて来ると思ったら
>16Bit毎に分かれて、しかも、-だと65535とか-が付かない値が送られてくるんだけど

**デフォルトの名無しさん** · 2016/11/05(土) 12:52:45.83

>>60
同じ数値型変数でも a の型を変えてビット数や符号付きかどうかが変わると結果も変わる。

53 · 2016/11/06(日) 00:10:46.65

>>66
仰る意味が分かりました。
符号付き16BitのデータをLongに入れるとマイナスが判断されず16Bitのプラス値が入る。
Smallintに入れるとマイナスを認識する。
と言う事で、扱うデータにあった型の変数に代入する、
もしくはデータの符号の位置が変数の左端に入るように
シフトさせるとプラマイを勝手に判断してくれると言う事で良いでしょか？

**デフォルトの名無しさん** · 2016/11/06(日) 04:28:48.06

>>67
勝手に、というか、歴史的なものでもあるんだが、そもそもコンピュータは符号について考慮できない。
というのはビットのON/OFFしかないからだ。かといって計算ではマイナスの値も考慮する必要がある。
ということで色々あって、結局今のコンピュータでは高速に計算する場合はこういう手法を使うことになった。
(低速になってもいいが精度が必要な場合にBCDにするとか、他の方法もあるがちょっとそれは置いておく)。

1. 0/1が表せるビットを束ねてまとめて2進数として大きな数値も表せるようにする。
2. 0の時は全てのビットが0になる。
3. 0の状態で1を引いた時、つまり-1は全ビットが1になる。
4. 更に1引いた場合は符号なし整数の時と同じ計算で1を引く。
5. 1番上のビットが1の場合はその値はマイナス、0の場合はプラス。

なので例えば8bit符号付整数は -128 ～ 127 までが表せるが、-128の時は2進だと 10000000 になっている。
127 は 01111111 になっている。

画面に10進数に変換して出す場合はまず最上位ビットを見て1ならばマイナス記号を出しプラスならば何も出さない。
次に最上位ビットが1ならば全ビットを反転させた後に1を足す(符号をマイナスからプラスに変換する)。
その後10で割った余りを数字の文字に変換して出し10で割るというのを0になるまで繰り返すが、これだと
逆順になるので再帰処理にするかバッファに入れておいて逆順に出すか少しテクニックが必要。

**デフォルトの名無しさん** · 2016/11/06(日) 09:03:20.09

コンピューター工学
ASM
2の補数
････いろいろ学ばないと分からないかも
一番いいのは痛い目食わないと覚えられないかも
趣味なら?

**デフォルトの名無しさん** · 2016/11/06(日) 09:31:18.68

>>68
結果がたまたま合ってるが過程がめちゃくちゃの典型的な悪文

**デフォルトの名無しさん** · 2016/11/07(月) 02:58:59.60

じゃあおまえが書けよ

**デフォルトの名無しさん** · 2016/11/07(月) 07:51:58.89

わしもそう思う
しかし、理解すべきは、型の互換性や代入の互換性についての処理系の決め事であって、
動作原理やらは趣味の領域。

**デフォルトの名無しさん** · 2016/11/07(月) 11:31:55.07

変数の宣言で符号有り､無しのどちらの宣言しても
キャストでどうとでもなるから､くよくよするな
var
i : LongInt;

キャストで
LongWord(i)
出来るから

**デフォルトの名無しさん** · 2016/11/07(月) 16:11:14.00

スレチ

**デフォルトの名無しさん** · 2016/11/09(水) 15:53:32.11

D7のクイックレポートで質問です
現在単純な一覧を作っているのですが、罫線で全体の外枠を太く、明細行の仕切りを細く描きたいと思っています
Bandのフレームを外枠にして明細行は左右だけフレームで描き、下部にQrshapeを置いてやってみたのですが
その明細行がページの最終行かどうか判断する方法がわからず
外枠の下を印刷できません
各ページの行数は不定です
何かいい方法は無いでしょうか

もう一つ、グループで小計を印刷したいのですが、その際小計行は太線で囲みたいと思います
小計行はグループフッターで印刷し四方をフレームで囲ってみたところ明細行のShapeとフレームが重なって
小計行の上の線だけ少し太く印刷されてしまいました
うまいやり方は無いでしょうか

よろしくお願いします

**デフォルトの名無しさん** · 2016/11/09(水) 16:14:12.62

済みませんもう一点ありました
グループではなくページの小計を印刷したいのですが、ページフッターだと明細行と離れて印刷されてしまいます
何かいい方法は無いでしょうか

**デフォルトの名無しさん** · 2016/11/18(金) 05:32:26.95

仮想のイーサネットインターフェース(NIC)の作り方って知りませんか？
linuxだと簡単にできるらしいけど、windowsでできるコンポとかコマンドとかないのかな？

**デフォルトの名無しさん** · 2016/11/18(金) 16:27:06.42

softetherみたいなの？

**デフォルトの名無しさん** · 2016/11/18(金) 17:38:12.72

そういうのいじってみたい
仮想NICというかループバックていうのはMS純正でできるのが分かった

**デフォルトの名無しさん** · 2016/11/18(金) 19:29:30.81

ソース公開されてるだろ

**デフォルトの名無しさん** · 2016/11/20(日) 12:26:46.05

https://www.embarcadero.com/products/rad-studio/features
RAD Studioの体験版ってDelphi XE2と共存できる？
体験版試して環境壊したら面倒だから躊躇してる
買うなら完全上書きで移行でも良いんだけど
xamarinみたいにハマるならやめたい

**デフォルトの名無しさん** · 2016/11/20(日) 12:33:25.79

canvasやcaptionを持ってないコントロール上に文字描こうと思ったら、LABELを被せるのが一番簡単？

**デフォルトの名無しさん** · 2016/11/20(日) 12:37:35.32

そりゃ、ポトペタしてプロパティ変更するだけだから、10秒で終わるし。

**デフォルトの名無しさん** · 2016/11/21(月) 02:06:39.96

動的に沢山作ったコントロールの破棄方法を教えて下さい。
作っ時にTLISTに入れておいて、破棄する時にリストから引っ張り出してfreeでいいですか？

**デフォルトの名無しさん** · 2016/11/21(月) 06:45:32.74

TObjectListに入れておけば、リストをクリアするだけでOK

**デフォルトの名無しさん** · 2016/11/21(月) 08:34:01.10

>>81
XE2とは共存できる。
10.1Berlinの他のグレードとは共存できない。

**デフォルトの名無しさん** · 2016/11/21(月) 08:43:29.76

>>85
ありがとうございます！

**デフォルトの名無しさん** · 2016/11/21(月) 23:48:31.13

>>86
ありがとう！入れてみてすんなりスマホアプリ作れたら買おうっと

**デフォルトの名無しさん** · 2016/11/22(火) 11:23:52.32

１６万かー　高すぎる
昔の４万位ならまた買いたいと思っていたのに、これじゃ無理だわ
C#ならタダだから、こっちで我慢する

**デフォルトの名無しさん** · 2016/11/22(火) 13:02:30.45

すごく初歩な事だと思うんだけど、フォームを最大にした状態でコントロールを配置するにはどうしたら良いですか？

**デフォルトの名無しさん** · 2016/11/22(火) 13:11:22.55

えっ？

**デフォルトの名無しさん** · 2016/11/22(火) 16:00:58.51

フォームデザイナは消せない？
フォームデザイナの中で少なからずスクロールさせるのがうざくて。

**デフォルトの名無しさん** · 2016/11/22(火) 16:20:11.79

もっと大きいディスプレイを使う

**デフォルトの名無しさん** · 2016/11/22(火) 17:14:24.12

えっ?そう言う事じゃないw

**デフォルトの名無しさん** · 2016/11/22(火) 18:10:29.79

コンポーネントパレットのコンポーネントをダブルクリックすればいいんじゃね。

**デフォルトの名無しさん** · 2016/11/22(火) 18:15:01.08

最大化した状態を想定してコントロールを配置したい?
...ということでもなよね

**デフォルトの名無しさん** · 2016/11/22(火) 20:43:49.84

>>96
そう言う事です。
俺、相当変なこと聞いてる？

**デフォルトの名無しさん** · 2016/11/22(火) 20:54:34.84

フォームのサイズに追随するように作るから
わざわざ最大化で考えたりしない

**デフォルトの名無しさん** · 2016/11/22(火) 21:23:29.12

>>97
自分だけが使うんだったら、最大化を想定して
コントロールの絶対位置を決めることもありだけどね

でも、どのような環境で使われるか分からない場合
フォームの最大化への対応は結構難しいと思う

まあコントロールのAlignでフォームサイズに
追随するだけでいいなら簡単だけど...

**デフォルトの名無しさん** · 2016/11/22(火) 22:15:22.90

>>98,99
ありがとうございます。
大きなディスプレイ使います。w

**デフォルトの名無しさん** · 2016/11/22(火) 23:16:57.50

ふーん

**デフォルトの名無しさん** · 2016/11/23(水) 13:06:18.51

>>100
4Kディスプレイを買うのかな？

**デフォルトの名無しさん** · 2016/11/23(水) 13:16:56.95

4Kディスプレイはプログラミングする上で非常に作業性が高まって
生産能力が跳ね上がるからアリだな
たくさんの資料と開くのはマルチディスプレイでも出来なくないけど
4Kディスプレイは縦が長いのが素晴らしい

一つ問題があるとしたら
自分のソフトを4Kディスプレイで最大化したら
描画が追い付かなくなってカクカクになるという事実に気づいてしまうこと
ただし、MS謹製のエクスプローラでもカクカクになるぐらいなので
本当の意味で4K対応のソフトはそんなに多くないし
気にしなくてもよいのかもしれんが、どーなんだろ
アンチエイリアスのかかった文字の描画がとにかく遅い
1FPSぐらいになって操作困難だ

**デフォルトの名無しさん** · 2016/11/23(水) 14:35:16.76

k-ブルが糞なんじゃね

**デフォルトの名無しさん** · 2016/11/24(木) 21:31:04.24

サブスクリプションって、アップデート2をインスコすれば
勝手にライセンス適用してくれるの？

**デフォルトの名無しさん** · 2016/11/26(土) 08:53:16.82

フォームに入力した数値を保存する方法を教えてください。

**デフォルトの名無しさん** · 2016/11/26(土) 10:20:52.50

>>106
フォーム（上のエディットコンポ）に入力した数値を（ファイルに）保存する方法ということかしら？

簡単な一例。
フォームにエディットコンポEdit1とボタンButton1があるとしてボタンを押したらエディットコンポに入力されたテキスト（数値でなくても同じ）をファイルに保存する。

procedure TForm1.Button1Click(Sender: TObject);
var
　sl: TStringList;
begin
　sl := TStringList.Create;
　try
　　// 入力された文字列を取り出し（数値だろうと扱いは文字列）、文字列リストに追加
　　sl.add(Edit1.Text);
　　// 文字列リストの内容をファイルに保存（ここでは実行ファイルと同じフォルダーにした）
　　sl.SaveToFile(ChangeFileExt(Application.ExeName, '.txt'));
　finally
　　sl.Free;
　end;
end;

**デフォルトの名無しさん** · 2016/11/26(土) 10:35:43.40

ありがとうございます。
ちょっとやってみます。

**デフォルトの名無しさん** · 2016/11/26(土) 23:59:22.61

TFile使ったら1行で書けるかも

**デフォルトの名無しさん** · 2016/11/27(日) 21:47:18.22

TEdit.Lines自体がTStringsだからSaveToFile持ってるんじゃなかったかな

**107** · 2016/11/27(日) 22:12:21.76

昔のDelphiしかないので最近のはわかりません、あしからず。
昔のでもメモコンポならLines.SaveToFile(ファイル名)できますね。

**デフォルトの名無しさん** · 2016/11/28(月) 01:18:24.55

TEditにLinesプロパティってなくね？

**デフォルトの名無しさん** · 2016/11/28(月) 13:10:31.06

TEditにはLinesはないね
もともと1行編集ボックスだからね

TEditの内容を保存するんだったら
TStringList.に読み込んでSaveToFile()を使うか
TFile.WriteAllText()を使うかだね

まあ後者のほうが簡単だけど

**デフォルトの名無しさん** · 2016/11/28(月) 22:30:06.28

TFileってのは最近できたのか
TFileStreamとは別物なんだな？

**デフォルトの名無しさん** · 2016/11/29(火) 05:29:51.70

TFile はDelphi2010からだって
TFileStreamとは別物
http://docwiki.embarcadero.com/Libraries/Seattle/en/System.IOUtils.TFile
System.IOUtils自体が2010からの追加らしい

**デフォルトの名無しさん** · 2016/11/29(火) 11:14:31.26

パスワードがかかっているExcelファイルを開ける時にパスワードを入れる方法を教えて下さい。
delphi からパスワード無しファイルを操作する事は出来ています。

**デフォルトの名無しさん** · 2016/11/30(水) 09:51:10.70

>>116
どういうやりかたで
「delphi からパスワード無しファイルを操作する事は出来ています。」
ができているのかしらんけど

OLEオートメーションを使っているなら、
xlApp.Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format,
Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin,
Delimiter, Editable, Notify, Converter, AddToMRU)

excelを持ってないなら
?FlexCel for VCL / FireMonkey
を使うとか　

**デフォルトの名無しさん** · 2016/12/01(木) 19:46:00.26

D6の使用許諾コードって今でも都連だね　知らなかったわ

**デフォルトの名無しさん** · 2016/12/02(金) 19:55:58.69

なぜに今さらD6？
新しいの無料になってなかったっけ

**デフォルトの名無しさん** · 2016/12/02(金) 23:02:38.10

RXバグだらけで使いづらいよ

**デフォルトの名無しさん** · 2016/12/02(金) 23:39:57.49

具体的にどんなバグ？

**デフォルトの名無しさん** · 2016/12/03(土) 09:26:01.40

ボタンの色の変更ってTButtonから派生させて改造しないとダメ？

**デフォルトの名無しさん** · 2016/12/04(日) 00:23:15.66

結局どんなバグがあったんだろう

**デフォルトの名無しさん** · 2016/12/04(日) 00:50:42.52

こんなバグ
http://gigazine.net/news/20161201-windows-10-upgrade-bitlocker-bypass/

**デフォルトの名無しさん** · 2016/12/04(日) 01:14:11.69

WindowsのバグとRadStudioになんの関係が？

**デフォルトの名無しさん** · 2016/12/04(日) 20:23:52.39

7以降アップデートしてないんだけど
すると良いことある？

**デフォルトの名無しさん** · 2016/12/05(月) 16:25:17.26

人に依る

**デフォルトの名無しさん** · 2016/12/05(月) 20:51:09.49

ユニコード対応がなんたらうんたら

**デフォルトの名無しさん** · 2016/12/05(月) 22:36:44.05

Delphi2.0 の高速コンパイルは素晴らしかった

**デフォルトの名無しさん** · 2016/12/05(月) 22:44:55.05

>>128
Unicode対応なんだ・・・TNTいらなくなるのか
これだけでも少し便利そうだな・・ありがと考えてみる

**デフォルトの名無しさん** · 2016/12/05(月) 23:11:20.14

新機能使わなきゃそりゃあってもしょうがないけど、
さすがに7からならアップグレードすりゃ色んな新機能がわんさかだと思うよ。
古い新機能ではUnicodeから始まってWin64bit対応やOSX対応、ジェネリックやら
Vistaとかの新コントール。
http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E3%83%A1%E3%82%A4%E3%83%B3%E3%83%9A%E3%83%BC%E3%82%B8
から新機能のページだけを過去のバージョンにさかのぼってみていけばいい。

**デフォルトの名無しさん** · 2016/12/06(火) 00:07:34.75

コードエディタの進化は効率アップにもなるしやっぱ良いよ

**デフォルトの名無しさん** · 2016/12/06(火) 18:04:09.67

Editへの入力時のキーバッファをキャンセルする方法を教えて下さい。
今、バーコード入力するソフトを書いているのですが、担当者をComboboxで選択していないと
EditをクリアしてShowMessageを表示するつもりです。
EditをクリアしてMessageを出す事自体は出来ているのですが、バーコードから送られるデータの
最後にCRがついてきて（バーコードリーダーが付けてきます。）、多分このCRがShowMessageに
送られてShowMessageが勝手に消えてしまうようなのです。
イベントはKeyPressを使っています。
Windows7 Delphi10.1の環境です。
よろしくお願いします

**デフォルトの名無しさん** · 2016/12/06(火) 18:16:56.25

何がききたいのかようわからん。