[delphi] kłopot z sender`em

0

Witam
Mam takie pytanie. Portrzebuję zabezpieczyć wszystkie Edit`y przed wpisaniem w nie liczb innych niż 0 lub 1 więc robię coś takiego :

if (sender is TEdit) then
if key &lt&gt #49 then 
if key &lt&gt #48 then  ShowMessage('Liczba');
(sender as TEdit).clear;

i jeżeli został wciśnięty klawisz inny niż 0 lub 1 to pojawia się komunikat i w Edit w którmy zostało wywołane sender powinno być puste a umnie pojawia się komunikat ale edit się nie czyści tylko zostaje wpisana w niego ten klawisz który został wciśnięty. Więc co mam zrobić żeby to działało tj. żeby nie dało się wpisać niczego poza 0 lub 1. Może jest jakiś inny sposób - MaskEdit odpada.


lusio pozdrawia

0

if (Sender is TEdit) then
if (key &lt&gt '1') and (key &lt&gt '0') then
begin
ShowMessage('Liczba');
(Sender as TEdit).clear;
Key := #0;
end;
--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

1 użytkowników online, w tym zalogowanych: 0, gości: 1