|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.09.2007, 16:12 | #1 |
Пользователь
Регистрация: 30.08.2007
Сообщений: 25
|
Помогите со скролом
Как с помощью внешнего скролла TScrollBar прокручивать Memo
|
11.09.2007, 16:31 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот пример :
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; ScrollBar1: TScrollBar; procedure ScrollBar1Change(Sender: TObject); procedure Memo1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ScrollBar1Change(Sender: TObject); begin Memo1.Perform(WM_VSCROLL,MakeWParam (SB_THUMBPOSITION,ScrollBar1.Positi on),0); end; procedure TForm1.Memo1Change(Sender: TObject); begin ScrollBar1.Max:=Memo1.Lines.Count; end; procedure TForm1.FormCreate(Sender: TObject); begin ScrollBar1.Max:=Memo1.Lines.Count; end; end.
I'm learning to live...
|