Combobox Text geht nicht ins grafische Clipboard!???

[Helmi]

Hallo,

ich wollte, aus Einfachheit, auch mal "GetFormImage" nutzen, aber das zeigte mir nicht alles an.
(das Problem war, dass ich Fenster ext. Programme in ein Panel eingebettet hab und mittels "GetFormImage" dies nicht erkannt wurde und somit im Bitmap die Panels leer waren).

Probier mal folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Bitmap  : TBitMap;
   i_Width : Integer;
   i_Height: Integer;

begin
  //Bitmap erzeugen
  Bitmap := TBitmap.Create;

  try
    //Höhe und Breite des Client-Bereiches ermitteln
    i_Width  := ClientWidth;     //oder Width;
    i_Height := ClientHeight;    //oder Height;

    //Rect des Clientbereiches definieren
    BitmapRect := Rect(0, 0, i_Width, i_Height);

    //Bitmap-Größe angeben
    Bitmap.Width  := i_Width;
    Bitmap.Height := i_Height;

    //Bild-Bereich in Bitmap kopieren
    Bitmap.Canvas.CopyRect(BitmapRect, Canvas, BitmapRect);

    Clipboard.Assign(Bitmap);
  finally
    FreeAndNil(BitMap);
  end;
end;