Schau mal bitte, ob Dein DBGrid sowas unterstützt:
DBGrid.SelectedRows.CurrentRowSelected := True;
Das könnte dann in etwa so aussehen:
Delphi-Quellcode:
if Frame_Kunden1.Grid_Konzern.DataSource.DataSet.Locate('
konzern_id',
MySQL.Query_Standort.FieldByName('
konzern_id').AsInteger, [])
then begin
Frame_Kunden1.Grid_Konzern.DataSource.DataSet.SelectedRows.CurrentRowSelected := True;
Frame_Kunden1.Grid_KonzernClickCell(Frame_Kunden1.Grid_Konzern,
MySQL.Query_Konzern.FetchRows, 2);
end;