przekazywanie zmiennych między formami

0

Witam.
Mam taki problem, mam dwie formy tform1 jest forma glowna i tform2 która to jest wyswietlana po nacisniecu butona na tform1, chodzi o to ze na tform1 mam stringgrid1 i po nacisniecu butona chce to przepisac na forme ktora sie wyswietla i na niej tez jest stringgrid1, jak mam to zrobic prosze o pomoc.

0

Dodaj do sekcji uses nazwę unitu gdzie znajduje się pierwsza forma. Później tylko Form1.CoTamChcesz

0

// oj, ktoś skasował moje wypociny
// dodaje informacje, które tam się znajdowały, a nóż komuś się przydadzą

W module unit1 po sekcji implementation piszesz:

implementation
uses Unit2;

teraz umieszczasz poniższy kod do zdarzenia OnClick przycisku:

procedure TForm1.Button1Click(Sender: TObject);
var 
  i, j :integer;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
  begin
    for j := 0 to StringGrid1.RowCount - 1 do
    begin
      Form2.StringGrid1.Cells[i, j] := StringGrid1.Cells[i, j];
    end;
  end;
  form2.Show;
end;

skożystalismy tu z włąściwości tablicowej Cells[] komponentu TStringGrid

property Cells[ACol, ARow : Integer]: string;

// sprzataj po sobie. ikonka z ołówkiem służy do edycji, potem do wyboru masz m.in. poprawienie albo kasowanie. [mf]

0

witam.
no jednak nie wszystko działa tak jak powinno :/ do drugiej formy na której jest stringgrid1 przepisuje mi tylko pierwszy wiersz ze stringgrida1 formy pierwszej, co jest nie tak ??

1 użytkowników online, w tym zalogowanych: 0, gości: 1