Thema: Delphi SplashScreen mit PNG?

Einzelnen Beitrag anzeigen

Benutzerbild von Störtebeker
Störtebeker

Registriert seit: 9. Jul 2007
398 Beiträge
 
#29

Re: SplashScreen mit PNG?

  Alt 25. Jul 2007, 22:05
Also, ich habe mir mal deine Demo runtergeladen. Wenn ich die Datei Project1.dpr in meinem Delphi öffnen möchte, meckert er rum, dass im die Datei Project1.res fehlt. Und sry, aber ich bin zwar trotz einiger Delphierfahrungen, aus dem Schulinformatikkurs und ein paar Versuchen zuhause auch noch kein Delphi-Ass und weiß daher leider nicht, wie ich den Text in meine Form einbinde. Ich habe mal durch zufall einen code gefunden, der die Form transparent macht, aber bis auf Button leider auch Images, Panels, etc., die dann auch transparent werden und somit nicht sichtbar. Einfach kopieren geht ja nicht, da meckert Delphi bei jedem dritten Wort: "undeclared identifier"

Folgender Code macht das Formular transparent. [Bis auf Button]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
   FullRgn, ClientRgn, ButtonRgn: THandle;
   Margin, X, Y: Integer;
begin
   Margin := (Width - ClientWidth) div 2;
   FullRgn := CreateRectRgn(0, 0, Width, Height) ;
   X := Margin;
   Y := Height - ClientHeight - Margin;
   ClientRgn := CreateRectRgn
     (X, Y, X + ClientWidth, Y + ClientHeight) ;
   CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF) ;
   X := X + Button1.Left;
   Y := Y + Button1.Top;
   ButtonRgn := CreateRectRgn
     (X, Y, X + Button1.Width, Y + Button1.Height) ;
   CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR) ;
   SetWindowRgn(Handle, FullRgn, True) ;
end;
"And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race.
If his chest had been a cannon, he would have shot his heart upon it."
  Mit Zitat antworten Zitat