Ich füge mit folgender Procedure eine Reihe in ein StringGrid ein.
begin<BR>
Grid.RowCount := Grid.RowCount+1;<BR>
for Row := Grid.RowCount-1 downto NewRow do<BR>
Grid.Cols[Row].Assign(Grid.Cols[Row-1]);<BR>
Grid.Cols[NewRow-1].Text := '';<BR>
end; // fügt leere Reihe ein<BR>
procedure TForm1.StoppClick(Sender: TObject);<BR>
begin<BR>
GridAddCol(3, StringGrid1);<BR>
end;<BR>
Nun möchte ich das beim einfügen auch der Focus mit in die neue Reihe wechselt.
Hat jemand einen Hinweis wie das geht.
Siggi
begin<BR>
Grid.RowCount := Grid.RowCount+1;<BR>
for Row := Grid.RowCount-1 downto NewRow do<BR>
Grid.Cols[Row].Assign(Grid.Cols[Row-1]);<BR>
Grid.Cols[NewRow-1].Text := '';<BR>
end; // fügt leere Reihe ein<BR>
procedure TForm1.StoppClick(Sender: TObject);<BR>
begin<BR>
GridAddCol(3, StringGrid1);<BR>
end;<BR>
Nun möchte ich das beim einfügen auch der Focus mit in die neue Reihe wechselt.
Hat jemand einen Hinweis wie das geht.
Siggi
Comment