Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
ВнизКак убрать кнопочки что: крестик, развернуть и свернуть? Найти похожие ветки
← →
Dark Programmer (2002-06-18 12:22) [0]Помогите пожалуйста!
← →
Егоров Николай (2002-06-18 12:31) [1]Убрать все кнопки:
Form1.BorderIcons := [];
Если какая-то кнопка нужна, а остальные нет, то просто выставь в Object Inspector-е твоей формы BorderIcons в False;
А кнопку <закрыть> "убрать" можно так:
procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
IF (hMenuHandle <> 0) THEN
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c