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

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

■必要なコンポーネント

Memo
Button1（↑）・・・上に一行移動
Button2（↓）・・・下に一行移動
Button3（↑↑）・・上に一ページ移動
Button4（↓↓）・・下に一ページ移動

■使用するAPI関数

SendMessage（指定のウインドウにメッセージを送る）

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

■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



　//１行上に移動

　SendMessage(Memo1.handle,EM_SCROLL,0,0);



end;



procedure TForm1.Button2Click(Sender: TObject);

begin



　//１行下移動

　SendMessage(Memo1.handle,EM_SCROLL,1,1);



end;



procedure TForm1.Button3Click(Sender: TObject);

begin



　//１ページ上に移動

　SendMessage(Memo1.handle,EM_SCROLL,2,2);



end;



procedure TForm1.Button4Click(Sender: TObject);

begin



　//１ページ下に移動

　SendMessage(Memo1.handle,EM_SCROLL,3,3);



end;

Win32APIのページへ

ホーム PV ランキング