VPF::Неактивная кнопка в MessageDialog... - Форум программистов

zeos

Дата 14.6.2002, 13:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет!

Создаю навороченный 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;

Song

Дата 14.6.2002, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

Млин, я же тебе сказал на мастаках и привёл те инструкции АПИ, какие ты должен использовать, чтобы добиться результата. Ты чего, не можешь хэлп посмотреть или ждёшь пока тебе всё принесут на серебрянном блюдечке? Ну чего же быть таким криворуким? Пойми, пока ты будешь спрашивать готовые примеры и просить исходничек, ты никогда не научишься программировать. :angry:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 With Dialogs.CreateMessageDialog('Файл не найден!',dialogs.mtInformation, [mbOK]) Do
  Begin
   Caption:= 'Загаловок окна...';
   Color:= clRed;
   With Font Do
    Begin
     Color := clWhite;
     Name := 'Verdana';
     Size := 8;
     Style := [fsBold];
    End;
   DeleteMenu(GetSystemMenu(Handle,False),SC_CLOSE,MF_BYCOMMAND);
   IF ShowModal = mrOk then ....;
  End;
end;

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »