[Anton93]

Подскажите пожалуйста, как изменить цвет Static компонента, а точнее Edit в WINAPI. Нужно сделать фон у Edit черный, а буквы белыми (примерно как в CMD)Знаю что делается через сообщение WM_CTLCOLORSTATIC, но все примеры на C++, и в этом проблема, в нем я не силен. Нужно на Delphi.

[NumLock]

нужно обрабатывать WM_CTLCOLOREDIT:

Код:

1 2 3 4 5 6 7 8 9

function WindowProc(hwnd: HWND; Msg: Integer;   wParam: WPARAM; lParam: LPARAM): Longint; stdcall; begin   case Msg of     WM_CTLCOLOREDIT: begin       SetBkColor(wParam, $00);       SetTextColor(wParam, $ffffff);       Result:=GetStockObject(BLACK_BRUSH);     end;

[Anton93]

Сообщение от NumLock

нужно обрабатывать WM_CTLCOLOREDIT:

Код:

что не то, вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

program Project1;   uses    Windows, Messages;   {$SETPEFLAGS IMAGE_FILE_RELOCS_STRIPPED}   const   Memo_1 = 100;   var   MSG: TMSG;   WC: TWndClass;   hWindow, Memo: HWND;   function WndProc(hWnd: HWND; Msg: UINT; WParam: Integer; lParam: Integer): Integer; stdcall; begin   Result:=0;   case msg of     WM_CTLCOLOREDIT:       begin         SetBkColor(wParam, $00);         SetTextColor(wParam, $ffffff);         Result:=GetStockObject(BLACK_BRUSH);       end;     WM_DESTROY:       begin         PostQuitMessage(0);         Exit;       end;   Result := DefWindowProc(hWnd, Msg, WParam, LParam); end;   procedure CreateWindow; begin   FillChar(WC, SizeOf(TWndClassEx), 0);   WC.lpszClassName := 'Window';   WC.lpfnWndProc := @WndProc;   WC.hbrBackground := 1;   WC.hCursor := LoadCursor(0, IDC_ARROW);   RegisterClass(WC);   hWindow := CreateWindowEx(0,                             WC.lpszClassName,//Имя класса окна                             nil{Имя окна},                             WS_VISIBLE or WS_DLGFRAME,//Стиль                             200,300,400,200,                             0,                             0,                             hInstance,//Описатель приложения, с которым окно связывается                             nil);   Memo := CreateWindowEx(WS_EX_CLIENTEDGE,                          'Edit',                          nil,                          WS_CHILD or WS_VISIBLE or WS_VSCROLL or ES_AUTOHSCROLL or ES_MULTILINE or ES_WANTRETURN,                          10, 10, 300, 100,                          hWindow,                          Memo_1,                          hInstance,                          nil);   sendmessage(Memo, EM_REPLACESEL, 0, longword(pchar('Сообщение: '+#13#10)));   ShowWindow(hWindow, SW_SHOW);//Показать окно   UpDateWindow(hWindow);//Обновления окна end; //============================Конец "Создание формы"============================   begin   CreateWindow;   while GetMessage(MSG, 0, 0, 0) do     begin       TranslateMessage(MSG);       DispatchMessage(MSG);     end; end.

[angvelem]

Всё то, только для вашего варианта пропущена команда.

Код:

1 2 3 4 5 6 7

WM_CTLCOLOREDIT:       begin         SetBkColor(wParam, $00);         SetTextColor(wParam, $ffffff);         Result:=GetStockObject(BLACK_BRUSH);         Exit;       end;

[Anton93]

Большое спасибо все работает)