Variante des Typs (null) nicht in Typ (OleStr) konvertierbar

[Fallenzer]

Hallo und guten Tag,

letztens habe ich versucht, einen Splashscreen zu programmieren.

Code für Splashscreen:

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:

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...

[hhcm]

Zitat von Fallenzer:

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

Weil?

- Fehlermeldung?
- Was steht in Form1 - 4 ?

[Klaus01]

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

[Fallenzer]

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

[himitsu]

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:

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.

[Fallenzer]

Um genauer zu sein

[Klaus01]

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

[himitsu]

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.