如何在一个panel上写字？菜鸟遇到的奇怪问题

Question

panel1.caption:='..........................'
panel1.font.sysle:=...
panel1.font.color:=...
panel1.font.size:=...

Answer 1

var
  dc: HDC;
  old: THandle;
begin
  dc := getdc(panel1.handle);
  old := selectobject(dc, panel1.font.handle);
  settextcolor(dc, panel1.font.color);
  setbkmode(dc, transparent);
  textout(dc, 10, 10, 'WELCOME', 7);
  selectobject(dc, old);
  releasedc(panel1.handle, dc);
end;

Answer 2

你也可以定义一个TControlCanvas来进行文字输出——

Answer 3

还不如放几个Label在上面来得简单呢，Fast and Easy!

Answer 4

还不如放几个Label在上面来得简单呢，Fast and Easy!

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  PanelCanvas: TCanvas;begin
  PanelCanvas := TControlCanvas.Create;
  TControlCanvas(PanelCanvas).Control := Panel1;
  PanelCanvas.Brush.Style := bsClear;
  PanelCanvas.Pen.Color := clBlue;
  PanelCanvas.Rectangle(2, 2, Panel1.Width - 2, Panel1.Height - 2);
  PanelCanvas.Font.Name:='楷体_GB2312';
  PanelCanvas.Font.Size:=24;
  PanelCanvas.TextOut(Panel1.Width div 2,Panel1.Height div 2,'OK');
  PanelCanvas.Free;
end;end.

Answer 6

也可以这样！
procedure TForm1.Button1Click(Sender: TObject);
var
  PanelCanvas: TCanvas;
begin
  PanelCanvas := TCanvas.Create;
  PanelCanvas.Handle := GetDC(Panel1.Handle);
  PanelCanvas.Brush.Style := bsClear;
  PanelCanvas.Pen.Color := clBlue;
  PanelCanvas.Rectangle(2, 2, Panel1.Width - 2, Panel1.Height - 2);
  PanelCanvas.Font.Name:='楷体_GB2312';
  PanelCanvas.Font.Size:=24;
  PanelCanvas.TextOut(Panel1.Width div 2,2,'OK');
  PanelCanvas.Free;
end;

Answer 7

PanelCanvas := TControlCanvas.Create;
  TControlCanvas(PanelCanvas).Control := Panel1;
  PanelCanvas.Brush.Style := bsClear;
  PanelCanvas.Pen.Color := clBlue;
  PanelCanvas.Rectangle(2, 2, Panel1.Width - 2, Panel1.Height - 2);
  PanelCanvas.Font.Name:='楷体_GB2312';
  PanelCanvas.Font.Size:=24;
  PanelCanvas.TextOut(Panel1.Width div 2,Panel1.Height div 2,'OK');
  PanelCanvas.Free;或者
PanelCanvas := TCanvas.Create;
  PanelCanvas.Handle := GetDC(Panel1.Handle);//
  PanelCanvas.Brush.Style := bsClear;
  PanelCanvas.Pen.Color := clBlue;
  PanelCanvas.Rectangle(2, 2, Panel1.Width - 2, Panel1.Height - 2);
  PanelCanvas.Font.Name:='楷体_GB2312';
  PanelCanvas.Font.Size:=24;
  PanelCanvas.TextOut(Panel1.Width div 2,2,'OK');
  PanelCanvas.Free;

Answer 8

可是为什么在panel上不行，而在form上可以写字？
怎样得到的HDC才是有效的？