|
プレビュー 表示コンポーネント、利用させていただきありがとうございます。
ちょっと残念なのがキーボードで操作できないこと。
いつものように勝手に修正してみました。
最初 plPrev.pas のソースを一生懸命追っかけていましたが全然理解できず。
休憩して、冷えた桃を食べたら plPrevfrm.pas を見つけることが出来ました。
桃サイコー (^_^)
//=============================================================================
// Keyによって操作 A 2012/07/31
//=============================================================================
procedure TplPrevForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F10 then
begin
if PrintBtn.Enabled = True then
PrintBtnClick( Sender );
end;
if Key = VK_F9 then
if CloseBtn.Enabled = True then
CloseBtnClick( Sender );
if Key = VK_HOME then
if FirstPageBtn.Enabled = True then
FirstPageBtnClick( Sender );
if Key = VK_END then
if LastPageBtn.Enabled = True then
LastPageBtnClick( Sender );
if Key = VK_PRIOR then
if PriorPageBtn.Enabled = True then
PriorPageBtnClick( Sender );
if Key = VK_NEXT then
if NextPageBtn.Enabled = True then
NextPageBtnClick( Sender );
end;
|