Delphi-PRAXiS - Delphi Autom. Weiterschaltung (TPageControl)

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Autom. Weiterschaltung (TPageControl) (https://www.delphipraxis.net/19079-autom-weiterschaltung-tpagecontrol.html)

rbest

29. Mär 2004 08:43

Autom. Weiterschaltung (TPageControl)

Hi allerseits,
kaum ist Montag, schon taucht die erste Frage auf. :gruebel:
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. :cheers:
Besten Dank, Freunde. R.B.

Sharky

29. Mär 2004 09:22

Re: Autom. Weiterschaltung (TPageControl)

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

29. Mär 2004 09:42

Re: Autom. Weiterschaltung (TPageControl)

Hi Hai, :)
soo einfach? Ts, ts, ts. :thuimb:

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:24 Uhr.