Form>bolderstyle

← →
Змей © (2004-11-16 21:07) [0]

Всем здрасте
вот хочу верхнюю полоску у формы убрать с крестиком. свернуть,развернуть.
выбираю Form>bolderstyle>bsnone он ее убирает но размеры формы нельзя менять!
можно ли какнибудь это устранить?
ну мышой растягивать форму
заранее благодарю

← →
KilkennyCat © (2004-11-16 21:10) [1]

можно. отловить координаты мыши у края формы. запомнить. отлавливая наджатие левой кнопки мыши, менять размеры на величину перемещения мыши минус запомненное.

← →
novice_man © (2004-11-16 21:14) [2]

Следующий текст убирает команду закрыть из системного меню и одновременно делает серой кнопку закрыть в заголовке формы:

procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
IF (hMenuHandle <> 0) THEN
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;

Как убрать остальные кнопки, надеюсь, извесно.

← →
novice_man © (2004-11-16 21:16) [3]

Начал картавить. Видимо устал. Пойду спать!

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;

Form>bolderstyle Найти похожие ветки