Start Logo

N47R0N · Beiträge: 134

Hi ich bins ( mal wieder

)

Ihr kennt doch alle diese start Logos die bei manchen Programmen geöffnet werden bevor das eigendliche Programm Fenster auftaucht .

Sowas wollte ich auch in mein Programm einfügen , ich dachte mir das es ja gans simpel ist sowas zu erstellen , also setzte ich in Form1 einen Timer mit dem Invental 3000 und diesem Code :

markieren

Delphi-Quelltext

1:
2:
3:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Close;

end.
[/code]
Also sollte das dann so Aussehen das nach dem Start des Programms , soll Form1 3 Sekunden lang angezeigt und dann geschlossen werden .

Zu den Timer einstellungen habe ich noch etwas in der OnClose Einstellung der Form1 geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.showmodal;
end;

end.

Mit dem gansen Code sollte bewirkt werden , dass Form1 3 Sekunden lang angezeigt wird und dann geschlossen werden soll , nach dem schliesen wird Form2 Automatisch aufgerufen .

Meiner meinung nach ist der Code richtig , er lässt sich auch Kompillieren doch wenn das Programm gestartet wird kommt eine Fehlermeldung .

markieren

Quelltext

1:
2:
3:
4:
5:
6:

Überschrift : Benachrichtigung über Debugger-Exception
Im Project Project1.exe ist eine Exception der Klasse EAccesViolation Aufgetreten. Meldung:
'Zugrifsverletzung bei Adresse 0044CA48 im Modul 'Project1.exe' Lesen von Adresse 00000000'. Prozess
wurde angehalten. Mit Einzelne Anweisungen oder Start fortsetzen .

                       OK      Hilfe

Was bedeutet diese Meldung??? und wie kann ich dennoch so ein Logo hinbekommen?? Gibt es da andere möglichkeiten??

Danke für jede Antwort

Moderiert von Christian S.: Topic aus Dateizugriff verschoben am Mo 16.05.2005 um 15:36

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Schau mal hier.

Grüße
Christian

//edit: Wieso postest Du eigentlich alles in "Dateizugriff"? Geb' Dir mit der Auswahl der richtigen Sparte bitte mal mehr Mühe! :mahn:

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

N47R0N · Beiträge: 134

Danke

Nur weist du auch wie ich das so hinbekomme das der Splashscrenn eine bestimmte zeit lang angezeigt wird???

F34r0fTh3D4rk · Verfasst: Mo 16.05.05 14:41

oder so wie ich des gemacht habe:

www.delphi-forum.de/...41261&highlight=

ich habe nen timer genommen mit intervall 6000 oder so, und dann noch sonne kleine animation dazu (hier ist das interval 350)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm_Info.FormShow(Sender: TObject);
begin
  Form_TGen.Hide;
  i:= 0;
  counter.Enabled:= true;
end;

procedure TForm_Info.counterTimer(Sender: TObject);
begin
  inc(i);
  if i = 12 then
    begin
      Form_TGen.Show;
      Form_Info.hide;
    end;
  if i = 1 then
    Label6.Caption:= 'Loading.';
  if i = 2 then
    Label6.Caption:= 'Loading..';
  if i = 3 then
    Label6.Caption:= 'Loading...';
  if i = 4 then
    Label6.Caption:= 'Loading';
  if i = 5 then
    Label6.Caption:= 'Loading.';
  if i = 6 then
    Label6.Caption:= 'Loading..';
  if i = 7 then
    Label6.Caption:= 'Loading...';
  if i = 8 then
    Label6.Caption:= 'Loading';
  if i = 9 then
    Label6.Caption:= 'Loading.';
  if i = 10 then
    Label6.Caption:= 'Loading..';
  if i = 11 then
    Label6.Caption:= 'Loading...';
  if i = 12 then
    Label6.Caption:= 'Loading';  
end;

procedure TForm_Info.FormHide(Sender: TObject);
begin
  counter.Enabled:= false;
end;

den rest code kannst du dir oben im link angucken, das hier ist nur das animationsbeispiel, ansonsten brauchst du nur n intervall von 5000 oder 10000

N47R0N · Beiträge: 134

DAnke aber ich will einfach nur das beim start der Form1 gleich Form3 angezeigt wird

mein code hat aber fehler :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormShow(Sender: TObject);
begin
if Form1.Hide then
begin
Form3.Show;
end;
if Form3.Hide then
Form1.Show;
end;

end.

Fehlermeldung:

markieren

Quelltext

1:
2:
3:

[Fehler] Unit1.pas(309): Undefinierter Bezeichner: 'boolean'
[Fehler] Unit1.pas(313): Ausdruckstyp muss BOOLEAN sein
[Fataler Fehler] Project1.dpr(7): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

hi,

einmal cursor auf hide setzen und F1 drücken.

Du musst hier Form1.Visible abfragen.

Gruß
Ken

_________________
Eine Klasse beschreibt die Struktur und das Verhalten einer Menge gleichartiger Objekte.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme