[ Pobierz całość w formacie PDF ]
if (x
if (y
end; //with
end;
Korzystaj c z Inspektora Obiektów, w a ciwo ci Interval komponentu Timer1 przy-
pisz warto 50.
Przyk ad 13.19.
Umie na formularzu komponent typu TButton i TShape. Zadaniem przycisku jest wy-
wietlanie po ka dym klikni ciu na przemian kó ka lub prostok ta.
Po naci ni ciu klawiszy strza ek komponent Shape przesuwa si zgodnie z kierunkiem
strza ki rysunek 13.8.
Rysunek 13.8.
Przesuwanie ko a
za pomoc
klawiszy strza ek
Aby klawisze strza ek nie by y przechwytywane przez komponent Button1, nale y
ustawi dla niego w a ciwo TabStop na false.
Rozdzia 13. Grafika w Delphi korzystanie z metod obiektu TCanvas 167
Rozwi zanie
Wstaw komponenty TButton i TShape. Dla komponentu TShape ustaw w a ciwo Shape
na stCircle i w a ciwo Brush\Color na clYellow. W procedurze obs ugi klikni cia
przycisku wpisz instrukcje jak poni ej:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Shape1.Shape=stCircle then Shape1.Shape:=stRectangle
else Shape1.Shape:=stCircle;
Form1.ActiveControl:=nil;
end;
W celu sprawdzenia klawiszy strza ek wykorzystaj zdarzenie OnKeyDown dla formula-
rza. Tre procedury obs ugi tego zdarzenia przedstawiono poni ej:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
case Key of
vk_Right: Shape1.Left:=Shape1.Left+10; //strza ka w prawo
vk_Left: Shape1.Left:=Shape1.Left-10; //strza ka w lewo
vk_Up: Shape1.Top:=Shape1.Top-10; //strza ka w gór
vk_Down:Shape1.Top:=Shape1.Top+10; //strza ka w dó
end;
end;
W przyk adzie wykorzystano kody klawiszy wirtualnych. Par przyk adowych kodów
podano w tabeli 13.3.
Tabela 13.3. Wybrane klawisze i ich kody
Kod klawisza Klawisz
vk_F1, vk_F2, & vkF24 F1, F2, & , F24
vk_LBUTTON, vk_RBUTTON Lewy przycisk myszy, prawy przycisk myszy
vk_INSERT Ins
vk_DELETE Del
vk_ESCAPE Esc
Vk_BACK Backspace
Vk_TAB Tab
Wszystkie kody mo na znale w Systemie Pomocy Delphi, wystarczy umie ci kur-
sor na s owie vk_Left i nacisn F1 lub wyszuka has o Virtual Key Codes.
[ Pobierz całość w formacie PDF ]
