A
amer
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.OutText1;
var
DC:HDC;
HDC是什么类型啊?设成THandle也行啊??
i:longint;
s:string;
begin
DC:=GetDc(Form1.Handle);
这个函数是什么意思啊,和findwindows不一样吗?
for i:=1 to 1000000 do
begin
s:=InttoStr(i);
SetBkColor(DC,clLtGray);
Textout(DC,10,10,Pchar(s),Length(s));
end;
ReleaseDC(Form1.Handle,DC);
end;
谢谢!!
var
DC:HDC;
HDC是什么类型啊?设成THandle也行啊??
i:longint;
s:string;
begin
DC:=GetDc(Form1.Handle);
这个函数是什么意思啊,和findwindows不一样吗?
for i:=1 to 1000000 do
begin
s:=InttoStr(i);
SetBkColor(DC,clLtGray);
Textout(DC,10,10,Pchar(s),Length(s));
end;
ReleaseDC(Form1.Handle,DC);
end;
谢谢!!