くだすれ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/?

**590です これは書けるかな？** · 2018/08/05(日) 12:50:09.31

>592-583
ややこしくてすみません。
https://agree.5ch.net/test/read.cgi/mango/1532726276/496
↑元ソースあどれすも記載しました。

>>592 ありがとうございます。夜にでも調べてみます。

**427です** · 2018/08/05(日) 22:33:28.02

>>592
どうやら>590 先のサブルーチンはズラして60進法座標にしてるだけのようです。
バイナリ読み込んで浮動小数点数にするパールの変換方式がまださっぱり分りませんが、適当にがんばります。
Delphi の Single ～ Extended とか浮動小数点数を16進バイナリに直接相互変換みたいな内部関数ってありましたっけ？
現状D7でIEEE754-SingleとDouble は外部関数で使っていてそれだけでかなりサイズが大きくなってしまう。

　浮動小数点型の数値はメモリ上でどのように格納されているのか C C++
　2. 浮動小数点型の値のメモリ上での並び
　ttps://qiita.com/nia_tn1012/items/340a1f0ad71bf6085f7f
　元の値 : 1.024000
　内部表現の値 : 3F83126F
　　　　↑
この例では、IEEE754-Single でした。

>>593
IEEE754 単精度浮動小数点数(float)の文字列とかいろいろ入れても
ただの整数になるようですが？

var
f: Single;
begin
Edit_Single.Clear;
if (Edit_IEEE754_HexSingle.Text <> '') and (StrToIntdef('$' + Edit_IEEE754_HexSingle.Text,-1) <> -1) then
f := StrToInt( '$'+ Edit_IEEE754_HexSingle.Text );
Edit_Single.Text := FloatToStr(f);
end else Edit_Single.Text := '入力エラー';
end;

**590 です** · 2018/08/05(日) 22:36:47.70

>595
パールスレでの名前欄「427です」がそのまま入ってしまいました。
>>590 です

**デフォルトの名無しさん** · 2018/08/27(月) 09:41:49.47

Delphiの逆コンパイラでおすすめって何になるの？

**デフォルトの名無しさん** · 2018/08/27(月) 21:32:59.26

超初心者スレだから許して　のしつもんです。
Win10の開発は初めてです。
昔で言う .ini なんかはどこに置くのが基本ですか？
レジストリ使わない場合・・。
publicには Appdata とかないみたいだし。

Pathの記述とか？？
今でも TIniFile とか使いますか？

**デフォルトの名無しさん** · 2018/08/27(月) 22:05:18.90

>>598
exeと同じフォルダ

**デフォルトの名無しさん** · 2018/08/27(月) 22:24:54.69

>>598
%appdata%にアプリケーションのフォルダ作って保存

**デフォルトの名無しさん** · 2018/08/27(月) 23:33:36.63

回答有り難うございます。
とっても参考になりました。

ユーザー別なら　%appdata%\appname\
ユーザー共通なら　%ProgramData%\appname\

って感じで良いみたいですね。

**デフォルトの名無しさん** · 2018/08/28(火) 12:13:22.36

確かプラットフォームごとのパスを取得する関数が用意されてたような

**デフォルトの名無しさん** · 2018/08/28(火) 16:21:16.43

iniファイル便利か

**デフォルトの名無しさん** · 2018/08/28(火) 18:16:29.63

>>603
PCが壊れたとき等、環境移行はローテクの方が・・

**デフォルトの名無しさん** · 2018/08/28(火) 19:10:27.83

レジストリなんか使わない。
XMLなんか使わない。
やっぱりINIがいい。

**デフォルトの名無しさん** · 2018/08/28(火) 20:53:25.15

「プロジェクトから削除」で削除したunit2,unit3って結局生きてる？
unit1で参照してるからコンパイルしたらエラーが出ると思ったら何も出なかった。
プロジェクトの削除ってどう言うこと？

**デフォルトの名無しさん** · 2018/08/28(火) 21:09:44.56

そもそも
システムと連携でもしない限り
レジストリ使う必要が無いと思うんだが
自動的に何も考えずにレジストリ使ってるのが多いと思う

**デフォルトの名無しさん** · 2018/08/28(火) 21:21:58.23

>>606
プロジェクトツリーから削除されるだけで参照は自分で削除しないといけないよ

**606** · 2018/08/28(火) 22:07:01.20

>>608
有難う

**デフォルトの名無しさん** · 2018/08/29(水) 07:06:43.69

