...mit der Enter Taste in die nächste Zelle eines Stringgrids springen?

Autor: Thomas Stutz

Kategorie: VCL

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if 
Key = #13 then
    with 
StringGrid1 do
      if 
Col then {next column}
        
Col := Col + 1
    else if Row then
    begin 
{next Row}
      
Row := Row + 1;
      Col := 1;
    end 
    else
    begin 
{End of Grid- Go to Top again}
      
Row := 1;
      Col := 1;
    end;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base