Omega in Form-Caption

[Daniel B]

Hi,

statt dem AppName musst Du da ein String machen wo Dein Omega drin ist und das dann austauschen:

Delphi-Quellcode:

    WM_NCPAINT:
      begin
        DefWindowProc(hWnd, uMsg, wParam, lParam);
        dc := GetWindowDC(hWnd);
        rect.Left := GetSystemmetrics(SM_CXEDGE);
        rect.Top := GetSystemmetrics(SM_CYEDGE) + 2;
        rect.Right := WindowWidth - GetSystemmetrics(SM_CXEDGE);
        rect.Bottom := GetSystemmetrics(SM_CYCAPTION) + GetSystemmetrics(SM_CYEDGE);
        SetBkMode(dc, TRANSPARENT);
        SetTextColor(dc, RGB(255, 255, 255));
        DrawText(dc, @AppName[1], lstrlen(@AppName[1]), rect, DT_CENTER or DT_VCENTER);
        ReleaseDc(hWnd, dc);
      end;