Hallo und guten Tag,

letztens habe ich versucht, einen Splashscreen zu programmieren.

Code für Splashscreen:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    Completed: Boolean;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

 procedure TForm5.FormShow(Sender: TObject);
begin
  OnShow := nil;
  Completed := False;
  Timer1.Interval := 3000;
  Timer1.Enabled := True;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
  Self.Close; // Letzte Änderung
end;


end.

Code für Projektdatei:

zusammenfalten · markieren

Delphi-Quellcode:

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Vcl.Themes,
  Vcl.Styles,
  Unit5 in 'Unit5.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'Danilos Market Solution [beta v.4,3]';
  Form5 := TForm5.Create(nil) ;

  {  try                    }
  {    Form5.ShowModal;     }
  {  finally                }  // LETZTE ÄNDERUNG
  {    Form5.Free;          }
  {  end;                   }

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.

Copilieren hat nicht funktioniert, erneutes Öffnen des Projekts ebenfalls... -> Fehlermeldung

Ich würde mich auf schnelle Hilfe freuen...

Zitat von Fallenzer:

Copilieren hat nicht funktioniert, erneutes Öffnen des Projekts ebenfalls... -> Fehlermeldung

Weil?

- Fehlermeldung?
- Was steht in Form1 - 4 ?

Warumm setzt Du onShow := nil in der FormShow Methode?
Die Form wird doch sowieso nicht angezeigt bevor Du sie mit show oder showModal aufrufst.

Grüße
Klaus

Mit deinem Vorschlag ist das Problem trotzdem nicht gelöst...

Zitat von Klaus01:

Die From wird doch sowieso nicht angezeigt bevor Du sie mit show oder showModal aufrufst.

Oder man stellt Visible der Form im Formdesigner auf True.

Zitat:

markieren

Delphi-Quellcode:

  Timer1.Interval := 3000;
  Timer1.Enabled := True;

Das kann man natürlich auch im Formdesigner erledigen und in der DFM speichern lassen.


Tja, aber da der Text der Fehlermeldung geheim ist, kann auch niemand helfen.

Um genauer zu sein

vielleicht hilft das: https://community.idera.com/develope...to-type-olestr


hier ist noch ein ähnlicher Thread zu finden: https://www.delphipraxis.net/193795-...ll-konnte.html

Grüße
Klaus

Quellcode sind DPR, PAS und DFM.
Im Notfall kann man die DPROJ immer löschen und sie wird beim Öffnen der DPR neu erstellt. (oder erstmal nur umbenennen, also z.B. _ ~ oder sonstwas in die Dateiendung einfügen)
Dabei gehen zwar die Projektoptionen verloren, aber die kann man auch wieder neu einstellen, falls man dort schon etwas geändert hatte.

PS: Dialoge lassen sich auch schnell direkt kopieren.
Einfach Strg+C und der Textinhalt des Dialogs lässt sich hier in einem [QUOTE]...[/QUOTE] super einfügen.