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

Не показывать форму программы:
[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 не будет опубликован. Обязательные поля помечены *