PageControl - Wechsel zwischen Tabsheet per Tastatur sperren

[Renate Schaaf]

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ß

[himitsu]

Oder KeyPreview=True und dann im Event der Form.

[Mat78]

Hallo, das habe ich schon versucht, funktioniert auch . Problem: dadurch ist aber auch der Rest betroffen auf der Form (Editfelder zum BEispiel)

Zitat von himitsu:

Oder KeyPreview=True und dann im Event der Form.

[himitsu]

Es ist ja nicht so, dass man dort nicht auf Self.ActiveControl oder Screen.ActiveControl prüfen könnte und das dann nur dann macht, wenn es nötig ist.

[Mat78]

Dankö für den Tipp, nun funktioniert es.

Zitat von himitsu:

Es ist ja nicht so, dass man dort nicht auf Self.ActiveControl oder Screen.ActiveControl prüfen könnte und das dann nur dann macht, wenn es nötig ist.