Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.22 » View Incident Report |
Serious |
Reported By: Tony Pomfrett Reported On: 12/2/2005 For: Version 4.22 Build 2 |
Form 1 ================== var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Grid1DblClick(Sender: TObject); begin if not Assigned(Form2) then Form2 := TForm2.Create(Application); with Form2 do begin Form2.q1.Open; Form2.q1.BeginCachedUpdates; // Form1.q1.Refresh; // Updates fail without this line Form2.q1.Edit; Show; end; end; Form 2 ================== var Form2: TForm2; implementation uses Unit1; {$R *.DFM} procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; Form2 := nil; end; procedure TForm2.RzButton1Click(Sender: TObject); begin q1.Post; q1.ApplyCachedUpdates; Form2.Close; Form1.q1.Refresh; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |