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

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]

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

---

← →
Kair ©   (2004-11-17 06:26) [4]

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;


---

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

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



Память: 0.45 MB
Время: 0.024 c