mit PageUp/PageDown Tabsheets wechseln

[Hansa]

Hi,

ich habe hier ein PageControl mit 3 Tabsheets. Wie kann ich die per Tastatur wechseln ? Ich bräuchte erst mal die Standard-Tastenkombination von Windows. Und dann soll das ganze eben auch mit den Bild-Tasten funktionieren.

[fkerber]

HI!

Zitat von Hansa:

Ich bräuchte erst mal die Standard-Tastenkombination von Windows

Meinst du sowas:

http://www.delphi-treff.de/content/e...ex.php4?id=395

Dann kannst du ja beim Tastendrücken drauf reagieren und entsprechend umschalten, oder verstehe ich da etwas falsch?

Ciao fkerber

[M-O-D]

Hallo,

die Standard Windows Tasten zum umschalten der Tabs ist:
STRG+TAB

@fkerber

Die Pagecontrol Komponente hat kein Ereigniss, welches auf Key Press oder Down reagiert! Deswegen wirds ein wenig komplizierter, weiß aber leider auch keine Lösung

[MarcoWarm]

aber das Formular hat ein OnKeyDown Event - Also:

Form1.KeyPreview:=true;

und dann bei BildAuf, BildAb in Form1.OnKeyDown reagieren und die Tabs umschalten

Ciao

Marco

[M-O-D]

ich nochmal

@MarcoWarm

Das habe ich noch nie in Betracht gezogen...
Man lernt nie aus

[Hansa]

Habe es jetzt in die Form selber eingebaut und kann blättern. Aber da liegt noch ein Edit drauf, wo erst einmal etwas eingegeben werden soll. Danach soll geblättert werden können, vorher nicht. Wie kriege ich das jetzt noch abgefangen ?

[MarcoWarm]

Ein Tipp für eine kleine Plausibilitätskontrolle:

Überprüfe einfach, vor dem Pagewechsel, ob das EditFeld etwas enthält.

OnChanging Event des PageControls:

Delphi-Quellcode:

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if trim(Edit1.Text)='' then 
    AllowChange:=false 
  else
    AllowChange:=true;
end;

Ciao

Marco