Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Убрать края у окна [D7, WinXP]

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

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

VirEx (2006-01-16 18:47:00) [1]

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

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

Игорь Шевченко (2006-01-16 18:33:00) [2]
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:31:00) [3]
ах да, еще: WS_POPUP Creates a pop-up window. This style cannot be used with the WS_CHILD style.

VirEx (2006-01-16 18:29:00) [4]

> [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);

Игорь Шевченко (2006-01-16 11:45:00) [5]

> SetWindowLong(Handle,GWL_STYLE,WS_POPUP);

Не работает

VirEx (2006-01-15 00:20:00) [6]
сто раз это уже писали,
SetWindowLong(Handle,GWL_STYLE,WS_POPUP);

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »