form bleibt nicht transparent

[BornToBeBreit]

hey,

also mein problem sieht folgendermasen aus, ich mache mithilfe von

Code:

  Form2.Brush.Style:=bsClear;
  Form2.BorderStyle:=bsNone;

mein zweites fenster unsichtbar. das klappt optimal, dann lade ich mitthilfe eines Timages eine grafik (in das transparente fenster) und das weiße dess images ist dann auch transparent. soweit sogut. wenn ich nun aber in das image eine andere grafik lade dann bleibt die zuvor geladene grafik noch im hintergrund hängen, und ich habe die beiden grafiken übereinander, ich muss dann das fenster erst schliesen und wieder öffnen um die grafik richtig angezeigt zu bekommen. gibts da ne möglcihkeit das irgendwie anders zu machen?

also im prinzip ist das ziel der anwendung eine grafik ohne irgendwas auf dem desktop darzustellen.

ich hoffe ihr könnt mir folgen ^^


danke schonmal für antworten.

[DeddyH]

Zeig mal etwas Quelltext.

[BornToBeBreit]

ok also

Fenster 1(sozusgaen das kontrollfenster)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form2.Image1.Picture.LoadFromFile('bild1.bmp');
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
form2.Image1.Picture.LoadFromFile('bild2.bmp');
end;

Fenster 2(das transparente fenster in dem die grafik sein soll)

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Brush.Style:=bsClear;
Form2.BorderStyle:=bsNone;
image1.Transparent:=true;
end;

soweit bin cih bis jetz, gibts nich irgendwie eine "Fensteraktualiesierungs" funktion?

[DeddyH]

Zitat:

Zitat von BornToBeBreit

gibts nich irgendwie eine "Fensteraktualiesierungs" funktion?

Refresh, Repaint, Update, Invalidate ;)

[Blackheart]

Oder das erste Bild entfernen.
Image.Picture:=Nil;

[BornToBeBreit]

hmm ne bringt alles ncihts das die vorherige grafik bleibt wie eingefroren :(

[DeddyH]

Das kann ich nachvollziehen, hab aber bisher noch keine Lösung.

[BornToBeBreit]

hmm also ich hab's jetz mal so gemacht

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
form2.Image1.Picture.LoadFromFile('bild2.bmp');
form2.Close;
delay(5);//kurze verzögerung
form2.Show;
end;

damit funktionierts aber es flimmert so hässlich is also alles andere als ne lösung :( aber könnte man daraus irgendwie was machen?

[Deep-Sea]

Ab D6 gibt es TransparentColor und TransparentColorValue.
Einfach TransparentColor auf True setzen und TransparentColorValue auf die transparent darzustellende Farbe, in dem Fall die Farbe des Formulars (ggf. diese auf so etwas wie clFuchsia setzen). Sollte funktionieren ...

Für Delphi Versionen darunter:
http://www.swissdelphicenter.ch/de/showcode.php?id=924

[BornToBeBreit]

ja man sau geil danke dir funktioniert genau so wie ich mir das vorstell echt fett danke :)