Неактивная кнопка в MessageDialog.

← →
zeos (2002-06-13 20:21) [0]

//Привет!

//Создаю навороченный MessageDialog...
//(Чем он наворочен? Испытайте код.)
//Все работает, но проблема в том, что мне
//нужно сделать неактивной системную кнопку "Закрыть".

procedure TForm1.Button1Click(Sender: TObject); var f: TForm; begin f := Dialogs.CreateMessageDialog("Файл не найден!", dialogs.mtInformation, [mbOK]); f.Caption := "Загаловок окна..."; f.Color := clRed; f.Font.Color := clWhite; f.Font.Name := "Verdana"; f.Font.Size := 8; f.Font.Style := [fsBold]; //так скрываются полностью системные кнопки //f.BorderIcons := f.BorderIcons - [biSystemMenu]; if f.ShowModal = mrOk then //здесь должна выполнятся моя функция, //поэтому я и нехочу, чтобы юзер мог нажать //кнопку "Закрыть". end;

← →
Alex is Fecit (2002-06-13 20:38) [1]

УУУУ!!! какую-нибудь пакость готовишь юзеру!!!
8-)))
попробуй, как в обычной форме: бордер стиль заделать None...

← →
zeos (2002-06-13 22:09) [2]

Не пакость, не пакость!

2Alex is Fecit

Можно поподробнее...
Ничего не понял.

← →
Alex is Fecit (2002-06-13 22:40) [3]

Если правильно понял, ты хочешь убрать кнопку |Х|!
В свойствайх формы есть такое: BorderStyle...
Sapienti Sat!

← →
zeos (2002-06-14 09:18) [4]

Я не хочу убрать кнопку (х), я хочу сделать её неактивной!

← →
Игорь Шевченко © (2002-06-14 09:23) [5]

GetSystemMenu, EnableMenuItem

← →
zeos (2002-06-14 13:45) [6]

Это всё не то!
Помогите, кто может - помогите!

← →
Song © (2002-06-14 13:56) [7]

Как это не то? Всё то.

← →
zeos (2002-06-14 14:02) [8]

Как это не то? Всё то.

Тогда как это применить?

EnableMenuItem
DeleteMenu
на них Ctrl+F1

← →
zeos (2002-06-14 14:19) [10]

Да смотрел я в файле справки!
Не дошло до меня, помогите примером.

Смотри решение, а заодно всё что я о тебе думаю здесь: :-/

http://www.forum.vingrad.ru/cgi-bin/newforum/ikonboard.cgi?s=3d09d25071c5ffff&act=ST&f=2&t=1594&st=0

DeleteMenu(Handle, SC_CLOSE, MF_BYCOMMAND);

Неактивная кнопка в MessageDialog. Найти похожие ветки