タイトルバー等を除いたフォームの左上座標を取得するには

解決

るるとん＠Ｋ URL 2004-01-12 16:21:47 No: 6663

フォームの左上の座標の取得は簡単にできますが、Client?部分の左上座標はどうすれば取得できるのでしょう？

Mr.XRAY URL 2004-01-12 18:44:01 No: 6664

フォームのキャプションバーを除いた部分の，左上の座標は
常に(0,0)です．
もし，画面上(スクリーン)の座標を求めたいなら，ClientToScreen
使用します．Form1にButtonを1つ配置して以下のコードを実行して
みて下さい．

procedure TForm1.Button1Click(Sender: TObject);
var
     P : TPoint;
begin
     P.x:=0;
     P.y:=0;
     P:=Self.ClientToScreen(P);
     ShowMessage(IntToStr(P.x)+'  '+IntToStr(P.y));
end;

るるとん＠Ｋ 2004-01-12 21:46:05 No: 6665

出来ました。ありがとうございます。