Splashscreen ist als Hauptfenster eingetragen, sollte ich das vll mal abändern oder gibts eine Möglichkeit den Text auch anders abzuändern ohne dabei das andere Fenster als Hauptfenster einzustellen?
Code von der Projektdatei:
Delphi-Quellcode:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := 'www.Defc0nX.de - SW-Timer - X Edition';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
Code vom Splashscreen:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Ttransparenz: TTimer;
tHauptfenster: TTimer;
procedure TtransparenzTimer(Sender: TObject);
procedure tHauptfensterTimer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.tHauptfensterTimer(Sender: TObject);
begin
Form1.Visible := false;
Form2.visible := true;
tHauptfenster.enabled := false;
end;
procedure TForm1.TtransparenzTimer(Sender: TObject);
begin
if (Form1.AlphaBlendValue < 255)
then begin
Form1.Alphablendvalue := Form1.Alphablendvalue + 15;
end else Ttransparenz.enabled := false;
end;
end.
Und ja wie gesagt es ist mehr ein Spaßsplashscreen.
EDIT: Habe jetzt bei der Projektdatei Application.MainFormOnTaskbar := false; gesetzt und er übernimmts für beide Fensterchen, Ziel quasi erreicht denk ich.
Vielen Dank für die Informationen soweit und naja, hätte ich Dumpfbock doch mal ein wenig eher drauf kommen können die Projektdatei anzugucken.
Sorry für die Arbeit, hehe.. nun bin ich schlauer
Vielen Dank und liebe Grüße
Sarah