名前
題名
▼ Mr.XRAYさん > 例えば，アプリ開始時に，パスワードを入力させて，間違いなら > 見かけ上，アプリを起動しないようにする． > 何かのファイルがない場合， > システムに何かが不足している > > 場合等に応用できます． > 実際にアプリを起動しないのではなく，アプリそのものは起動します． > メインフォームを閉じると，アプリの終了となることと， > OnShow ではまだ，フォームが表示されていないことを利用しています． > OnCreate イベントでの処理も可能です． > 用途によって使い分けることになります． > > //----------------------------------------------------------------- > // 条件によって，メインフォームを表示と非表示を切り替える > // メインフォームを閉じることは，アプリケーションの終了となる > //----------------------------------------------------------------- > procedure TForm1.FormShow(Sender: TObject); > var > AValue : String; > begin > if InputQuery('入力画面', 'パスワード', AValue) then begin > if Trim(AValue) = '' then begin > //入力が空文字の場合 > //WM_CLOSEの送信はPostMessageで行う > PostMessage(Handle, WM_CLOSE, 0, 0); > end; > end else begin > //[キャンセル]でダイアログを閉じた時も強制終了 > PostMessage(Handle, WM_CLOSE, 0, 0); > end; > end; > > > [OnCreateでFormを消すには？？] > http://hpcgi3.nifty.com/e-papy/DelphiBBS/wwwlng.cgi?print+201404/14040005.txt > > も，こういうことではないかと思いますが， > 本人が，「今は、次の質問に移ってますので、」 > と書いていますし． > 「消す」とか「richeditの問題のほうも見ていただけませんか？？」 > というのもすごいですけどね． > たまにみかけるパターンですが． > > アプリ起動直後の画面 > 空文字入力だと，フォームを表示しないでアプリを終了する
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link