TForm.WindowStateについて (ID:39535)

名前

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

本文 これでは？ procedure TForm1.FormShow(Sender: TObject); begin Edit1.Text := IntToStr(self.ClientWidth); Edit2.Text := IntToStr(self.ClientHeight); end;