Zitat von
Corpsman:
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;
Ist nicht nötig, habe schon in der onkeydown dafür gesorgt das man nur enter drücken muss
Das Links Oben Problem habe ich immer noch nicht produzieren können, hats das sonst irgendwo schon einmal gegeben?
@RavenIV: Kannst du vielleicht die Reihenfolge der Abfragen mal verändern und gucken ob es an den Positionen im Quelltext liegt?
Kann es auch noch sein das USB / PS2 Tastaturen anders abgefragt werden? Hast du überhaupt eine PS2 Tastatur?
Das mit der Namensgebung ist so Gewohnheitssache. Irgendwie kann ich mich an derartige Bezeichnungen leichter erinnern als immer nachschauen zu müssen wie ich die Dinger denn jetzt benannt hab. Deshalb lasse ich das meistens so.
Danke übrigens für die mittlerweile überwiegend positive Kritik!
mfg, mr.winkle
