Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#24

AW: AcroPdf rechtsklick verhindern

  Alt 26. Okt 2011, 18:15
ich komme auch nicht dran, aber der Inhalt dürfte weitestgehend diesem Konstrukt entsprechen:
ich habe es mal mit TWebbrowser getestet, da ich den Acrobat derzeit nicht installiert habe, Du kannst es transparent abdecken, in diesem Fall funktioniert das transparente Panel sogar brauchbar, für den tagtägliche Einsatz ist es jedoch ungeeignet da es beim stapeln mit anderen VCL Komponenten zu Darstellungsfehlern kommt.

Delphi-Quellcode:
  TPanel=Class(ExtCtrls.TPanel)
    Procedure CreateParams( Var params: TCreateParams ); override;
    Procedure WMEraseBkGnd( Var msg: TWMEraseBkGnd );message WM_ERASEBKGND;
  End;


{ TPanel }

procedure TPanel.CreateParams(var params: TCreateParams);
begin
  inherited;
inherited CreateParams( params );
params.ExStyle := params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TPanel.WMEraseBkGnd(var msg: TWMEraseBkGnd);
begin
SetBkMode( msg.DC, TRANSPARENT );
msg.result := 1;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat