Re: Otvaranje formi,na koji nacin
Dakle imam dve forme,ni jedna od njih nije main form,dakle iz main form ulazum u prvu modalformu,FrmPriznanje,i to mi se otvori....zatim iz prve forme ulazim u drugu modalformu...pomocu sledeceg koda....
procedure TFrmPriznanje.DBGrid1DblClick(Sender: TObject);
var
form4 : TFrmPotvrda;
begin
form4 := TFrmPotvrda.Create(nil);
try
form4.Edit1.Text := combobox1.Text ;
form4.DateTimePicker1.Date := dbgrid1.Fields[1].asdatetime;
form4.Edit2.Text := dbgrid1.Fields [3].asstring;
form4.memo1.Text := dbmemo1.Field.AsString ;
form4.Showmodal;
finally
form4.Free;
end;
end;
end.
u ovoj prvoj formi mi se nalazi dataset,sa query...i dupli klik na dbgrid,i pojavi mi se druga forma,FrmPotvrda...i u njoj imam,edit1,memo1 i jos ponesto....i dva dugmeta,i u dugmeti OK,imam kod koji treba da zatvori drugu modalformu,i ostane samo prva,sa izmenama iz druge...i u tom dugmetu imam sledeci kod....
procedure TFrmPotvrda.BitBtn1Click(Sender: TObject);
var
form3 : TFrmPriznanje;
begin
form3 := TFrmPriznanje.Create(nil);
try
form3.Query2.Active := true;
while NOT form3.Query2.Eof do begin
//Now fill the result in ComboBox1.
form3.ComboBox1.Items.Add(form3.query2['redbr']);
form3.Query2.Next;
form3.dbgrid1.edit;
...
...
...
form3.post;
end;
form3.Showmodal;
finally
form3.ShowModal ;
end;
end;
Molio bih Vas za pomoc ,jako mi je potrebna....
 |  |
 |
