procedure TForm1.Create(Sender:Object);
begin
Form1.Canvas.Brush.Style := bsClear;
Canvas.TextOut(Random(Width), Random(Height), '想要输出的文字');
end;
begin
Form1.Canvas.Brush.Style := bsClear;
Canvas.TextOut(Random(Width), Random(Height), '想要输出的文字');
end;
SetLayeredWindowAttributes
声明如下:
setlayeredwindowattributes(hwnd: hwnd; crkey: dword;balpha: byte; dwflag: dword): boolean; stdcall;