Einzelnen Beitrag anzeigen

iphi

Registriert seit: 13. Feb 2009
262 Beiträge
 
Delphi 7 Personal
 
#1

Combobox Text geht nicht ins grafische Clipboard!???

  Alt 17. Jun 2012, 10:47
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.

Geändert von iphi (17. Jun 2012 um 11:13 Uhr)
  Mit Zitat antworten Zitat