（アン）インストーラが付属しないツールで
設定をレジトリとかexeフォルダ以外のフォルダに保存したりとか
何考えてるのか分からないのもあるからな

**デフォルトの名無しさん** · 2018/08/29(水) 19:36:02.35

>>598 >>601
Win8.1以降でiniファイルは取り扱いが難儀になったので
TIniFileでも拡張子を別のものにすると素直に使える。
例えば .env とか
.ini でトラブルになる挙動としては
管理者権限でプログラムを動かすとiniは書き出せるけどD&Dできなかったり
ユーザー権限で動かすとiniが書き込み変更できなくてエラーになったりする。

**デフォルトの名無しさん** · 2018/08/29(水) 20:50:27.29

インストールフォルダ自体がドキュメントフォルダ強制とかもあるな

**デフォルトの名無しさん** · 2018/08/30(木) 10:16:05.96

>>611
virtualstoreに入ってしまったものを
間違って元のディレクトリ名で見に行くと

「書き込み変更できなくてエラーになったり」

するね

**611** · 2018/08/30(木) 16:00:49.78

>>613 >>598
こんな感じでやってます。
env : 「environment 環境」の略を当ててます。

procedure TForm1.SaveSettings;
var
Log_IniFile: TIniFile;
ia : Integer;
begin
Log_IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.env')); // .env ← .ini
try
// [window]
Log_IniFile.WriteString('window', 'x0', IntToStr(Form1.Left));
Log_IniFile.WriteString('window', 'y0', IntToStr(Form1.Top));
// [～～]
finally
Log_IniFile.Free;
end;
end;

**デフォルトの名無しさん** · 2018/08/30(木) 16:39:09.31

WriteInteger使えよww

**デフォルトの名無しさん** · 2018/08/30(木) 17:54:05.37

レジストリを汚しまくるのは好かん！

**デフォルトの名無しさん** · 2018/08/30(木) 18:00:59.87

>>616
ほんそれ

**デフォルトの名無しさん** · 2018/09/04(火) 04:53:47.13

スレッドオブジェクトで外部機器と通信するコンポーネント(自分で取り込んだactivexです)を使いたいのですが、
フォームがないのでcreateの引数って何にしたら良いでしょうか？
サブのフォームをvisible:= falseにして、そこに配置した方が良いでしょうか？

**デフォルトの名無しさん** · 2018/09/04(火) 07:40:32.69

引数はnilでok
必要ならparentを指定する

**デフォルトの名無しさん** · 2018/09/04(火) 20:59:53.37

>>619
有難うございました。

**デフォルトの名無しさん** · 2018/09/06(木) 20:32:48.73

十数年ぶりにコード書いてます。

Delphi7 のソースを XE3 で書き直そうとしてますが　？？？です。
XE3は買ったきり手つかずだったものを初めて使ってます。

ShortDateFormat、LongDateFormat、ShortDayNames　が未定義の識別子エラーとなります。

uses には　SysUtils が有ります。
どんな原因が有り得ますでしょうか？

挫けそうですw

**デフォルトの名無しさん** · 2018/09/06(木) 20:59:54.36

単純な変数から変更されているので、
FormatSettings.ShortDateFormat
のようにしてみてくだされ。

**デフォルトの名無しさん** · 2018/09/06(木) 21:14:09.34

速攻でスゲー！　解決しました！

HELP の ”親” ってのを見なきゃイケなかったのね
有り難うございます。

それにしてもHELP がいちいちHTMLソースが表示されて
”制限されたコンテンツの表示” ってクリックしなきゃなのはしんどい・・・

**618** · 2018/09/07(金) 13:31:35.10

618です。
マルチスレッドで自分で取り込んだActiveXコントロールを使えるようにはなったのですが
不定期にEAccess Violationが出るので調べたら、このコントロールはSTA モデルとなっていました。
自分にはActiveXの知識があまりなくマルチスレッドで使用するにはCOM 関数のCoMarshalInterThreadInterfaceInStream,
CoGetInterfaceAndReleaseStream を使うのかな？ということまではわかりました。
ただ、参考にしたサイトには「インタフェースポインタを他のアパートメントに渡す場合，インタフェースポインタをマーシャリング
する必要があります。」と書いてありましたが理解できていません。
多分、各スレッドでCreateするのではなく1つのコントロールを各スレッドで使い回すのかなと思っています。
Delphiではどうするのか、とっかかりだけでも教えてください。
よろしくお願いします。

**デフォルトの名無しさん** · 2018/09/08(土) 10:16:41.02

C#にしたら

**デフォルトの名無しさん** · 2018/09/08(土) 12:26:23.76

そのまんまでしょうに。アパートメントをまたぐ場合はマーシャリングしなきゃいけない。
http://eternalwindows.jp/com/apartment/apartment02.html
で、CoMarshalInterThreadInterfaceInStreamでIStreamのバイトストリームに変換する。
で、そのストリームをアパートメントの異なる別スレッドに渡してそこでバイトストリームから元のオブジェクトに戻す。

コントロールのスレッドモデルより、各スレッドをどう初期化しかかがまず重要。
Comを使うときは各スレッドでCoInitialize(Ex)を呼ばなきゃいけんが、それでスレッドのアパートメントを指定する。

https://docs.microsoft.com/en-us/windows/desktop/com/processes--threads--and-apartments
読めば書いてある

**デフォルトの名無しさん** · 2018/09/08(土) 18:32:14.22

>>597
未だに見つけられていない

DeDe 3.50.02 Build 1619 for Windows
ttp://www.softpedia.com/get/Programming/Debuggers-Decompilers-Dissasemblers/DeDe.shtml

Delphi製のバイナリを解析する方法
ttp://peryaudo.hatenablog.com/entry/20110105/1294209734
>DeDeのprojectタブを使うと、
>ディスアセンブルされたx86のコードをコメントでくくっただけのpasとデコンパイルされたdfmをファイルに落とせる。

x86コードを直接見てもワケワカメ

**デフォルトの名無しさん** · 2018/09/13(木) 10:48:16.02

FireMonkeyのStringGridでマウスカーソル直下のセルの特定の仕方を教えてください。
マウスの座標は取得できています。
よろしくお願いします。

**デフォルトの名無しさん** · 2018/09/13(木) 15:53:14.96

CellByPoint

**628** · 2018/09/14(金) 00:13:42.04

ありがとうございました。
一応は取得できるのですが、セル内のマウスカーソルの場所によって、セルが特定できたり
できなかったりという感じです。
また、列の位置は左端なら本来は0だと思うのですが1が返ってきます。
行は先頭行が16と返ってきます。
MousePos := Screen.MousePos;
StringGrid1.CellByPoint(MousePos.X,dMousePos.Y,ColNo,RowNo);
上記のようなプログラムですが、マウスの位置の取得方法が間違っているのでしょうか？

**デフォルトの名無しさん** · 2018/09/14(金) 07:11:59.92

onMouseMoveでテストしてみて

**デフォルトの名無しさん** · 2018/09/14(金) 08:18:00.14

ローカル座標に変換する必要あんでね？

**デフォルトの名無しさん** · 2018/09/14(金) 12:20:56.93

>>630
＞MousePos := Screen.MousePos;
この段階でマウス座標はスクリーン座標（スクリーンの左上を起点とする座標）なので
クライアント座標（この場合、StringGrid1の左上を起点とする座標に変換しないとダメだよ
VCLならStringGridにScreenToClientというメソッドがあるんだけど
FireMonkeyのことはよく知らんけど似たような（もしくは同名の）メソッドがあるんじゃないかな

**デフォルトの名無しさん** · 2018/09/14(金) 19:36:31.47

てかコントロール上のマウス位置から何なしようってときに
スクリーン座標が出てくる訳が分からない

**628** · 2018/09/14(金) 20:55:44.40

皆さん、ありがとうございます。
まだ、解決できていないのですがまずはお礼まで。
ローカル座標はScreenToClientと同じ名前のものがあったので使ってみたのですが
うまくいきませんでした。
VCLの方だときちんとカーソル下のセルを正確に取得できるのに。
FireMonkey難しい。

**デフォルトの名無しさん** · 2018/09/14(金) 21:57:04.38

こんなんじゃだめなの？
TForm1 = class(TForm)
private
{ private 宣言 }
procedure StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);

implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.OnMouseMove := StringGrid1MouseMove;
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var ACol, ARow: integer;
begin
if StringGrid1.CellByPoint(X, Y, ACol, ARow) then
Edit1.Text := Format('Col:%d, Row:%d', [ACol, ARow]);
end;

カーソル下のセルを正確に取得できてるよ

**デフォルトの名無しさん** · 2018/09/14(金) 23:50:03.06

