Einzelnen Beitrag anzeigen

Oldy

Registriert seit: 12. Dez 2008
135 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Transparente Anwendung, welche Möglichkeiten?

  Alt 11. Aug 2009, 22:45
Was macht die Form denn?
Sind da komponenten drauf?

Eine Idee von mir wäre, einfach die Form auf Fullscreen zu stellen und dann ein Loch in die Form zu machen.
Das machst du mit den Jedis oder mit dem bei den Schweizern bereitgestellten Code:
SwissDelphiCenter
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  region1, region2: hrgn;
begin
  region1 := CreateRectRgn(0, 0, Width, Height);
  region2 := CreateEllipticRgn(30, 30, 200, 200);
  CombineRgn(region1, region1, region2, RGN_DIFF);
  SetWindowRgn(Handle, region1, True);
end;
Mit dem Code heir kannst du allerdings nur ein Loch machen. Da bringen die Jedis schon Mehr
Musst hald noch formstyle auf fsStayOnTop setzen.


Möchte nebenbei auch auf einen anderen Beitrag hier hinweiden: http://www.delphipraxis.net/internal...ct.php?t=21986. Dort hat me2u (Beitrag 15) diesen Code gepostet:
SetWindowLong(Handle, GWL_EXSTYLE, getWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT or WS_EX_LAYERED); Hab ich noch nicht getestet, aber wie ich aus dem nächsten Beitrag (16) entnehme, ist das auch nicht zufriedenstellend.

Hoffe ich konnte meine Ideen n bisschen verständlich rüberbringen

Schönen Abend noch

//Edit1
Zitat von DeddyH:
Zitat von Oldy:
... oder mit dem bei den Schweißern bereitgestellten Code
Na, wenn das kein geiler Vertipper ist
ups gleich mal ausgebessert. Aber ich frag mich echt wie ich vom z zum ß komm...
Alexander
  Mit Zitat antworten Zitat