5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Kingron 2001-03-12
- 打赏
- 举报
实在要的话，可以如下：
procedure TForm1.Button1Click(Sender: TObject);
var
dc:hdc;
begin
dc:=GetDC(button1.Handle);
TextOut(dc,0,0,'Test',4);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dc:hdc;
begin
dc:=GetDC(button1.Handle);
TextOut(dc,0,0,'Test',4);
end;
xzisgood 2001-03-12
- 打赏
- 举报
简单的方法是用BitBtn或speedbutton
xzisgood 2001-03-12
- 打赏
- 举报
简单的方法是用BitBtn或speedbutton
Kingron 2001-03-12
- 打赏
- 举报
用BitButton吧。
