名前
題名
▼ yoshidaさん > 便乗して・・ > > VCLのOnSelectCellイベントでCellのRectが欲しいようなケースなんですが、 > TStringColumn.OnEnterで、LocalRectあたりに期待したけれどダメっぽくて、 > かろうじてAbsoluteRectあたりで計算してできるっぽいという感じですかね。 > > procedure TForm1.FColEnter(Sender: TObject); > begin > Label1.Text := 'ColEnter:' + inttostr(trunc(TControl(Sender).AbsoluteRect.left)) + ' ' +inttostr(trunc(TControl(Sender).AbsoluteRect.top)); > //Label1.Text := 'ColEnter: ' + inttostr(trunc(TControl(Sender).ClipRect.left)) + ' ' +inttostr(trunc(TControl(Sender).ClipRect.top)); > //Label1.Text := ColEnter: ' + inttostr(trunc(TControl(Sender).LocalRect.left)) + ' ' +inttostr(trunc(TControl(Sender).LocalRect.top)); > end; > > OnEnterがまだ本気そうじゃないので、クリアしても壁はありますが(あきらめ感) >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link