Licht wie Blitz auf Form erzeugen

[taktaky]

Hallo,

ich möchte ein Licht Effekt auf Form erzeugen
Es soll das Form kurz und ganz schnell mit Licht (helles Farbe) beleuchtet,
als wäre das Form mit Kamera-Blitz photographiert

Hat jemand eine Idee?

mein Versuch mit Farben hat nicht gelohnt :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//form1.Color:=225;
Form1.Color:=$FFFFFF;
sleep(300);
Form1.Color:=$FFFF00;
sleep(300);
Form1.Color:=$FFFFFF;
end;

[edit=Phoenix]PBlitz auf Userwunsch korrigiert. Mfg, Phoenix[/edit]

[hibbert]

stichwort application.ProcessMessages

[calculon]

Wie wär's mit einer Epilepsie-Warnung auf der Verpackung?

[inherited]

Bitte bring das Bild, wenn überhaupt, im Anhang unter. Ich denke hier können sich alle unter einem Blitz etwas vorstellen. Sonst passiert es nämlich wie jetzt gerade, dass der Server mit dem Bild drauf nicht erreichbar ist und das ganze unschön aussieht.

[taktaky]

Zitat von hibbert:

stichwort application.ProcessMessages

habe ich ausprobiert, leider keine gute Lösung bekommen

Ich bin nun fast zufrieden mit diesem Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
//form1.Color:=225;
Form1.Color:=$FFFFFF;
Delay(200);
Form1.Color:=clBtnFace;
Delay(200);
Form1.Color:=$FFFFFF;

end;

[fLaSh11]

schreib doch clWhite anstatt irgendwelchen HexCodes

also ich würde das so machen: (meist blitzt eine Kamera ja mehrmals)

Delphi-Quellcode:

var
  color: TColor;

begin
color := Form1.Color;

Form1.Color:=clWhite;
Application.ProcessMessages;
sleep(100);

Form1.Color := color;
Application.ProcessMessages;
sleep(50);

Form1.Color:=clWhite;
Application.ProcessMessages;
sleep(100);

Form1.Color := color;
end;

(Delay wäre auch möglich...)

[taktaky]

Zitat von calculon:

Wie wär's mit einer Epilepsie-Warnung auf der Verpackung?

ok, aber wie und wo?
Ich habe sie nie verwendet

[fLaSh11]

hier lesen

[dominikkv]

Zitat von taktaky:

Zitat von calculon:

Wie wär's mit einer Epilepsie-Warnung auf der Verpackung?

ok, aber wie und wo?
Ich habe sie nie verwendet

Da nimmst du am besten einen Waterproof Eding und schreibst das auf die Unterseite der CD...
Die professionelle Lösung wäre natürlich die Warnung zusätzlich einzustanzen, das hat die beste Wirkung.

[taktaky]

Zitat von fLaSh11:

hier lesen

So stark mache ich nicht, sondern nur ein bisschen helles weißes Licht und nur einmal und nicht ständig wie beim Spielprogramme
----------------

Danke@fLaSh11
Das hat den Effekt genauso wie mit delay