Вернуть ScrollBar в исходное положение

[Shouldercannon]

Столкнулся с такой проблемой. Юзер нажимает на кнопку и ему показывается форма на которой Memo с текстом (рис. up.gif). Он начинает листать текст в Memo, тоесть прокручивать ScrollBar вниз (рис. down.gif). После того как он прокрутил ScrollBar вниз он закрывает окно и снова его открывает и видит, что ScrollBar внизу. Вопрос как при следующем показе формы с Memo ScrollBar снова был вначале, тоесть наверху?

[Terran]

Сообщение от Shouldercannon

Столкнулся с такой проблемой. Юзер нажимает на кнопку и ему показывается форма на которой Memo с текстом (рис. up.gif). Он начинает листать текст в Memo, тоесть прокручивать ScrollBar вниз (рис. down.gif). После того как он прокрутил ScrollBar вниз он закрывает окно и снова его открывает и видит, что ScrollBar внизу. Вопрос как при следующем показе формы с Memo ScrollBar снова был вначале, тоесть наверху?

Можете сделать так:

Procedure TForm1.FormShow(Sender: TObject);
Var
Mes: TWMVSCROLL;
Begin
Mes.Msg:=WM_VSCROLL;
Mes.ScrollCode:=SB_TOP;
Memo1.Dispatch(Mes);
End;

[Sm1Le]

Form1.ScrollBar1.Position

[Shouldercannon]

Спасибо. Работает.

[Shouldercannon]

Как тоже самое провернуть, но с WebBrowser1?

Procedure TForm1.Button1Click(Sender: TObject);
var
Mes: TWMVSCROLL;
Begin
Mes.Msg:=WM_VSCROLL;
Mes.ScrollCode:=SB_TOP;
WebBrowser1.Dispatch(Mes);
End;

не помогает.

[Shouldercannon]

Вообще реально ли сделать такое с TWebBrowser? Если нет, то я не буду возвращаться к этому вопросу.

[Пашок]

Народ, подскажите пжл, я делаю текстовый редактор в делфи на RichEdit, и мне нужно сделать так, чтобы с помощью трёх кнопок текст становился жирным, курсивом и подчёркнутым как в wordpade.но при нажатии на кнопку ещё раз буквы становились обычными) как это сделать??