Einzelnen Beitrag anzeigen

Renate Schaaf

Registriert seit: 25. Jun 2020
Ort: Lippe
114 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: PageControl - Wechsel zwischen Tabsheet per Tastatur sperren

  Alt 11. Mär 2021, 09:53
Hallo,

Du könntest die WndProc ändern, so dass sie nicht auf keyboard reagiert, könnte man vielleicht noch genauer ausfiltern:

Delphi-Quellcode:
type
 TPageControl=class(Vcl.ComCtrls.TPageControl)
  protected
  procedure WndProc(var Message: TMessage); override;
  end;

...
Delphi-Quellcode:
procedure TPageControl.WndProc(var Message: TMessage);
begin
  if (Message.Msg < WM_KEYFIRST) or (Message.Msg > WM_KEYLAST) then
    inherited;
end;
Gruß
Renate
  Mit Zitat antworten Zitat