Текущий архив: 2002.06.27;
Скачать: CL | DM;
Вниз
Неактивная кнопка в 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]Как это не то? Всё то.
Тогда как это применить?
← →
Song © (2002-06-14 14:09) [9]EnableMenuItem
DeleteMenu
на них Ctrl+F1
← →
zeos (2002-06-14 14:19) [10]Да смотрел я в файле справки!
Не дошло до меня, помогите примером.
← →
Song © (2002-06-14 15:37) [11]Смотри решение, а заодно всё что я о тебе думаю здесь: :-/
http://www.forum.vingrad.ru/cgi-bin/newforum/ikonboard.cgi?s=3d09d25071c5ffff&act=ST&f=2&t=1594&st=0
← →
Goblinus © (2002-06-14 15:38) [12]
DeleteMenu(Handle, SC_CLOSE, MF_BYCOMMAND);
Страницы: 1 вся ветка
Текущий архив: 2002.06.27;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.01 c
