Topic: Кнопки на форме
Подскажите пожалуйста как оставить только одну активную кнопку "Свернуть" на форме, а Развернуть и Закрыть удалить?
My Visual Database → Russian → Кнопки на форме
Подскажите пожалуйста как оставить только одну активную кнопку "Свернуть" на форме, а Развернуть и Закрыть удалить?
К сожалению так не получиться. Вы можете скрыть все кнопки, а сворачивание формы организовать с помощью отдельной кнопки
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
Application.Minimize;
end;
Чтобы скрыть все кнопки, установите свойства формы
BorderStyle = bsSingle
BorderIcon > biSystemMenu = False
Также возможно вам понадобится предотвратить закрытие формы нажатием Alt+F4, для этого
установите свойство формы KeyPreview = True
и сделайте скрипт
procedure Form1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if (Alt) and (Key=115) then Key := 0;
end;
Спасибо большое за ответ!)
My Visual Database → Russian → Кнопки на форме
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi