Mahlzeit liebe Delphinarier(innen)

Bin nu auf 2010 Architect umgestiegen und immer noch etwas am spielen..

Frage:
Wie kriege ich es hin, in eine CategoryPanelGroup ein Image einzufügen??
Dieses Image soll quasi hinter den CategoryPanels liegen...
also wenn das CategoryPanel "gecollapsed" ist sieht man das Image, wenn es geöffnet ist dann eben nicht

Habe momentan keinerlei Schimmer, wie ich das anstellen könnte..

Danke für eure Hilfe

Unsauber hingeschmuddelt (gehört in eine Komponente), aber das denkbare Prinzip ist IMHO erkennbar...

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TCategoryPanelGroup=Class(ExtCtrls.TCategoryPanelGroup)
     procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  End;
  TForm2 = class(TForm)
    CategoryPanelGroup1: TCategoryPanelGroup;
    CategoryPanel1: TCategoryPanel;
    CategoryPanel2: TCategoryPanel;
    Image1: TImage;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
procedure TCategoryPanelGroup.WMPaint(var Message: TWMPaint);
var
  aRect: TRect;
  aCanvas: TCanvas;
begin
    aCanvas := TCanvas.Create;
    try
      aCanvas.Handle := GetDC(handle);
      aCanvas.Brush.Color := clLime;
      aCanvas.Draw(0,0,Form2.Image1.picture.Bitmap);
      ReleaseDC(handle,aCanvas.Handle)
    finally
      aCanvas.Free;
    end;
end;


end.