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 :
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;
Le problème, c'est pour effacer le texte que je viens d'écrire sur le bureau Windows.

Quelqu'un aurait une solution à me proposer,

Merci d'Avance

Gued.