artykuły

Tylko jeden minus

2009-09-08
16:45:00
Avatar
Remington
Data publikacji:
18:45, 8 September 2009
Witam, Troszkę poszukałem w sieci i na stronie, ale niestety nie znalazłem tego co chciałem. Chodzi mi o pewnego rodzaju zabezpieczenie do Edit'a. Mianowicie, jak sprawić aby minus '-' był dopuszczalny tylko na pierwszej pozycji oraz tylko jeden w całym polu. Wiem, że muszę zrobić to w KeyPress, chodzi mi głównie o kod. Nick tego, który mi pomoże, zawidnieje w programie ^^. Mam nadzieję, że to właściwy dział. Pozdrawiam, Remington
Avatar
Remington
Data publikacji:
18:52, 8 September 2009
Dodam jeszcze, że znalazłem w sieci nieco inny kod, który dopuszcza tylko określone znaki do pola (i nieco go urozmaiciłem xD). Nawet nie jestem pewien czy to nie jest z tej strony :D Więc jeśli istnieje możliwość, prosiłbym o połączenie kodu o który mi chodzi z obecnym (albo zrobienie tego tak, aby wszystko działało) IF not (Key in ['0'..'9' , ',' , '-' , #8]) THEN BEGIN Key := #0 ; Form1.Label4.Color:=clRed; END ELSE Form1.Label4.Color:=clBlack; P.S Jak formatować tekst tutaj w postach? można 'z gościa'? :] HTML? BB? :D
Avatar
Lukas
Strona domowa
Data publikacji:
18:52, 13 September 2009
Jeśli znak '-' ma być dopuszczalny tylko na pierwszej pozycji i tylko max. jeden w polu to inaczej rzecz ujmując - albo jest on na pierwszej pozycji albo nie ma go wcale. Według mnie, powinno być to rozwiązane w ten sposób: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var blad : boolean; begin blad := not (Key in ['0'..'9' , ',' , '-' , #8]); // dodatkowo jeśli znak pauzy będzie na miejscu innym niż pierwsze // to też błąd if (Key = '-') and (Edit1.SelStart<>0) Then blad := True; if (blad) Then begin Key := #0 ; Form1.Label4.Color:=clRed; end else Form1.Label4.Color:=clLime; end; Pozdrawiam! P.S. A kod najlepiej obejmować w znaczniki CODE przy użyciu kwadratowych nawiasów. Serwis automatycznie rozpoznaje język.
Avatar
Remington
Data publikacji:
21:17, 13 September 2009
Wielkie dzięki, nieco to przerobiłem pod własny deseń, ale to jest dokładnie to czego szukałem. I działa Żeby tak nie wychwalać powiem, że zjadłeś jeden enter w kodzie ]:> Tak jak obiecałem, Twój nick nick dodany do programu. [Sekcja About] POBIERZ: http://www.speedyshare.com/840880906.html [plik czysty, ręczę własnym komputerem :)] Jak widać po programie z NASA to ja nie jestem. Mimo wszystko mała rzecz, a cieszy :]
Avatar
Lukas
Strona domowa
Data publikacji:
7:53, 15 September 2009
Fajnie, że mogłem pomóc. A ten Twój program bardzo fajny - przemyślany i funkcjonalny. Jeśli pozwolisz, zostawię go sobie na dysku - pewnie się kiedyś przyda. Pozdrawiam!
Avatar
Remington
Data publikacji:
17:57, 15 September 2009
Nie ma problemu, jeżeli chcesz to mogę Ci posyłać nowsze wersje na maila (ale takie, które naprawdę coś wnoszą, nie pomniejsze update'y). Cieszy mnie pozytywna opinia fachowca :D W sumie w delphi dopiero raczkuję, IDE jest dużym ułatwieniem, jeżeli chodzi o moją wiedzę to znam tylko Pascala :] Jest to mój pierwszy program okienkowy (przydatny). Jak na razie mam jeszcze 2 nurtujące pytania, ale pomęczę się z nimi sam (przynajmniej spróbuję), więc nie wykluczam, że odezwę się wkrótce... Pozdrawiam, Remington
Avatar
Lukas
Strona domowa
Data publikacji:
12:17, 18 September 2009
Nie ma sprawy. Służę. ;-)
Avatar

Data publikacji:
22:36, 26 July 2013
Link już jest wygasły, Lukas mówił pan że ma pan go na dysku, mógłby pan reuploadować? :)
Avatar

Data publikacji:
11:24, 4 July 2014
No mógłbym, ale nie wiem co na to @Remington :)




Zaloguj się aby dodać post.
Dexter