在桌面上写我会,会画我不会
procedure TForm1.Button1Click(Sender: TObject);
var
dc: HDC;
Canvas: TCanvas;
begin
dc := GetDC(0);
try
Canvas := TCanvas.Create;
Canvas.Handle := dc;
Canvas.Font.Color := clBlue;
Canvas.Font.Style := Canvas.Font.Style + [fsUnderLine];
Canvas.Font.Size := 20;
Canvas.TextOut(20, 20, 'hello, taxi');
finally
ReleaseDc(0, dc);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dc: HDC;
Canvas: TCanvas;
begin
dc := GetDC(0);
try
Canvas := TCanvas.Create;
Canvas.Handle := dc;
Canvas.Font.Color := clBlue;
Canvas.Font.Style := Canvas.Font.Style + [fsUnderLine];
Canvas.Font.Size := 20;
Canvas.TextOut(20, 20, 'hello, taxi');
finally
ReleaseDc(0, dc);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dc: HDC;
Canvas: TCanvas;
begin
dc := GetDC(0);
try
Canvas := TCanvas.Create;
Canvas.Handle := dc;
Canvas.Draw(100, 100, Image1.Picture.Graphic);
finally
ReleaseDc(0, dc);
end;
end;