RichEditなどでX座標を保存し復帰させるには？ (ID：24612)

名前

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

本文

これでできました。

//スクロール位置を保存
procedure TForm1.Button1Click(Sender: TObject);
var
  si: TScrollInfo;
begin
  si.cbSize := SizeOf(TScrollInfo);
  si.fMask := SIF_POS;
  if GetScrollInfo(RichEdit1.Handle, SB_VERT, SI) Then
  begin
    iv := si.nPos;
    Memo1.Lines.Add('VERT:' + IntToStr(si.nPos));
  end;
  if GetScrollInfo(RichEdit1.Handle, SB_HORZ, SI) Then
  begin
    ih := si.nPos;
    Memo1.Lines.Add('HORZ:' + IntToStr(si.nPos));
  end;
end;

//スクロール位置を復帰
procedure TForm1.Button2Click(Sender: TObject);
var
  Msg:TWMScroll;
begin
  Msg.Msg := WM_VSCROLL;
  Msg.Pos := iv;
  Msg.ScrollBar := 0;
  Msg.ScrollCode := SB_THUMBTRACK;
  RichEdit1.Dispatch(Msg);
  Msg.ScrollCode := SB_THUMBPOSITION;
  RichEdit1.Dispatch(Msg);
  Msg.ScrollCode := SB_ENDSCROLL;
  RichEdit1.Dispatch(Msg);

Msg.Msg := WM_HSCROLL;
  Msg.Pos := ih;
  Msg.ScrollBar := 0;
  Msg.ScrollCode := SB_THUMBTRACK;
  RichEdit1.Dispatch(Msg);
  Msg.ScrollCode := SB_THUMBPOSITION;
  RichEdit1.Dispatch(Msg);
  Msg.ScrollCode := SB_ENDSCROLL;
  RichEdit1.Dispatch(Msg);
end;

←解決時は質問者本人がここをチェックしてください。

戻る