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
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 ??