Помощь в навигации (Дельфи)

[Grisha248]

Необходимо создать кнопку по нажатию на которую происходило бы перемещение вверх или вниз по списку в Memo

[Daramant]

Это можно сделать так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button_Up: TButton;
    Button_Down: TButton;
    procedure Button_UpClick(Sender: TObject);
    procedure Button_DownClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Get_Scroll_Info(Control: TWinControl; var si: tagSCROLLINFO);
begin
  si.cbSize := Sizeof(tagSCROLLINFO);
  si.fMask := SIF_ALL;

  GetScrollInfo(Control.Handle, SB_VERT, si);
end;

procedure Set_Scroll_Info(Control: TWinControl; si: tagSCROLLINFO);
var
  wParam: Integer;
begin
  SetScrollInfo(Control.Handle, SB_Vert, si, true);

  wParam := si.nPos;
  wParam := wParam shl 16;
  wParam := wParam + SB_THUMBTRACK;

  SendMessage(Control.Handle, WM_VSCROLL, wParam, 0);

  Control.Refresh;
end;

procedure Move_Scroll(Control: TWinControl; d: Integer);
var
  si: tagSCROLLINFO;
begin
  Get_Scroll_Info(Control, si);

  si.nPos := si.nPos + d; // смещение позиции на d

  Set_Scroll_Info(Control, si);
end;

procedure TForm1.Button_UpClick(Sender: TObject);
begin
  Move_Scroll(Memo1, -1);  // смещение вверх
end;

procedure TForm1.Button_DownClick(Sender: TObject);
begin
  Move_Scroll(Memo1, 1);  // смещение вниз
end;

end.