设置 tMemo 顶部项目

Question

请问如何让 tMemo 从顶部项目开始显示？ 我还没有找到类似“TopItem”的东西，想知道是否必须这样做 通过某种方式发送消息（keydown control、keydown home、keyup home、keyup control） 但尽管阅读了大量的 Delphi 帮助，我还是没有弄清楚如何做到这一点。

Answer 1

只需根据您希望在线条中显示的内容选择任何字符即可。

Memo.Lines.SelStart:=0; 
Memo.Lines.SelLength:=1;

Answer 2

Steve88，感谢您的尝试，但没有成功。
从 Peter Below 的帖子中得到了一些想法，这使我想到了以下内容，这确实有效！

关于是否使用 MemoPopup.Perform 还是 PostMessage 有一些有趣的地方，我希望有人能够阐明它们的工作原理。

// Trying to get a tMemo to display its contents, starting at the first line.
// Various ideas from assorted net sites, and Peter Below's reply to someone
// with a similar problem - thanks, Peter!
// A couple of bits left in for people to puzzle over as to why they do or don't work!!

uses Winapi.Windows, Winapi.Messages;

var
   KeyStateBefore, KeyStateUse : tKeyboardState;
begin
      PostMessage(MemoPopup.Handle, WM_KeyDown, ord('A'), 0); //'a' gets through
      MemoPopup.Perform(WinApi.Messages.WM_KEYDOWN, ord('K'), 0);  //This does not

      Application.ProcessMessages;


      GetKeyboardState(KeyStateBefore);

      KeyStateUse := KeyStateBefore;
      KeyStateUse[vk_Control] := $81;
      SetKeyBoardState(KeyStateUse); //Now turn on the control key.

      //These do appear to work as expected.
      MemoPopup.Perform(WinApi.Messages.WM_KEYDOWN, vk_Home, 0);
      MemoPopup.Perform(WinApi.Messages.WM_KEYUP, vk_Home, 0);

      Application.ProcessMessages;


      SetKeyboardState(KeyStateBefore); //Remove the control key.

      PostMessage(MemoPopup.Handle, WM_KeyDown, ord('B'), 0); //Got through, lower      case
      MemoPopup.Perform(WinApi.Messages.WM_KEYDOWN, ord('E'), 0);  //Nope

      Application.ProcessMessages;

      KeyStateUse := KeyStateBefore;
      KeyStateUse[vk_Shift] := $80;
      SetKeyboardState(KeyStateUse);

      PostMessage(MemoPopup.Handle, WM_KeyDown, ord('C'), 0); //Got through in   upper case
      MemoPopup.Perform(WinApi.Messages.WM_KEYDOWN, ord('Q'), 0); //Not this though

      Application.ProcessMessages;

      SetKeyBoardState(KeyStateBefore);
      Application.ProcessMessages;

end;

Answer 3

是不是只是：

Memo.SelStart := 0;
Memo.SelLength := 0;

当然，在您将 Tmemo 的内容填满之后添加此代码......
（这对我有用）