文字窗体代码
procedure TForm1.btn1Click(Sender: TObject);
var
rgn:HRGN;
begin
Self.Color := clBlue;
BeginPath(Canvas.handle);
SetBkMode(Canvas.Handle,TRANSPARENT );
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 60;
Canvas.Font.Style := [fsBold];
Canvas.Font.Color := clBlue;
Canvas.TextOut(10,30,'文字窗体');
EndPath(Canvas.Handle );
rgn:= PathToRegion(Canvas.handle);
SetWindowRgn(Handle,rgn,True);
end;
var
rgn:HRGN;
begin
Self.Color := clBlue;
BeginPath(Canvas.handle);
SetBkMode(Canvas.Handle,TRANSPARENT );
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 60;
Canvas.Font.Style := [fsBold];
Canvas.Font.Color := clBlue;
Canvas.TextOut(10,30,'文字窗体');
EndPath(Canvas.Handle );
rgn:= PathToRegion(Canvas.handle);
SetWindowRgn(Handle,rgn,True);
end;