Hallo
neues Problem! Ich habe soweit alles realisiert was ich mir in den Kopf gesetzt habe. Jetzt wollte ich nur noch mit einer Checkbox 2 simple Edits editierbar (beschreibbar) machen die Standartmäßig ReadOnly=true haben. Das bekomme ich aber nicht realisiert. Es funktioniert beim ersten einwandfrei aber das 2. lässt sich nicht dazu bequemen.
Delphi-Quellcode:
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked = True
then
begin
Edit100.ReadOnly := false;
Edit101.ReadOnly := false;
end
else
if CheckBox4.Checked = false
then
begin
Edit100.ReadOnly := true;
Edit101.ReadOnly := true;
end;
end;
fällt jemandem was besseres ein?