procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin end; if Key = VK_F8 then SendMessage(Memo1.Handle, { HWND of the Memo Control } WM_VSCROLL, { Windows Message } SB_PAGEDOWN, { Scroll Command } 0) { Not Used } else if Key = VK_F7 then SendMessage(Memo1.Handle, { HWND of the Memo Control } 妳要在什麽處所滾動?Memo的主動滾動可以參看壹下法度榜樣片段: WM_VSCROLL, { Windows Message } SB_PAGEUP, { Scroll Command } 0); { Not Used } 如不雅要實現片子字幕效不雅,到開辟中間看看,很多這種控件,妳可以參考它的源碼.
上一篇:國外的壹部科幻片下一篇:任賢齊2023演唱會什麽時候直播?