Einzelnen Beitrag anzeigen

Benutzerbild von Jonas Shinaniganz
Jonas Shinaniganz

Registriert seit: 30. Aug 2011
249 Beiträge
 
Delphi XE5 Ultimate
 
#6

AW: TImage soll Transparent sein und Messages weiterleiten

  Alt 4. Apr 2012, 13:03
Okay Ich versuche nochmal besser zu beschreiben was Ich mache:

Ich habe eine Klasse, TImage mit einer weiteren Prozedur welche aufgerufen wird wann immer eine Message gesendet wurde.

Delphi-Quellcode:
  TOverLayImg = class(TImage)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

{ TOverLayImg }


procedure TOverLayImg.WndProc(var Message: TMessage);
begin
  inherited;
  if (Parent <> nil) and (TAdvCustomGraph(Parent).HandleAllocated) then
    SendMessage(TAdvCustomGraph(Parent).Handle, Message.Msg ,Message.WParam, Message.LParam);
end;
In der Prozedur reiche Ich jetzt die Message weiter, an den Parent des TOverLayImg, welches vollständig über der TAdvCustomGraph Instanz liegt.

Es ist ein Parent vorhanden deswegen bekomme Ich meine alte Fehlermeldung 'Element hat kein übergeordnetes Fenster' nicht mehr. Darum habe Ich mich gekümmert. Jetzt bekomme ich bei SendMessage eine Zugriffsverletzung bei Adresse blabla.
Die Leiter der Entwicklungsabteilung dreht total am Mausrad!
  Mit Zitat antworten Zitat