如何在标题栏绘制文字？(200分)

J

JGJ7758521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-09

• #1

如题

 

R

RenWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-09

• #2

在按钮的Click事件下：
procedure TForm1.Button1Click(Sender: TObject);
var
dc:hdc;
cvs:tcanvas;
begin
dc:=getwindowdc(handle);
cvs:=tcanvas.Create;
cvs.Handle:=dc;
cvs.TextOut(200,8,'我在标题栏可以写字...哈哈哈....');
releasedc(handle,dc);
end;

 

J

JGJ7758521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-09

• #3

接受答案了.

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-09

• #4

同意,包括写字,画线等操作都可以!