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

Убрать края у окна   Найти похожие ветки 

← →
Delphi_is_cool ©   (2006-01-15 00:07) [0]

Здравствуйте ! Подскажите плз каким образом можно убрать края у окна, т.е какими ф-циями WinApi ? (для этого в VCL у формы надо установить св-во BorderStyle := bsNone)

Заранее благодарю.

---

← →
VirEx ©   (2006-01-15 00:20) [1]

сто раз это уже писали,
SetWindowLong(Handle,GWL_STYLE,WS_POPUP);

если хочешь добавить какойнить еще стиль то делай так:
SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) or WS_CHILD);

---

← →
Игорь Шевченко ©   (2006-01-16 11:45) [2]

> SetWindowLong(Handle,GWL_STYLE,WS_POPUP);


Не работает

---

← →
VirEx ©   (2006-01-16 18:29) [3]

>  [2] Игорь Шевченко ©   (16.01.06 11:45)
>
> > SetWindowLong(Handle,GWL_STYLE,WS_POPUP);
>
>
> Не работает

function GetErrorString:PChar;
var
 lpMsgBuf:PChar;
begin

FormatMessage(
   FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
   nil,
   GetLastError(),
   0,//MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
   @lpMsgBuf,
   0,
   nil
);

result:=lpMsgBuf;

// Free the buffer.
//LocalFree( Cardinal(lpMsgBuf) );
end;

SetWindowLong(Handle,GWL_STYLE,WS_POPUP);
messagebox(0,GetErrorString,"info",0);

---

← →
VirEx ©   (2006-01-16 18:31) [4]

ах да, еще: WS_POPUP Creates a pop-up window. This style cannot be used with the WS_CHILD style.

---

← →
Игорь Шевченко ©   (2006-01-16 18:33) [5]

VirEx ©   (16.01.06 18:29) [3]

Матчасть надо учить

"If the function succeeds, the return value is the previous value of the specified 32-bit integer."

Вот она и возвращает предыдщее значение стиля. А то, что этот стиль неприменим в таком виде, это не проблемы функции, а проблемы советчика.

---

← →
VirEx ©   (2006-01-16 18:47) [6]

>  [5] Игорь Шевченко ©   (16.01.06 18:33)

вот видишь, и без моей помощи догадался

---

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

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



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