fontänderung eines fensters mit nonvcl

[Luckie]

So geht es:

Delphi-Quellcode:

    WM_PAINT:
      begin
        Beginpaint(hWnd, ps);
        MyFont := CreateFont(-12, 0, 0, 0, 0, 0, 0, 0, ANSI_CHARSET,
          OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
          DEFAULT_PITCH, 'MS Sans Serif');
        OldFont := SelectObject(ps.hdc, MyFont);
        SetBkMode(ps.hdc, TRANSPARENT);
        TextOut(ps.hdc, 10, 10, 'Hello World', 11);
        EndPaint(hWnd, ps);
      end;

Aber ich würde dir empfehlen auf ein Bitmap im Speicher zu schreiben und bei Bedarf und im OnPaint auf das Fenster mit BitBlt zu kopieren. Sonst ist es nämlich jedes mal weg, wenn dein Fenster neu gezeichnet werden muss.