Formの最大化表示の方法 (ID:31695)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

真琴：「OnShowイベントでサイズ変更するとエラー表示が出るよね？ ハルコさん」
春子：「CreateWndなら大丈夫かな？」
真琴：「あと、↓コレだと9X系ではタスクバーが隠れちゃうの」
  WindowState := wsMaximized;
  BorderIcons := [biSystemMenu];

春子：「もしフォームのサイズを指定するなら DesktopのWorkAreaを取得しなくちゃ」
真琴：「じゃぁ、こうすればイイのかな？」

procedure TForm1.CreateWnd;
var
  Rect: TRect;
begin
  inherited;
  BorderIcons := [BiSystemMenu];
  SystemParametersInfo(SPI_GETWORKAREA, 0, @Rect, 0);
  Width := Rect.Right-Rect.Left;
  Height:= Rect.Bottom-Rect.Top;
  Top   := Rect.Top;
  Left  := Rect.Left;
end;

勝爺：「マコト、9月15日はナン曜日だ？」
真琴：「月曜日だヨ、ねぇ、おじいちゃん、8月31日の約束は大丈夫よね？」
勝爺：「約束？ ハヅキさんをバーベキューに招待するのは、9月になってからだぞ」
真琴：「違うよ、勘違いしないで、おじいちゃん、ディズニーランドに行く約束よ」
勝爺：「あぁ、ソッチか、バンの調子もイイから大丈夫、問題なし」
春子：「ねぇ、マコト、話は変るけど、ユウコちゃんをナンとかしてくれない？」
真琴：「え？ ユウコのグチが始まったの？」
春子：「うん、昨日も"渚"でズ〜ットため息とグチばっかり、恒例行事だけどね^^;」
真琴：「そうだと思ったから、ディズニーランドに行く約束したの、ユウコも一緒に」
春子：「じゃ、これでユウコちゃんのグチも収まるね、ハヅキさんも誘ったらどう？」
真琴：「ハヅキさんにクルマを押させるのは無理よ、心臓弱いから」
春子：「え？ それどういうコト？」
真琴：「もしも、途中でバンがエンストした場合…」
春子：「そんなぁ…、じゃ、アタシもやめた、一緒に行こうと思ったンだけど」
真琴：「一緒に行こうよ、ハルコさん、クルマを押すにも人数多い方がイイし…^^;」

←解決時は質問者本人がここをチェックしてください。

戻る