請問各位大大，

我想自已練習一個簡單的畫圖程式，
只是單純的畫線、圓、矩形，
有點像小畫家畫線、圓那樣，
元件我只想到 TImage 可以畫線，
但我抓不到滑鼠的游標的座標，
我曾試著用 GetCursorPos 來做，
X座標我可以算得出來，
但 Y 座標抓不準，因為下面的開始功能表和
Form 的標題列高度我不會抓。
請問一下，有哪個元件可以有自已的 X, Y 屬性可以使用呢？
這樣比較方便。
如果沒有，可否指點我，開始功能表的高度，和 FORM 的標題列高度要怎麼抓呢？
謝謝。

------
弟子規，聖人訓，首孝悌，次謹信，泛愛眾，而親仁，有餘力，則學文。

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
m, f: Integer;
begin
m := Screen.Height - Screen.WorkAreaHeight;
f := form1.Height - form1.ClientHeight;
Showmessage(Format('開始功能表高度: %d 。FORM 的標題列高度 %d', [m,f]));
end;
[/code]

------
努力會更接近成功

原來這麼簡單，
感謝 pceyes 大大～

------
弟子規，聖人訓，首孝悌，次謹信，泛愛眾，而親仁，有餘力，則學文。

上樓只是回應了
如果沒有，可否指點我，開始功能表的高度，和 FORM 的標題列高度要怎麼抓呢？
ps. Screen=全螢幕, WorkAreaHeight=沒有開始功能表(應該需要explorer運行), ClientHeight=內部

另外,你可以用 timage.on mousemove 來得到x,y 然後再加上這個timage的left和top 就可以得到準確的座標 (不需要用任何額外的api)

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.caption:=
Format('相對座標(%d,%d),絕對座標(%d,%d)', [X,Y,image1.left X,image1.top Y]);
end;

編輯記錄