16. august 2001 - 00:14Der er
14 kommentarer og 2 løsninger
Sum i Statusbar
endelig har jeg fundet en måde at omgå query i minitable.
jeg vil gerne have vist resultatet i statusbar
hvordan?
procedure TForm1.SumClick(Sender: TObject); var Total: Real; begin MiniTable1.DisableControls; Total := 0; try MiniTable1.First; while not MiniTable1.EOF do begin Total := Total + Ssum.Field.Value; MiniTable1.Next; end; finally MiniTable1.EnableControls; end; MessageDlg (\'Sum er \' + Format (\'%g\', [Total]), mtInformation, [mbOk], 0); end;
hvis du vil have flere paneler kan du dobbeltclikke på Panels propertyen i object inspectoren, og tilføje det antal paneler du ønsker. Så kan du skrive:
Først skal du dobbeltklikke på din statusbar så kommer der et vindu op som du højreklikker på og så indsætter felter i din status bar, herefter kan du referere til dem
i har ikke forstået spørgsmålet: med ovenstående kode, beregner poster i record dbedit kaldet \"Ssum\"... resultatet af den beregning vil jeg have vist i statusbar, istedet for i en messagedlg.
jeg er ikke interesseret i at indsætte text streng i statusbar.
Stone>>Du skriver at du vil have vist beregningen i statusbaren, men ikke indsætte text i den. Hvordan vil du så vise den??? Men måden man bruger en statusbar, er ved at indsætte paneler, og så ændre panelernes text-property, som allerede er forklaret to gange
Nico22: det var også forkert formuleret..hastværk er lastværk.
koden som er vist i starten af mit spørgsmål gør at den beregner alle indtastninger i det field som hedder Ssum (dbedit),den samlede sum vises i en messagedlg. problemet er hvordan samlede sum bliver vist i statusbar. hvis jeg bruger \"morten.s\" eksempel får jeg en fejlmelding om:there is no overloaded version of \"IntToStr\" that can be called with thise arguments desuden morten.s eksempel hvis det virkede, kun fortælle om den aktuelle værdi i Ssum.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.