>>636
ありがとうございます。
やりたいことができました。
>>631
ヒントもらっていたのに申し訳ありません。

あくまでもコントロール上の座標を取らないといけないということですね。
ScreenToClientはアプリのウィンド上の座標と言うことで良いでしょうか？

**デフォルトの名無しさん** · 2018/09/15(土) 00:17:48.45

なんで未だにデルファイなんかやっとるんやおまいら？

**デフォルトの名無しさん** · 2018/09/15(土) 06:26:34.02

いろいろな言語使えるけどDelphiがベストだと思うから

**デフォルトの名無しさん** · 2018/09/15(土) 06:42:36.21

>>638
てかそんな話はエンバカスレでどうぞ

**デフォルトの名無しさん** · 2018/09/15(土) 11:07:16.52

Delphiは討たれる

**デフォルトの名無しさん** · 2018/09/15(土) 17:32:12.84

>>641

**デフォルトの名無しさん** · 2018/09/16(日) 10:48:44.14

SKRegExpの作者はどこに行ったの？

**デフォルトの名無しさん** · 2018/09/26(水) 11:44:44.46

今頃デルファイの10.2.3をインストールしようと思うんですが、サイトに書いてあるように一旦10.2をアンインストールしないとまずいですか?
一旦アンインストールした場合サードパーティーのコンポーネントはやはり再インストールしないとダメですか？
10.2.3をインストールしたら復活するとかは無いですかね？

**デフォルトの名無しさん** · 2018/09/26(水) 13:25:05.76

>>644
別のプログラムとしてインストールされるからTokyo用のコンポーネントは再インストール必須
別に10.2を残してても共存はできる

**デフォルトの名無しさん** · 2018/09/26(水) 15:05:08.27

なんか共存できんかった

**デフォルトの名無しさん** · 2018/09/26(水) 17:59:31.37

同居出来ないってCPB CEでも入ってるのか？

**デフォルトの名無しさん** · 2018/09/26(水) 19:21:31.24

BerlinとTokyoは共存できるけどToky同士は共存できなかったはず
10.2から10.2.3は設定データなどを残してアンインストール、インストールで普通に移行できたよ
CDイメージからのインストールの場合だけどね

Webインストールの場合はそれができないんだったっけ

**デフォルトの名無しさん** · 2018/09/26(水) 19:58:22.59

サードパーティのコントロールが消えるのが嫌でアンインストールせずやってしまった。orz

**デフォルトの名無しさん** · 2018/09/28(金) 08:42:20.23

ツールパレットにはコンポーネントのアイコンがきちんと表示されているんだけど、フォームに配置するとアイコンが見えない位小さくなってしまうんだけどなんで?

**デフォルトの名無しさん** · 2018/09/28(金) 18:27:10.70

>>650
老眼かい？
他人にはあんたの見て思ってる物が大きいか小さいかなんてエスパーでもないから分らない。
画面キャプチャーでもして画像貼れ

**デフォルトの名無しさん** · 2018/09/28(金) 20:17:23.17

そうか、ご苦労

**デフォルトの名無しさん** · 2018/09/29(土) 04:51:42.90

フォームにアイコンだけ表示されるやつは
OnCreateで手動で追加する形でずっとやってるから
どうでもいいは

**デフォルトの名無しさん** · 2018/09/29(土) 06:17:50.02

>>650
4Kモニターを使っているのかい？

**デフォルトの名無しさん** · 2018/09/29(土) 20:55:31.30

そして
ふてくされて二度と来ないコミュ障であった

**デフォルトの名無しさん** · 2018/09/30(日) 05:42:12.80

かわいそう・・・

**デフォルトの名無しさん** · 2018/09/30(日) 16:24:03.95

意外とみんな覗いてんな

**デフォルトの名無しさん** · 2018/10/03(水) 20:49:10.84

モニタにもっと顔を近づけるんだよ　きっと見れるよ

**デフォルトの名無しさん** · 2018/10/04(木) 10:29:39.99

モニタよモニタよモニタさん

**デフォルトの名無しさん** · 2018/10/06(土) 09:18:43.15

マルチデバイスのソフトを初めて作ろうと思っています。
コントロールの配置に関して質問なのですが、とりあえずPC用かスマフォ用を作ってその後、
各デバイス用に配置しなおして再コンパイルする手順でいいでしょうか？

