テキストをスクロールする





■必要なコンポーネント

■使用するAPI関数

■ソースは下記のようになります。追加している所は青色です。

Memoをスクロールする処理
procedure TForm1.FormCreate(Sender: TObject);
Var
 i : integer;
begin

 //初期設定
 Memo1.Clear;
 Memo1.Lines.Add('1行目 製作 PAPY');


 for i := 2 to 30 do
  Memo1.Lines.Add(inttostr(i)+'行目' + ' こいつはサンプルですよ。');


end;

procedure TForm1.Button1Click(Sender: TObject);
begin

 //1行上に移動
 SendMessage(Memo1.handle,EM_SCROLL,0,0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

 //1行下移動
 SendMessage(Memo1.handle,EM_SCROLL,1,1);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin

 //1ページ上に移動
 SendMessage(Memo1.handle,EM_SCROLL,2,2);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin

 //1ページ下に移動
 SendMessage(Memo1.handle,EM_SCROLL,3,3);

end;






Win32APIのページへ



ホーム PV ランキング