在图标下方绘制

Question

我正在寻找一种方法在使用delphi的windows桌面图标下绘制bmp /文本。

任何想法？

Answer 1

您需要使用桌面画布。诀窍在于，首先，onFormCreate，您在delphi TCanvas中捕获桌面画布句柄。

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FDesktopCanvas := TCanvas.Create; 
    FDesktopCanvas.Handle := GetWindowDC(0); 
end; 

后来销毁onFormDestroy。

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    FDesktopCanvas.Free; 
end; 

在代码中，你只需要使用FDesktopCanvas作为一个普通的画布，每次你需要画的时间...

FDesktopCanvas.pen.Color := clWhite; 
FDesktopCanvas.pen.Width := 5; 
FDesktopCanvas.moveto(Screen.Width, 2); 
FDesktopCanvas.lineto(2, 2); 

...

var aBitmap: TBitmap; 
.... 
aBitmap := TBitmap.Create; 
try 
    aBitmap.LoadFromFile('logo100px.bmp'); 
    FDesktopCanvas.draw(Screen.Width-200, 100, aBitmap); 
finally 
    aBitmap.Free; 
end; 

...

FDesktopCanvas.Font.Name := 'Segoe'; 
FDesktopCanvas.Font.Size := 36; 
FDesktopCanvas.Font.Color := clWhite; 
FDesktopCanvas.Brush.Style := bsclear; 
FDesktopCanvas.textout(Screen.Width-200, Screen.Height-100,FormatDateTime('hh:nn:ss',now));