KeepFocus mit Btnclick verlassen

[Mackhack]

[quote="Loki77"]Hallo!

Delphi-Quellcode:

         if CheckZero(s) = True then begin  // Wenn Feld leer oder Null ist 
            ShowMessage(s); // Wenn hier kein begin ... end steht
            e.SetFocus;     // wird ja automatisch die 2.Zeile immer ausgeführt!
         end; 
      end; 
      sl.Free; 

end;

Also:

Delphi-Quellcode:

         if CheckZero(s) = True then begin  // Wenn Feld leer oder Null ist 
         begin   
            ShowMessage(s); 
            e.SetFocus; 
         end;
       end; 
      end; 
      sl.Free; 

end;

Jetzt haben wir aber doppelt gemoppelt hier mit 2 begins.... Das kommt daher wenn man das Begin nicht sauber unter das If schreibt!!!