ich habe eine Form....
Diese öffnet sich. Nach dem öffnen wird ein Frame angezeigt. Super.
Mit diesem Frame startet ein Timer der eine ProgressBar füllt. Sobald
die ProgressBar gefüllt ist soll sich der Frame wieder schließen und ein
nächster öffnen.
Ich bin soweit, das sich das Frame nach dem ablauf des Timer schließt,
jedoch dann passiert nichts mehr.
gui.pas
Code: Alles auswählen
unit gui;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
boot, Unit1;
type
{ TForm1 }
TForm1 = class(TForm)
Frame2_1: TFrame2;
procedure FormCreate(Sender: TObject);
private
public
Frame: TFrame;
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
Frame := TFrame1.Create(Self);
Frame.Parent:= Frame2_1;
end;
end.
Code: Alles auswählen
unit boot;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, ComCtrls;
type
{ TFrame1 }
TFrame1 = class(TFrame)
Image1: TImage;
ProgressBar1: TProgressBar;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
MyObj: TObject;
progressInt : Integer;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.lfm}
{ TFrame1 }
destructor TFrame1.Destroy;
begin
MyObj.Free;
inherited Destroy;
end;
procedure TFrame1.Timer1Timer(Sender: TObject);
begin
progressInt:= progressInt + 20;
if progressInt=120 then
begin
Destroy;
end;
ProgressBar1.Position:= progressInt;
end;
constructor TFrame1.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
MyObj := TObject.Create;
end;
end.
Frame anzeigen kann?
Ich hoffe mir kann der ein oder andere helfen.
Vielen dank.