| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Form>bolderstyle [D6, WinXP]
Змей © (2004-11-16 21:07:00)Всем здрасте
вот хочу верхнюю полоску у формы убрать с крестиком. свернуть,развернуть.
выбираю Form>bolderstyle>bsnone он ее убирает но размеры формы нельзя менять!
можно ли какнибудь это устранить?
ну мышой растягивать форму
заранее благодарю
Kair (2004-11-17 06:26:00) [1]BorderStyle := bsNone;
TForm1 = class(TForm)
public
procedure CreateParams(var Param: TCreateParams); override;
...
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or ws_ThickFrame;
end;
novice_man (2004-11-16 21:16:00) [2]Начал картавить. Видимо устал. Пойду спать!
novice_man (2004-11-16 21:14:00) [3]Следующий текст убирает команду закрыть из системного меню и одновременно делает серой кнопку закрыть в заголовке формы:
procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
IF (hMenuHandle <> 0) THEN
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
Как убрать остальные кнопки, надеюсь, извесно.
KilkennyCat (2004-11-16 21:10:00) [4]можно. отловить координаты мыши у края формы. запомнить. отлавливая наджатие левой кнопки мыши, менять размеры на величину перемещения мыши минус запомненное.
| |
