Q
在圖標下方繪製
-1
A
回答
0
您需要使用桌面畫布。訣竅在於,首先,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));
+0
中的「自定義桌面」對其進行測試,該屬性也將在桌面圖標上繪製。 – opc0de 2011-12-20 08:15:54
+0
ooops您是對的。一種可能的方法是在繪製之前將圖標隱藏。但那肯定會產生惱人的閃爍效果。讓我想想如果我找到另一種解決方案。 – 2011-12-20 08:23:47
相關問題
- 1. 繪製圖標
- 2. Python:繪製直方圖向下
- 3. 繪製直方圖
- 4. 繪製直方圖
- 5. 繪製直方圖
- 6. 座標軸繪製在覈心圖中的圖下
- 7. 在拖動的同時在光標下繪製圖像
- 8. 關於圖標懸停繪製圖標
- 9. 在狀態欄下方繪製NavigationView標題
- 10. 在圓圈下方繪製文本
- 11. iOS-Charts在圓圈下方繪製值
- 12. 繪製圖像座標
- 13. 座標繪製大廳圖
- 14. 如何控制KML圖標繪製順序,從上到下
- 15. 在Windows下使用DirectX繪製位圖
- 16. 在FullScreen模式下繪製圖像Android
- 17. 如何如下圖所示繪製座標HTML 5的地圖
- 18. 繪製一種直方圖
- 19. 用python繪製直方圖
- 20. 繪製差分方程圖
- 21. 在圖像上繪製鼠標點擊
- 22. NSWindow在桌面圖標上繪製
- 23. 在Google地圖上繪製標記
- 24. 在Mathematica中用對數座標繪製直方圖8
- 25. 繪製藍色小方塊時,在我的圖標
- 26. 在熊貓中繪製直方圖
- 27. 如何在c中繪製直方圖
- 28. 在Python中繪製直方圖
- 29. 在Matlab中並排繪製直方圖
- 30. 在直方圖中繪製NA計數
替換背景圖片? – 2011-12-20 07:59:49
不改變壁紙我正在尋找一個動態的方式女巫會讓我改變它非常快 – opc0de 2011-12-20 08:03:17
這聽起來像昨天你問的同一個問題。你想要畫什麼? – 2011-12-20 08:13:38