Ich finde es ja Klasse das du den Source mit online Stellst, so kann man die Kleinigkeiten immer gleich ausbessern
Wäre cool wenn du das Übernehmen würdest :
Delphi-Quellcode:
Procedure visibility(bool: boolean);
Begin
With form1 Do Begin
button1.Visible := bool;
radiobutton1.Visible := bool;
radiobutton2.Visible := bool;
radiobutton3.Visible := bool;
radiobutton4.Visible := bool;
panel2.Visible := bool;
label2.Visible := bool;
label1.Visible := bool;
label4.Visible := Not bool;
If bool and visible Then Button1.setfocus;// <-- Diese Zeile ist neu, damit mus man den Button nicht mehr klicken , sonder kann space nehmen.
End;
End;