Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от infernal-team

Что нужно:
1. Сделать на форме ссылку
2. Сделать нефункционирующими и прозрачными кнопки свернуть и развернуть
3. Сделать переход на другую форму через бутон
Пока на этом все.

Мда...

Вот дерзай, только какой смысл обрабатывать сообщения по развёртыванию формы, когда гораздо проще просто убрать эти кнопки...

http://slil.ru/24605079

Для пущей жести можно добавить :

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Style: Longint;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  SetWindowLong(Handle, GWL_STYLE, Style and not WS_SYSMENU);
end;