**デフォルトの名無しさん** · 2018/10/06(土) 12:13:05.71

まずalignの使い方かな

**デフォルトの名無しさん** · 2018/10/06(土) 15:33:22.97

>>660
FireUI

**660** · 2018/10/07(日) 08:57:42.83

有難うございます。
調べて勉強します。

**デフォルトの名無しさん** · 2018/10/13(土) 18:12:13.98

何かウェルカムページを開きたびに
セキュリティ警告が出るんだが

**デフォルトの名無しさん** · 2018/10/13(土) 22:28:09.39

>>664
SSL証明書が期限切れたから更新あうるまで待ってってMCさんが

**デフォルトの名無しさん** · 2018/10/13(土) 23:05:26.94

>>665
なるほど

今日はvclとfmxアプリ間のメッセージングのテストやってて
切り替えるたんびにダイアログが何度も出てイヤんなる

**デフォルトの名無しさん** · 2018/10/17(水) 17:24:01.23

ブラウザのタイトルを取得したいんですけど、

WebBrowser1.Document.Titleだと、
'TWebBrowser' は 'Document' という名前のメンバを含んでいません

WebBrowser1.OLEObject.Document.Titleだと、
'TWebBrowser' は 'OLEObject' という名前のメンバを含んでいません

ってなるんです。
usesに何か足りませんか？

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Edit, FMX.Controls.Presentation, FMX.WebBrowser;

Delphi 10.2 Community Edition

**デフォルトの名無しさん** · 2018/10/17(水) 17:49:10.11

解決しました。
VLCじゃやないやつで作ろうとしてたみたいです！

**デフォルトの名無しさん** · 2018/11/06(火) 12:05:36.75

FMXでLabelのバックカラーの変更って出来ない？
今はPanelの色を変えて、その上に貼り付けてるんだけど。

**デフォルトの名無しさん** · 2018/11/06(火) 15:03:32.51

>>669
labelのスタイルに背景ってないからムリじゃないかな

あとpanelよりtlayoutの上にtrectangleのせて
さらにlabelはったほうが柔軟性が高い

**デフォルトの名無しさん** · 2018/11/06(火) 16:08:30.30

>>670
TRectangle、オブジェクトエクスプローラからなら子に色んな物入れられるよ
（要するにTRectangleがTLayoutのように使える）

**デフォルトの名無しさん** · 2018/11/06(火) 18:54:34.08

>>669
XE5までの知識しかないが、
TStyleBook割り当てて、そっちで対応するんじゃなかったかな？

**デフォルトの名無しさん** · 2018/11/06(火) 19:14:26.53

>>671
ホントだ

TPopupなんかもHelpじゃ実行時にParentを操作して
コントロールを乗っけるって書いてあって
使い勝手が悪いと感じてたんだけど
同じ方法で設計時にコントロールを配置できたりするんだよな

**669** · 2018/11/06(火) 22:06:13.74

皆さん、ありがとうございました。
Rectangleって楽ですね。
もう一つ教えて下さい。
panddingとかmarginsを設定して0に元に戻すと隣のコントロールと隙間が空いたままになるのは自分だけ？

**669** · 2018/11/06(火) 22:08:56.05

訂正です。
panddingとかmarginsを設定して実行。
その後、全部0に戻して実行しても隙間が空いたままです。

**デフォルトの名無しさん** · 2018/11/07(水) 12:11:35.51

>>675
fmxのmarginはちょっとバグってる気がする

その例と同じかどうか分からないけど
複数のspeedbuttonをalignをleftにして並べて
ボタンのmarginを一度設定すると
marginを解除しても
ボタンの左半分くらいがマウスに反応しなくなる

いろいろやってると何かのきっかけで正常になったりする

**デフォルトの名無しさん** · 2018/11/07(水) 12:24:36.39

上にスタイルの話があるけど
スタイルで背景色を変えたら
Windows10以外では適用されてなかった

コンパイルのしかたかなぁ

最近公開したソフトで
ユーザに指摘されて初めて気づいたよ

**669** · 2018/11/08(木) 21:49:27.80

結局プログラムで指定すれば配置されるので我慢します

**デフォルトの名無しさん** · 2018/11/15(木) 21:17:33.28

fmxでのフォームの最小化と復帰だけど
コードだけでで問題なく動作する？

WindowState := TWindowState.wsMinimize;
WindowState := TWindowState.wsNormal;
でできるはずなんだけどね
何かうまく機能したりしなかったり

