Постраничная прокрутка Memo, когда фокус находится на Edit
Материал из DRKB
Постраничная прокрутка Memo, когда фокус находится на Edit[править | править код]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_F8 then
SendMessage(Memo1.Handle, { HWND для Memo }
WM_VSCROLL, { сообщение Windows }
SB_PAGEDOWN, { на страницу вниз }
0) { не используется }
else if Key = VK_F7 then
SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0);
end;
Source: http://delphiworld.narod.ru/
ID: 01006