【Delphi互換!?】FreePascal/Lazarus その2【GPL】 (971レス)
上
下
前
次
1-
新
879
: 2020/07/25(土) 21:12:59.00
ID:U1cr0g+B(1)
調
AA×
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
879: [] 2020/07/25(土) 21:12:59.00 ID:U1cr0g+B TMemo の表示領域を得たいのですが var R: TRect; begin R.Left := 0; R.Top := 0; R.Right: = 0; R.Bottom : =0; Memo1.Perform(EM_GETRECT, 0, Longint(@R)); ShowMessage(Format('Left=%d, Top=%d, Right=%d, Bottom=%d', [R.Left, R.Top, R.Right, R.Bottom])); end; を実行すると Delphi 7 だと正しい値が得られるのに Lazarus 2.0.10 だと Left=0, Top=0, Right=0, Bottom=0 になります。 正しい値を得る方法を教えていただけませんでしょうか。 http://mevius.5ch.net/test/read.cgi/tech/1261676778/879
の表示領域を得たいのですが を実行すると だと正しい値が得られるのに だと になります 正しい値を得る方法を教えていただけませんでしょうか
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 92 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
ぬこの手
ぬこTOP
0.015s