KeepFocus mit Btnclick verlassen

[Loki77]

Hallo!

Delphi-Quellcode:

procedure TPgmFrm.KeepFocus(e: TEdit);  // Focus behalten und Inhalt prüfen 
var i, iVal: integer; 
    s: String; 
    sl: TStringList; 
begin 
      s:= e.Name; 
      sl:= TStringList.Create;    // I wird aus Name (z.B. Edit_1) generiert 
      splitString(s, '_', sl); 
      i:= StrToInt(sl[1]); 
      if not (i = 1) and not (i = 5) and not 
         (i = 10) and not (i = 16) and not (i = 17) then begin 
         s:= e.Text; 
         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:

procedure TPgmFrm.KeepFocus(e: TEdit);  // Focus behalten und Inhalt prüfen 
var i, iVal: integer; 
    s: String; 
    sl: TStringList; 
begin 
      s:= e.Name; 
      sl:= TStringList.Create;    // I wird aus Name (z.B. Edit_1) generiert 
      splitString(s, '_', sl); 
      i:= StrToInt(sl[1]); 
      if not (i = 1) and not (i = 5) and not 
         (i = 10) and not (i = 16) and not (i = 17) then begin 
         s:= e.Text; 
         if CheckZero(s) = True then begin  // Wenn Feld leer oder Null ist 
         begin   
            ShowMessage(s); 
            e.SetFocus; 
         end;
       end; 
      end; 
      sl.Free; 

end;

So sollte es klappen... (nicht getestet)

Gruß Philipp