Panels....

[Christian Seehase]

Moin Vale,

so könntest Du einen roten Kreis mit 50 Pixel Durchmesser auf ein Panel bekommen (hier in die linke obere Ecke)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  hDC       : DWORD;
  hBrush    : DWORD;
  hBrushOld : DWORD;

begin
  hDC := GetDC(Panel1.Handle);
  try
    hBrush    := CreateSolidBrush(RGB(255,0,0));
    hBrushOld := SelectObject(hDC,hBrush);
    try
      Ellipse(hDC,0,0,50,50);
    finally
      DeleteObject(hBrush);
      SelectObject(hDC,hBrushOld);
    end;
  finally
    ReleaseDC(Panel1.Handle,hDC);
  end;
end;

Ich halte es allerdings für sinnvoller, wenn Du kein Panel, sondern eine Paintbox, oder einen Shape nimmst.
Um flexibler in der Darstellung zu sein, könntest Du es auch mit TImage machen. Dazu könntest Du dann die Bilder z.B. aus Bitmaps laden.