Изменение свойств кнопки через WinAPI

[Никки]

Я создал форму на WinAPI и кнопу на ней! Но как теперь мне изменить свойства этой кнопки? Мне надо сделать её недоступной и изменить текст!!

[evg_m]

sendmessage + BN_ENABLE

[B_N]

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

sendmessage + BN_ENABLE

Поправлю. Слова BN_ENABLE не существует вообще. Есть BN_DISABLE, но это уведомление, которое получает родительское окно кнопки, когда она становится выключеной. Кнопка же выключается обычным для всех окон образом:

EnableWindow(Button123.Handle, FALSE);

Текст устанавливается SetWindowText или WM_SETTEXT, свойства кнопки можно менять сообщениями BM_SETSTYLE или через SetWindowLong, а текущее состояние, в зависимости от стиля, - BM_SETCHECK, BM_SETSTATE.

[kiloz]

А можно примерчик, как изменить стиль конопки?
Мне вообще нужно изменить стиль edit-а, но они вроди оба окна)))
И если можно, не подскажите как сделать окно без заголовка вообще?

[Д'якон]

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

И если можно, не подскажите как сделать окно без заголовка вообще?

WS_DLGFRAME наверное

[kiloz]

Если окно создать так:

function AboutMainWndProc(hWindow: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT; stdcall;
var
  ps: TPaintStruct;
begin
  Result := 0;
  case Msg of
    WM_PAINT: begin
                BeginPaint(hWindow, ps);
                SetBkMode(ps.hdc, TRANSPARENT);
                TextOut(ps.hdc, 10, 10, 'Hello, World!', 13);
                EndPaint(hWindow, ps);
              end;
    WM_DESTROY: PostQuitMessage(0);
    else begin
           Result := DefWindowProc(hWindow, Msg, wParam, lParam);
           Exit;
         end;
  end;
end;

procedure About;
var wc: TWndClass; hWindow: HWND; Msg: TMsg;
begin
  wc.lpszClassName := 'YourAppClass';
  wc.lpfnWndProc   := @AboutMainWndProc;
  wc.Style         := CS_VREDRAW or CS_HREDRAW;
  wc.hInstance     := hInstance;
  wc.hIcon         := LoadIcon(HInstance, 'MAINICON');
  wc.hCursor       := LoadCursor(0, IDC_ARROW);
  wc.hbrBackground := COLOR_BTNSHADOW;
  wc.lpszMenuName  := nil;
  wc.cbClsExtra    := 0;
  wc.cbWndExtra    := 0;

  RegisterClass(wc);

  hWindow := CreateWindowEx({WS_EX_CONTROLPARENT or WS_EX_WINDOWEDGE} WS_DLGFRAME,
     'YourAppClass',
     MyProgs,
     WS_VISIBLE or WS_CLIPSIBLINGS or
     WS_CLIPCHILDREN or WS_OVERLAPPEDWINDOW,
     CW_USEDEFAULT, 0,
     400, 300,
     mainwnd,
     0,
     hInstance,
     nil);

  ShowWindow(hWindow, CmdShow);
  UpDateWindow(hWindow);

  while GetMessage(Msg, 0, 0, 0) do begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

А конкретно я имею введу это строку

hWindow := CreateWindowEx(WS_DLGFRAME,
     'YourAppClass',
     MyProgs,
     WS_VISIBLE or WS_CLIPSIBLINGS or
     WS_CLIPCHILDREN or WS_OVERLAPPEDWINDOW,
     CW_USEDEFAULT, 0,
     400, 300,
     mainwnd,
     0,
     hInstance,
     nil);

топоручаем обычное окно с перевернутым полем заголовка: 1.png

А если создавать так:

hWindow := CreateWindowEx(WS_EX_CONTROLPARENT or WS_EX_WINDOWEDGE,
     'YourAppClass',
     MyProgs,
     WS_DLGFRAME,
     CW_USEDEFAULT, 0,
     400, 300,
     mainwnd,
     0,
     hInstance,
     nil);

то получаем простое окно без кнопок, но со значком и caption...

Так как же создать окно без заголовка, что в VCL делается простым:

Form1.BorderStyle := bsNone;

И как изменить столь уже после создания, например сделать не объемным (Ctl3D False), но уже когда объект существует?

[Somebody]

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

И как изменить столь уже после создания, например сделать не объемным (Ctl3D False), но уже когда объект существует?

См. SetWindowLong

[kiloz]

Смотрел, только не разобрался с праметрами ((
Можите какой-ниудь пример привести, хоть одной строчкой

[Д'якон]

result:=SetWindowLong(hWnd,GWL_STYL E,WS_BORDER or WS_DLGFRAME or ...)

[kiloz]

спасибо, помогли