Скачать: CL | DM;

Не устанавливается стиль окна   Найти похожие ветки 

← →
IceBeerg ©   (2010-10-01 17:27) [0]

По сабжу:
Установка расширенного стиля работает, далее нет, что я не так делаю?
program OrNotWS_TolWindows;

{$APPTYPE CONSOLE}

uses
 Windows;

var
WND:HWND;
loop:Integer;
begin
loop:=0;
repeat
WND:=FindWindow(PChar("ThunderRT6Main"),PChar("M2WGUI2"));
if WND=0 then sleep(1000);
loop:=loop+1;
until ((loop>=10)or(WND>0));
If WND<>0 Then begin
SetWindowLong(WND,GWL_EXSTYLE,GetWindowLong(WND,GWL_EXSTYLE) or not WS_EX_TOOLWINDOW);
SetWindowLong(WND,GWL_EXSTYLE,GetWindowLong(WND,GWL_EXSTYLE) or WS_EX_APPWINDOW);
loop:=0;
repeat
loop:=loop+1;
SetWindowLong(WND,GWL_STYLE,GetWindowLong(WND,GWL_STYLE) or WS_CAPTION);
SetWindowLong(WND,GWL_STYLE,GetWindowLong(WND,GWL_STYLE) or WS_SYSMENU);
SetWindowLong(WND,GWL_STYLE,GetWindowLong(WND,GWL_STYLE) or WS_MINIMIZEBOX);
If GetWindowLong(WND,GWL_STYLE) or WS_CAPTION = WS_CAPTION Then loop:=10
else sleep(1000);
until loop>=10;
If loop>=10 then ExitProcess(2);
ExitProcess(0);
end else ExitProcess(1);
end.

---

← →
IceBeerg ©   (2010-10-01 17:51) [1]

Да, забыл упомянуть, изменения применяются к программе запускаемой в батнике на строчку выше.

---

← →
Игорь Шевченко ©   (2010-10-01 17:58) [2]

не все стили могут быть установлены

---

← →
IceBeerg ©   (2010-10-01 18:04) [3]

> не все стили могут быть установлены

Как то же Winspector Spy их все же устанавливает... :(

---

← →
Игорь Шевченко ©   (2010-10-01 18:08) [4]

http://msdn.microsoft.com/en-us/library/ms633591(VS.85).aspx

---

← →
IceBeerg ©   (2010-10-04 11:03) [5]

> http://msdn.microsoft.com/en-us/library/ms633591(VS.85).
> aspx

:( After the window has been created, these styles cannot be modified
Но как тогда Winspector их применяет? Как-то пересоздавать окно надо?

---

← →
Игорь Шевченко ©   (2010-10-04 11:26) [6]

> Но как тогда Winspector их применяет? Как-то пересоздавать
> окно надо?


ты не читаешь. некоторые стили кэшируются, для их изменения надо вызвать SetWindowPos

---

← →
IceBeerg ©   (2010-10-04 12:24) [7]

> ты не читаешь. некоторые стили кэшируются, для их изменения
> надо вызвать SetWindowPos

Да, действительно, плохо читал, извиняюсь...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c