Убрать края у окна

← →
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.

VirEx © (16.01.06 18:29) [3]

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

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

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

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