Использование клавиши PrintScreen

Для того чтобы использовать клавишу PrintScreen сначала надо получить уведомление о том, что она нажата. Свойству формы KeyPreview на стадии проектирования необходимо присвоить значение true и в обработчике события, связанного с отпусканием клавиши OnKeyUp, записать следующее:

//распечатка клиентской области формы

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

Var

B: TBitmap;

begin

if key = vk_SnapShot then

begin

B: = GetFormImage;

Printer.BeginDoc;

Printer.Canvas.Draw(0, 0, B);

Printer.EndDoc;

end;

end;

В этом примере функция GetFormImage возвращает графическое изображение только клиентской части формы. Если необходимо распечатать содержимое всей формы, то можно воспользоваться областью ClipBoard.

Пример.

//распечатка всей формы

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

Var

B: TBitmap;

begin

if key = vk_SnapShot then

begin

B: = TBitmap.Create;

B.Assign(ClipBoard);

Printer.BeginDoc;

Printer.Canvas.Draw(0, 0, B);

Printer.EndDoc;

end;

end;

ДОПОЛНИТЕЛЬНЫЕ КОМПОНЕНТЫ

С РАЗВИТЫМИ ВОЗМОЖНОСТЯМИ

Компонент TTabControl

TTabControl

Компонент TTabControl (на странице Win32) представляет собой контейнер с закладками. Свойство Tabs определяет названия и количество закладок. Событие OnChange возникает при выборе новой закладки и позволяет управлять содержимым окна компонента.