Bonjour,
Je veux sélectionner l'écran sur lequel s'execute mon application pour ça je veux dessiner sur chaque écran son numéro respectif 0,1,2,...
faire une pause
puis effacer.
Pour dessiner, il n'y a pas de problème voici le code que j'utilise :
Le problème, c'est pour effacer le texte que je viens d'écrire sur le bureau Windows.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 procedure DrawIdentifier; var wCanvas : TCanvas; wDC : HDC; begin wCanvas := TCanvas.Create; wDC := GetWindowDC(0); wCanvas.Handle := wDC; wCanvas.Font.Name := 'Tahoma'; wCanvas.Font.Size := 64; wCanvas.Font.Color := clRed; wCanvas.Brush.Style := bsClear; wCanvas.TextRect(wCanvas.ClipRect,0,0,'0'); ReleaseDC(0, wDC); wCanvas.Free; end;
Quelqu'un aurait une solution à me proposer,
Merci d'Avance
Gued.
Partager