Witam, mam pytanie jak dodawać kolejne wiersze do komponentu StringGrid, w założeniu, że mam następujący program składający się z komponentu DBGrid, PopUpMenu i StringGrid, chcę zrobić coś takiego, że gdy kliknę PPM na daną osobę z wyświetlonej tabeli na DBGridzie i wybiorę dodaj to jej dane wpadają do StringGrida i tak dalej, wybierając kolejną osobę wskakuje ona do kolejnego wiersza.
To co mam napisane:
var
Form1: TForm1;
k0,k1,k2:String;
implementation
{$R *.dfm}
procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
k0:=DBGrid2.Fields[0].AsString;
k1:=DBGrid2.Fields[1].AsString;
k2:=DBGrid2.Fields[2].AsString;
end;
procedure TForm1.Dodaj1Click(Sender: TObject);
begin
.........
end;
end.
I co dodać do procedury Dodaj1Click
aby po każdym kliknięciu dana osoba wskakiwała do nowego wiersza StringGrida
P.S. Pomijam inne fragmenty kodu służące mi do wybieranie wartości z bazy itp.