Текущий архив: 2004.11.28;
Скачать: 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 вся ветка
Текущий архив: 2004.11.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.05 c
