Formタイトルバーを消してもウィンドウ枠を残すには？ (ID:28159)

名前

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

本文 ムリヤリ自前で。 procedure TForm1.WMNCPaint(var Msg: TWMNCPaint); var R: TRect; begin inherited; with TCanvas.Create do try Handle := GetWindowDC(Self.Handle); Brush.Style := bsClear; Pen.Mode := pmCopy; Pen.Color := clActiveCaption; //clBlue; Pen.Width := 3; GetWindowRect(Self.Handle, R); RoundRect(1, 1, R.Right-R.Left-1, R.Bottom-R.Top-1, 2, 2); finally ReleaseDC(Self.Handle, Handle); Free; end;