Работа с формой программы

Автор: | 16.02.2013

Не показывать форму программы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Application.ShowMainForm:=false;
[/cc]
Запретить кнопку Close [x] в заголовке окна:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Style := GetWindowLong(Handle, GWL_STYLE); SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU); // var Style: Longint;
[/cc]
Задание цвета формы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Form1.Color:=RGB(255,130,10); // т.е. задаем значения Красного, Зеленого, Синего (0..255).
[/cc]
Задание цвета формы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Form1.Color:=$000000; // черный - $000000, $FF0000 - синий, $00FF00 - зеленый, $0000FF - красный, белый - $FFFFFF
[/cc]
Прозрачная форма:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Form1.Color := clMaroon; Form1.TransparentColorValue := clMaroon; Form1.TransparentColor := True;
[/cc]
Задание ширины формы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Width:=3000;
[/cc]
Задание высоты формы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Height:=3000;
[/cc]
Форма поверх других форм всегда:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Form1.FormStyle:=fsStayOnTop;
[/cc]
Не показывать верхнюю часть формы с тремя основными кнопками и значком программы и рамку:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
BorderStyle := bsNone;
[/cc]
Не показывать верхнюю часть формы с тремя основными кнопками и значком программы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle,GWL_STYLE) AND NOT WS_CAPTION);
[/cc]
Выводить форму прижатой к левой части экрана:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Left:= 0;
[/cc]
Выводить форму прижатой к верхней части экрана:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Top:= 0;
[/cc]
Задать высоту формы равной высоте экрана:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Height:= Screen.Height;
[/cc]
Задать ширину формы равной ширине экрана:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Width:= Screen.Width;
[/cc]
Поменять иконку на форме на стороннюю иконку во время работы программы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
self.Icon.LoadFromFile('E:\Icon1.ico'); //Файл должен быть иначе ошибка. Иконка на exe-ке не меняется. При завершении программы - меняется обратно.
[/cc]
Запретить изменение размера формы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Form1.BorderStyle := bsSingle;
[/cc]
Свернуть окно:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Application.Minimize;
[/cc]
Запретить закрытие программы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
canclose := false; // procedure TForm1.FormCloseQuery
[/cc]
Убрать значок программы из панели задач:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE)or WS_EX_TOOLWINDOW);
[/cc]
Задать прозрачность формы и элементов на ней равной 100:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
AlphaBlend:=true; AlphaBlendValue:=100;
[/cc]
Cделать неактивной кнопку "развернуть", вверху формы:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Form1.BorderIcons := [biSystemMenu,biMinimize];
[/cc]
Развернуть форму:
[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]
Form1.WindowState:=wsMaximized;
[/cc]

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *