Skocz do zawartości


woolfik

Rejestracja: 10 paź 2007
OFFLINE Ostatnio: 12 10 2007 11:51
-----

Moje tematy

[delphi]Rozroznianie cyfr i znakow

10 10 2007 - 09:27

witam serdecznie niedawno zaczalem sie uczyc Delphi i na zaliczenie musze napisac kilka programow jednym z nich jest takie zadanie:

Zdefiniować procedury obsługi zdarzeń formularza:

* - mouse up - zmniejsza form o 10 we wszystkich kierunkach
* - mouse down - powiększa form o 10 we wszyskich kierunkach
* - key down - cyfra przenosi form do lewej krawędzi ekranu, litera do prawej;
* - key press - zmiana koloru na losowy; generator całkowitych liczb losowych realizuje funkcja Random(arg) - losowana jest liczba z przedziału: <0,arg)
* - key up - cyfra przenosi form do górnej krawędzi ekranu, litera do dolnej;

Mouse up/down i key press mam zrobione key down i up niestety nie potrafie zrobic. W key down wymyslilem cos takiego:

Form1.Left := 0;


Niestety przesuwa to tylko formatke do lewej krawedzi bez wzgledu na to czy nacisnalem litere czy cyfre ... ktos wie jak moge to zrobic ?? No i jeszcze jak mam przesunac formatke do prawej krawedzi ? Jak mniemam analogicznie key up bedzie dzialalo w ten sam sposob

Form1.Top := 0