Изменить цвет Edit

[Anton931]

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

[artemavd]

Edit1.Color - цвет фона
Edit1.Font.Color - цвет шрифта

[Stilet]

а точнее Edit в WINAPI.

А почему именно в WinAPI? Ты же с компонентами работаешь, зачем тебе WinAPI?

[Anton931]

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

А почему именно в WinAPI? Ты же с компонентами работаешь, зачем тебе WinAPI?

я создаю динамический компонент

  Memo := CreateWindowEx(WS_EX_CLIENTEDGE,
                         'Edit',
                         nil,
                         WS_CHILD or WS_VISIBLE or WS_VSCROLL or ES_AUTOHSCROLL or ES_MULTILINE or ES_WANTRETURN or ES_NUMBER,
                         165, 131, 100, 50,
                         hWindow,
                         Memo_1,
                         hInstance,
                         nil);

[Stilet]

CreateWindowEx

О_о... Извини за излишнее любопытство но почему именно так?

[HTTqp]

да интересно почему?)

[Anton931]

О_о... Извини за излишнее любопытство но почему именно так?

и

да интересно почему?)

Какая разница, есть конкретный вопрос, и хотелось бы получить ответ от знающих людей, а зачем и как это реализовал не имеет смысла. Прошу не постить не по теме, благодарю за понимание...

[Stilet]

Понятно. Что ж. Насколько я понимаю тебе нужно в процедуре обработки окна прописать что-то типа

function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //обработчик сообщений
begin
  Result := DefWindowProc(hwnd, msg, wparam, lparam);
  case Msg of

WM_CTLCOLORSTATIC:
if (lParam = Edit1)  then
  begin
        SetTextColor(HDC(wParam), RGB(255,255,255));
        SetBkColor(HDC(wParam), RGB(0,0,0));
  end
;

...
  end;
end;

[Anton931]

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

Понятно. Что ж. Насколько я понимаю тебе нужно в процедуре обработки окна прописать что-то типа

function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //обработчик сообщений
begin
  Result := DefWindowProc(hwnd, msg, wparam, lparam);
  case Msg of

WM_CTLCOLORSTATIC:
if (lParam = Edit1)  then
  begin
        SetTextColor(HDC(wParam), RGB(255,255,255));
        SetBkColor(HDC(wParam), RGB(0,0,0));
  end
;

...
  end;
end;

увы что то похоже не так,
я пробывал вот этот способ

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

ну и он что то не работает, может не правильно применяю. Вот код целиком:

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_CTLCOLORSTATIC:
    if (lParam = Memo)  then
      begin
            SetTextColor(HDC(wParam), RGB(255,255,255));
            SetBkColor(HDC(wParam), RGB(0,0,0));
      end;
    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Exit;
      end;
  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.

[Stilet]

У меня нет возможности проверить.