PageControl - Wechsel zwischen Tabsheet per Tastatur sperren

[Mat78]

Hallo Gemeinde,

wie kann man verhindern, das ein User per Taste Links oder Rechts zwischen den einzelnen Tabsheets wechseln kann?

Es gibt ja keine Tastenabfrage "OnKEy" in diesem Fall.

Danke vorab.

Matthias

[mschaefer]

Moin, also ich würde es ausblenden, als User klickt man aufs Tab und es tut sich nichts, ist auch "unerwartet ..."

[Mat78]

Es ging mir um die cursortasten nicht um die Maustasten.

Zitat von mschaefer:

Moin, also ich würde es ausblenden, als User klickt man aufs Tab und es tut sich nichts, ist auch "unerwartet ..."

[Delbor]

Hi Mat78

Versuch mal dies bei OnKeyDown des PageControls:

Delphi-Quellcode:

case Key of of
  VK_Left : Key := #0;
  VKDown  : Key := #0;
  VK_Right: Key := #0;
  VK_UP   : Key := #0;
end;

Alternativ dazu könntest du bei entsprechendem Tastendruck auch PageControl.ActivPage zwischenspeichern und wieder zuweisen.

Die virtuellen Tastaturcodes müsstest du nachprüfen. Ausserdem könnte es sein, dass das Pagecontrol in anderm Zusammenhang auf eben diese Tasten reagieren können muss.

Gruss
Delbor

[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]

Hi, OnKeyDown des PageControls ? Das gibt es nicht.

Zitat von Delbor:

Hi Mat78

Versuch mal dies bei OnKeyDown des PageControls:

Delphi-Quellcode:

case Key of of
  VK_Left : Key := #0;
  VKDown  : Key := #0;
  VK_Right: Key := #0;
  VK_UP   : Key := #0;
end;

Alternativ dazu könntest du bei entsprechendem Tastendruck auch PageControl.ActivPage zwischenspeichern und wieder zuweisen.

Die virtuellen Tastaturcodes müsstest du nachprüfen. Ausserdem könnte es sein, dass das Pagecontrol in anderm Zusammenhang auf eben diese Tasten reagieren können muss.

Gruss
Delbor

[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.