| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Неактивная кнопка в MessageDialog. [D3, Win95/98]
zeos © (2002-06-13 20:21:00)//Привет!
//Создаю навороченный 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;
Goblinus (2002-06-14 15:38:00) [1]
DeleteMenu(Handle, SC_CLOSE, MF_BYCOMMAND);
Song (2002-06-14 15:37:00) [2]Смотри решение, а заодно всё что я о тебе думаю здесь: :-/
http://www.forum.vingrad.ru/cgi-bin/newforum/ikonboard.cgi?s=3d09d25071c5ffff&act=ST&f=2&t=1594&st=0
zeos (2002-06-14 14:19:00) [3]Да смотрел я в файле справки!
Не дошло до меня, помогите примером.
Song (2002-06-14 14:09:00) [4]EnableMenuItem
DeleteMenu
на них Ctrl+F1
zeos (2002-06-14 14:02:00) [5]Как это не то? Всё то.
Тогда как это применить?
Song (2002-06-14 13:56:00) [6]Как это не то? Всё то.
zeos (2002-06-14 13:45:00) [7]Это всё не то!
Помогите, кто может - помогите!
Игорь Шевченко (2002-06-14 09:23:00) [8]GetSystemMenu, EnableMenuItem
zeos (2002-06-14 09:18:00) [9]Я не хочу убрать кнопку (х), я хочу сделать её неактивной!
Alex is Fecit (2002-06-13 22:40:00) [10]Если правильно понял, ты хочешь убрать кнопку |Х|!
В свойствайх формы есть такое: BorderStyle...
Sapienti Sat!
zeos (2002-06-13 22:09:00) [11]Не пакость, не пакость!
2Alex is Fecit
Можно поподробнее...
Ничего не понял.
Alex is Fecit (2002-06-13 20:38:00) [12]УУУУ!!! какую-нибудь пакость готовишь юзеру!!!
8-)))
попробуй, как в обычной форме: бордер стиль заделать None...
| |
