Delphi滚动备忘录

时间:2013-07-17 18:40:19

标签: delphi

现在我有了这段代码。

procedure TForm1.Memo1Change(Sender : TObject);
begin
  SendMessage(Informacje.Handle, EM_LINESCROLL, 0, Memo1.Lines.Count);
end;

问题是我在添加新行时无法向上滚动MemoLines。我想在向上滚动时停止将光标移动到末尾,当滚动条在底部时开始将光标移动到末尾。感谢寻求帮助。
换句话说。想象一下,有一个与Memo的IRC聊天。新消息,插入符号位于最后一条消息的末尾。现在我想用滚动条(向上)阅读以前的消息,但我不能导致有更新的消息将carret移回底部。我想在鼠标滚轮上停止它,读取消息,然后回到之前的状态(在新消息结束时再次发送插入符号),当我滚动到底部时。

1 个答案:

答案 0 :(得分:5)

您需要一个条件来决定是否滚动到底部。下面似乎只是一个简单的测试,它将最可见的最后一行与备忘录可以显示的行数相加,以确定最后一行是否可见。

procedure TForm1.Memo1Change(Sender: TObject);
var
  LineCount, TopLine: Integer;
begin
  LineCount := Memo1.Perform(EM_GETLINECOUNT, 0, 0) - 1;
  TopLine := Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
  if (TopLine + GetVisibleLineCount(Memo1)) >= LineCount then
    SendMessage(Memo1.Handle, EM_LINESCROLL, 0, LineCount);
end;

,其中

function GetVisibleLineCount(Memo: TMemo): Integer;
var
  DC: HDC;
  SaveFont: HFONT;
  TextMetric: TTextMetric;
  EditRect: TRect;
begin
  DC := GetDC(0);
  SaveFont := SelectObject(DC, Memo.Font.Handle);
  GetTextMetrics(DC, TextMetric);
  SelectObject(DC, SaveFont);
  ReleaseDC(0, DC);

  Memo.Perform(EM_GETRECT, 0, LPARAM(@EditRect));
  Result := (EditRect.Bottom - EditRect.Top) div TextMetric.tmHeight;
end;

(您可以缓存可见行数,以避免为备忘录中的每次更改计算它。)

你可能需要进一步调整代码,f.i。对于备注中可以显示的行数较少的情况。此代码也没有考虑插入位置。