フォームについて (ID:29526)

名前

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

本文 こうすれば一応表示上だけは反転するけどね・・・・ procedure TForm1.Button1Click(Sender: TObject); var DC : HDC; Canvas : TCanvas; begin DC := GetWindowDC(Form1.Handle); Canvas := TCanvas.Create; Canvas.Handle := DC; Canvas.CopyRect(Rect(0,0,Width,Height),Canvas,Rect(0,Height-1,Width,-1)); ReleaseDC(0,DC); end;