**デフォルトの名無しさん** · 2018/11/20(火) 09:18:03.84

本棚からDelphi7体験版が出てきたのでインストールしようとしたら、
ライセンス取得のところでエラーが出て使用することができません。
今更ながら、使うことは不可能なのでしょうか？

DelphiXEで非Unicodeのソースが作れればそれでも構わないのですが。

**デフォルトの名無しさん** · 2018/11/20(火) 22:24:15.58

今ならフリーのDelphiありますよ

**デフォルトの名無しさん** · 2018/11/20(火) 22:25:24.56

すみません非Unicodeと限定されている意味がわからないので現行のものではダメなのかも知れませんね

**デフォルトの名無しさん** · 2018/11/21(水) 01:49:20.19

使用許諾コードがメールで送られてくる登録フォームならある
今でも機能してるのか知らんけど
http://support.embarcadero.com/jp/install/product

**デフォルトの名無しさん** · 2018/11/23(金) 08:08:59.67

>>683
良くサイトを見たら、体験版の承認キーの発行は終了しているみたいです。
せっかく教えていただいたのにすみません。

**デフォルトの名無しさん** · 2018/11/24(土) 01:36:16.72

FMXをタッチパネルついてるWindows10で動作させるとTListViewとかが勝手にタッチパネル用のスタイルになるのどうにかならんかなぁ
Scrollbarが表示されない上にタッチパネル操作になるから操作が統一できない・・・
デバイス自体を無効にしたらタッチパネルじゃないスタイルで動作するけどなんだかなー

**デフォルトの名無しさん** · 2018/11/25(日) 11:17:43.53

ListBoxの項目にFocusを付与したいのですが、3，4日うまくいかず困っています。
クリック以外の方法でListBoxにFocusを付与する方法というのはありますか？

**デフォルトの名無しさん** · 2018/11/25(日) 21:01:29.45

ListBox1.ItemIndex:=3;
ListBox1.SetFocus;
ってこと？
なんか以前にもこんな質問あったような気がするが

**デフォルトの名無しさん** · 2018/11/26(月) 13:46:48.38

>>687
どうもです。
ただ、マウスクリックするとFocusが出ますが、ListBoxの他の所をクリックすると消えちゃうんですよね…。

**デフォルトの名無しさん** · 2018/11/27(火) 01:04:25.95

>>688
そりゃそうだ
他のフォーカスを持つ所をクリックすればフォーカス移る

何がしたいのかわからない
「ウィンドウハンドルを持つコンポーネント」の意味を理解してますか？
例えばここ http://delfusa.main.jp/delfusafloor/archive/VA009712_take/delphi/kabeapp.htm

ListBox以外にフォーカス動かしたくないんなら
他の全てをフォーカスを持たないSpeedButtonとかメニューやツールバーとかにするしかない
或いは他を Enabled:=Falseにするとか

**デフォルトの名無しさん** · 2018/11/27(火) 09:44:39.76

こんな物を作っていました。
ttp://www1.axfc.net/u/3946835.zip?key=123456
既知の不具合
下手にいじると簡単にバックグラウンドプロセスに行ってしまう。

Focusについてですが、このアプリはFocusが残る物をベースに作りました。
新しく作り直した物がListboxをクリックすると一瞬だけFocusが表示されるのですが
すぐ消えてしまうと言うよく分からない現象が起きていました。

よろしかったらご評価いただければ幸いです。

もう我流は辞めてTurboDelphi～を参考書に勉強したいと思います。

**デフォルトの名無しさん** · 2018/11/27(火) 09:53:17.62

大事なことを忘れていました。

このアプリはエクスプローラ上で.wavファイルを選択し「送る」もしくはアイコンでD&Dすると再生を始めます。
またアプリを起動して、エクスプローラからフォームに直接D&Dすると曲を演奏します。

よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/11/27(火) 12:16:28.81

例のお方か
まだやってたのはちょっとビックリ

**デフォルトの名無しさん** · 2018/11/27(火) 15:00:40.58

そうですよ。まだやってました。石の上にも3年と言う言葉もありますし
おかげさまで、プログラミング技法の第一巻の半分くらいまでは理解できるようになりました。
今度はちゃんと基礎からやり直したいと思います。

あげたファイルはアルファー版ほどの出来ですが、今の知識で作った物です。
ご興味がありましたら、ご評価をよろしくお願いいたします。