F1..F12 con PageControl

[Parsec]

Buenas señores,as,

como puedo capturar las teclas F1..F12 en un componente PageControl?

Saludos

[ecfisa]

Hola Parsec.

Un modo puede ser:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True
end;

// Uso:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ActiveControl is TPageControl then
    case Key of
      VK_F1 : ShowMessage('Tecla F1 presionada');
      //...
      VK_F12: ShowMessage('Tecla F12 presionada');
    end
end;

Saludos.

[Parsec]

Perfecto!!!,

muchas gracias Ecfisa.