Hallo,
mein Programm soll sein eigenes Hauptfenster als Grafik ins Clipboard speichern.
Das ganze mache ich so:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Clipbrd;
type
TForm1 =
class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitMap;
begin
try
Bitmap:=GetFormImage;
Clipboard.Assign(Bitmap);
finally
FreeAndNil(BitMap);
end;
end;
end.
Das funktioniert im Prinzip auch, aber der Text, der in der Combobox gerade dargestellt wird, wird in der Grafik nicht dargestellt. Die Combobox in der Grafik ist einfach leer!???
Wie kann ich das reparieren?
Ich benutze Delphi7 Personal
Nachtrag:
Ich glaube ich habs:
ComboBox1.Style:=csDropdownList;
scheint das Problem zu beheben.