TImage soll Transparent sein und Messages weiterleiten

[Bummi]

Ich weiß ja nicht was genau Du da tust, aber vielleicht hilft ein
if not (csloading in ComponentState) then ...

[SirThornberry]

Wenn die Komponente den Parent komplett überdecken soll und du sozusagen auf dem Parent zeichen willst anstelle die Features von TImage zu nutzen wäre es viellleicht die einfachste Variante von der Parentkomponente abzuleiten und das Paint zu überschreiben.

[Jonas Shinaniganz]

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.

[Jonas Shinaniganz]

Ich möchte die ja sozusagen Features von TImage nutzen,
Einfache Dinge, wie zb ein paar Striche und Kreise sollen dann auf dem TImage gezeichnet werden und auch wieder verschwinden, ohne dabei das Draw der Hauptkomponente auszulösen welche Hunderttausende von Punkten aus Arrays läd und sehr lange braucht um sich nach invalidate; wieder zu zeichnen.

vielleicht kann man es sich ganz gut wie eine weitere Ebene (wie zb bei photoshop) vorstellen.

[Jonas Shinaniganz]

Wenn Ich beim Msg Parameter eine 0 übergebe bekomme ich keine Fehlermeldung mehr aber auch keine Reaktion.

SendMessage(TAdvCustomGraph(Parent).Handle, 0, Message.WParam, Message.LParam);