投稿

12月, 2020の投稿を表示しています

Delphi で PageControl に Frame を動的に追加

 Delphi で PageControl に Frame を動的に追加 TMainForm に置いた PageControl1 に TMyFrame というフレームを追加する例 function TMainForm.AddTabSheet: TMyFrame; var TabSheet: TTabSheet; MyFrame: TMyFrame; begin TabSheet := TTabSheet.Create(Self); TabSheet.PageControl := PageControl1; MyFrame := TMyFrame.Create(TabSheet); MyFrame.Parent := TabSheet; MyFrame.Align := alClient; TabSheet.Tag := NativeInt(MyFrame); // ↑ MyFrame := TMyFrame(PageControl.Pages[0].Tag)で呼び出せる PageControl1.ActivePage := TabSheet; Result := MyFrame; end; 流れは タブシートを生成して、ページコントロールに関連付ける(PageControl := ) フレームを生成して、タブシートに関連付ける(Parent := ) タブシートの Tag に生成したフレームを保存しておけば、タブシート→フレームが呼び出しやすくなります

パナソニックのビルトイン食洗機のポンプ交換

イメージ
パナソニックのビルトイン食洗機(NP-P45V2PS)が下記の症状で 食器に赤いツブツブ(点々)が付着する 洗浄中に排水音がする 洗浄中にヒーターが露出しているような沸騰音がする(停止して開けると、シュワワワ) 頻繁に給水(給湯)が行われる 洗浄時間が長い 残菜受けがキレイすぎ(以前は油っぽかった) ←洗浄液が排水側へ流れ込んでる 色々調べたら、ポンプの排水パッキンがダメになり、洗浄時に排水が行われていると断定、年数も経っているのでポンプ(ANP8C-673A)交換を行うことに ポンプの選定と購入は こちらのショップ で交換当時12,000円くらい 質問(私のじゃないけど)に丁寧に答えてくれているショップはありがたいですね (水位センサーやホースキットも扱っています) 使用した道具 プラスドライバー ラジオペンチ (ポンプ配線と背面の配管クリップを外すのに利用) モンキーレンチ (今回は給水配管が短かったので、それを外すために利用) 洗面器やバケツ 雑巾 懐中電灯 引き出した食洗機を置く台 交換手順 配管の水を減らしておくために、電源オン、スタート→排水音がした所でストップ、電源オフ 電源、アース、排水配管を確認してAC電源を抜く(ブレーカーで落としてもOK) (我が家は食洗機のすぐ下の引き出し奥にありました) 給水配管を確認して止水(メインの給水を止めてもOK) (我が家は右隣のシンク給湯配管から分離でした) 食洗機を引き出し、ポンプ位置(一番奥)を確認 底側のネジ(いっぱいに引き出したあたりにもあります)を外し、前面パネルを少し前へ引くと底カバーが外れます※枕があると楽です 一番奥のポンプにつながっている「配線コネクタ」「アース」「シャワーゆき配管(ポンプ側)」「排水(給水?)配管(ポンプ側)」を取り外します 配線コネクタは両側を押さえて引っ張りますが硬いので押さえつつラジオペンチで引っ張ると良いです、アースは金属部分を引き抜くだけ 配管を抜く時、500ccくらいの水が落ちるので、洗面器などで受け周りを拭いておきます 配管とピンが食洗機を閉じる時に干渉しないように内側に向けておいて、食洗機が閉まるのを確認 両サイドのカバーを取り外します 食洗機を閉じた状態で引っ張ると、前面カバーが固定されていない(底面カバーが無いため)ので、少し開けて枠を引き出しますが  一気

Amazonで置き配や宅配ボックスの指定が可能になったが...

イメージ
 Amazonで置き配や宅配ボックスの指定が可能になっていたので、早速宅配ボックスを指定してみたが... フツーにピンポン押して配達された 運送業者は「日本郵便」で荷物の追跡にも指定らしき記載はなし

Delphi メインフォーム非表示のアプリで、サブフォームを表示させると、タスクバーに表示されてしまう

 Delphi でメインフォーム非表示のアプリで、別のフォームを表示させると、タスクバーに表示されてしまう プロジェクト側をこんな感じにして起動すると、メインフォーム(Form1)は非表示で、タスクバーにも表示されない Application.MainFormOnTaskbar := False; Application.ShowMainForm := False; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); ところが、Form2 を表示させた途端、タスクバーに表示された上、タスクバー上で右クリック「ウィンドウを閉じる」でアプリケーションが終了されてしまう そのため Form2 を表示しても、タスクバーに表示させたくない Form2 の Createイベントに、下記(SetWindowLong...)を加える procedure TForm2.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end; また、メインフォーム(Form1)、サブフォーム(Form2)どちらを表示してもタスクバーに表示しないには Application.MainFormOnTaskbar := True; Application.ShowMainForm := True; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); procedure TForm1.FormCreate(Sender: TObject); begin ShowWindow(Handle, SW_HIDE); SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW); ShowWindow(Handle, S

ソフトバンクテレコム「局番割引スーパー」のお知らせが届いたら

イメージ
かつては 有料対象になってもお知らせが来なかった 、ソフトバンクテレコム(日本テレコム時代の商品)「局番割引スーパー」 さすがに問題になったのか、お知らせが来るようになったらしい しかも、電話から オペレーターを介すこと無く解約が可能 に この商品、マイラインプラスにソフトバンクを登録していると「局番割引スーパー」の月額基本料 200円が割り引かれる条項があるのだが、ひかり電話へ移行するとマイラインは消滅するため無料条件が外れて、基本料が取られるという仕組み しかも「1,000円未満の請求は溜まってから請求」な罠まであるw ひかり電話へ切り替えて、お知らせが届いたら速やかに解約しましょう