Hab jetzt mal folgende Idee umgesetzt:
Delphi-Quellcode:
procedure TForm1.bb_changeClick(Sender: TObject);
begin
change.ShowModal; //change ist Formblatt, wo sich die Edit-Felder befinden
change.edt_name.Text:=strgr.cells[0,akt_zeile]; //Variable für aktive Zeile
change.edt_prename.Text:=strgr.cells[1,akt_zeile];
change.edt_class.Text:=strgr.cells[2,akt_zeile];
change.edt_run.Text:=strgr.cells[3,akt_zeile];
change.edt_kugel.Text:=strgr.cells[4,akt_zeile];
change.edt_jumping.Text:=strgr.cells[5,akt_zeile];
end;
Deklarierung der akt_zeile-Variable:
Delphi-Quellcode:
procedure TForm1.strgrSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
akt_zeile:=ARow; //Variable für aktuelle Zeile
end;
Dabei soll nach Klick auf einen Button der sich in den Zellen der aktiven Zeile befindliche Inhalt in jeweils ein Edit-Feld übertragen werden. Nur wenn ich das Programm starte, wird erst nach einem 2. Klick auf den Button die Werte übernommen. Beim ersten Mal passiert nichts. Felder sind leer. Woran kann das vielleicht liegen?
Vielen Dank für hilfreiche Hinweise
