Dimedrol1536
08.07.2011, 17:28
Как использовать прокрутку ScrollBar`om в Memo?
Нашол вот такое, но лутше было-бы скроломprocedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEDOWN{На страницу вверх}, 0)
else if Key = VK_F2 then SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP{На страницу вниз}, 0);
end;
end.
Нашол вот такое, но лутше было-бы скроломprocedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEDOWN{На страницу вверх}, 0)
else if Key = VK_F2 then SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP{На страницу вниз}, 0);
end;
end.