掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
タスクバーとフォームのタイトルを同じにするには？ (ID：2055)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
みなさん申し訳ないです。 この問題についてはApplication.Titleを各所で変更する事で 解決しました。[プロジェクト]のアプリケーションのタイトルで 変更できる事は知っていたのですが、ＶＢやＶＣと違い フォームとタスクバー側とのタイトルの変更が非同期だったのが 全然分からなかったのでこのような質問をしたのです。 解決した問題のコードの一部です // フォームが作成された時のイベント procedure TForm1.FormCreate(Sender: TObject); var i : integer; begin DragAcceptFiles(Handle, True); // D&Dを許可する Caption := Application.Title; // Form1のタイトルをアプリと同じにする Application.OnHint := OnHint; // ヒントの設定(DelphiのQ&Aより) StatusBar1.Panels[2].Text := '挿入'; // Panel[2]の挿入を表示 // コマンドライン引数が0以上の時は引数のファイルをTSonEditに読み込む if ParamCount > 0 then begin for i := 1 to ParamCount do begin Memo1.LoadFromFile(ParamStr(i)); SaveDialog1.FileName := ParamStr(i); Caption := 'にゃんたエディッタ - ' + ExtractFileName(ParamStr(i)); Application.Title := 'にゃんたエディッタ - ' + ExtractFileName(ParamStr(i)); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.