- var HWND:integer;
-
- //il faut récupérer le HDC de la fenêtre
- HWND := GetWindowDC(form1.Handle);
-
- //après on dessine avec les api (setpixel, ellipse, rectangle,...)
- Ellipse(HWND,50,0,150,30); //exemple
-
- // pour rafraichire
- RedrawWindow(form1.Handle, nil, 0, RDW_INVALIDATE or RDW_FRAME);
-
var HWND:integer;
//il faut récupérer le HDC de la fenêtre
HWND := GetWindowDC(form1.Handle);
//après on dessine avec les api (setpixel, ellipse, rectangle,...)
Ellipse(HWND,50,0,150,30); //exemple
// pour rafraichire
RedrawWindow(form1.Handle, nil, 0, RDW_INVALIDATE or RDW_FRAME);