Autom. Weiterschaltung (TPageControl)

[rbest]

Hi allerseits,
kaum ist Montag, schon taucht die erste Frage auf.
Wie krieg ich mein Programm dazu, auf das näxte Tab-Ctrl zu schalten, zum Bleistift mit Ctrl-Rechts-Feil
Für eine gute Lösung gibt es 100 Punkte.
Besten Dank, Freunde. R.B.

[Sharky]

Hai rbest,

ungetestet:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssctrl in Shift) AND (Key = VK_RIGHT) then
  begin
    PageControl1.SelectNextPage(true);
  end;
end;

Bei der Form muss natürlich KeyPreview auf True stehen.

[rbest]

Hi Hai,
soo einfach? Ts, ts, ts.