Cześć, daaaawno się nie bawiłem programowaniem a i wtedy moja wiedza byął raczej mizerna. Dzisiaj postanowiłem zrobić coś na swój użytek. Prawie skończyłem, ale brakuje mi dwóch rzeczy.
Mam 2 checkboxy zrobione tak aby po kliknięciu na jeden odznaczał się przy okazji drugi i na odwrót. Niestety można po zaznaczeniu jednego kliknąć nań ponownie tak że odznaczone są dwa.
O dziwo:
procedure TForm1.CheckBox1Enter(Sender: TObject);
begin
CheckBox2.Checked := false;
end;
działa, ale:
procedure TForm1.CheckBox1Enter(Sender: TObject);
begin
CheckBox1.Checked := true;
CheckBox2.Checked := false;
end;
już nie do końca. Wtedy checkbox na który klikam zaznacza się i w ułamku sekundy odznacza, co wymaga ponownego kliknięcia.
Chciałbym, aby po prostu nie dało się odznaczyć obu checkboxów - jeden zawsze pozostawał zaznaczony.
I druga sprawa:
Mam powstawiane TEdit z określonymi znakami jakie można wpisać. Jeśli nie wpiszę nic to system wywala mi błąd
" is not a valid floating point value.
Jak się tego pozbyć? Tzn jaka jest komenda na zbiór pusty?
A, i po tym mam znów if. W delphi elseif chyba nie ma więc czy przykładowo:
if
//w Tedit nic nie ma//;
then
abort;
ShowMessage('Wprowadź wszystkie dane');
if
checkbox1.checked = false
then
blablabla
zadziała?