Gauge i delphi

Det kan du kun gøre hvis du definerer nogle milepæle i dit program:
eks. Når programmet er nået her til er der indlæst 10 %, og så overføre værdien til din gauge på splash"formen"

Hvordan?

prøv dette...

Gauge1.ShowText := true;

ups... læste ikke lige hele dit indslag (sorry)

ShowText er så den viser hvor mange procent den har indlæst

Hej mr.meincke

Grunden til at vide en splashscreen er typisk hvis man har en opstart der tager lidt tid.
Hvis dette er tilfældet, så ved du også hvorfor, og hvor i koden den tager tid.

Inddel din initialisering/opstart i 10 eller flere dele, og øg din gauge med 10 for hver del der er gennemført.

I din main form, skal du i din Uses clause tilføje Unit for din spalshform (lad os kalde den splashform)

Din gauge har du i forvejen indstillet til en maks på 100.

Når du så har gennemført 1. del af indlæsningen af programmet sætter du din gauge med :

splashform.Gauge1.progress:=10
splashform.refresh.

Det burde virke !
Benson

Hmmm !

Grunden til at vide en splashscreen er .....
Grunden til at <b>bruge</b> en splashscreen er

kan man ikke bare hente oplysninger fra applikation om hvor langt den er nået med at indlæse?

Hmm. Jeg kan ikke lige se hvordan det skal ske ???

Gauge'n er jo en del af applikationen !
Med andre ord;

Jeg ved ikke om det kan lade sig gøre ?

MVH benson

oki

ingen svar? Jamen så lukker jeg da :D

Prøv dette eksempel:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tmp : Tform;
  progressbar : Tprogressbar;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Herunder kan du eventuel indsætte andre koder og opdele indlæsning mere konkret...

  progressbar.position := 100;
  progressbar.free;
  tmp.free;
end;

initialization
  tmp := Tform.create(nil);
  with tmp do
  begin
    bordericons := [];
    caption := 'Loading Form...';
    clientwidth := 150;
    clientheight := 16;
    left := (screen.width div 2)-(width div 2);
    top := (screen.height div 2)-(height div 2);
    formstyle := fsstayontop;
    visible := true;
  end;
  progressbar := Tprogressbar.create(nil);
  progressbar.parent := tmp;

end.