Tema Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Rew Цитата: Ошибка. Курсор устанавливается в конце - end. (После точки) Ты не правильно переписал мой код: Забыл ещё один end. Посмотри внимательно. Всего записей: 125 | Зарегистр. 10-11-2003 | Отправлено: 17:07 24-01-2005

YurikGL Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору >ведь, например, clBtnFace -- это ссылка на цвет системной палитры, а не сам цвет...     Там, где ты задаешь clBtnFace что тебе мешает clBlack задать? Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 17:24 24-01-2005

Tema Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Цитата: или может быть так:   как поменять системную палитру _только_ для моего окна? Теперь понятен вопрос... Хммм.. С ходу в голову ничего не приходит... Можно покопаться в хелпе. Думаю там можно найти про это. Но если это всё-таки затруднительно, то можно и извратиться. Просто рисовать свою форму: Делаешь BorderStyle=None И рисуешь на ней с помощью Shape заголовок формы с кнопками закрыть, развернуть и т.д. Вот и всё Всего записей: 125 | Зарегистр. 10-11-2003 | Отправлено: 17:42 24-01-2005

YurikGL Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору >замени цвет заголовка окна штатными средствами...   Извиняюсь, не правильно понял вопрос.   Насколько я знаю, прорисовкой заголовка окна занимается сам виндовс т.к. если запустить текстовое приложение, то у него заголовок тоже будет. Штатные средства вряд ли есть.   Только если сделать borderstyle в none а заголовок какой-нибудь панелькой изобразить. Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 17:42 24-01-2005

Tema Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ЗЫ akaGM насчёт вопросов рекомендую ту же ссылку, что и Rew: http://www.rsdn.ru/Info/Howtoask.xml А то я реально сразу не воткнул о чём ты     Добавлено: YurikGL Гыгыгы... Одинаковые мысли бывают у дураков и влюблённых! Ты кто из них? )))))))))))))))) Всего записей: 125 | Зарегистр. 10-11-2003 | Отправлено: 17:44 24-01-2005

Tema Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Цитата: а вот бевелед контрол как? Нарисуй свой с помощью Shape. Слушай, пиши нормальные названия! Я чуть не пёрнул, когда увидел название Цитата: бевелед контрол Думал, что совсем Дельфи забыл! Тебе понравится, если мы будем тебе отвечать: Возми форм, измени бордер на ноне и потом шейпом  изобрази батоны стандартные и у шейпов можешь указывать любые колоры. Всего записей: 125 | Зарегистр. 10-11-2003 | Отправлено: 17:54 24-01-2005

Tema Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Может и смешно, но расшифровывать лень. Здесь ведь подразумевается быстрый ответ, если он сразу известен, а когда тратишь время на попытки воткнуть о чём сказал собеседник это огорчает. Всего записей: 125 | Зарегистр. 10-11-2003 | Отправлено: 18:09 24-01-2005

Rew Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Tema Цитата: Ты не правильно переписал мой код: Забыл ещё один end. Посмотри внимательно.   А мне кажется, ты только что отредактировал своё сообщение и добавил end;   Я твой текст копировал и вставлял в Delphi. Была ошибка. Всего записей: 823 | Зарегистр. 12-05-2004 | Отправлено: 18:35 24-01-2005

Tema Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Rew Цитата: А мне кажется, ты только что отредактировал своё сообщение и добавил end;   Я твой текст копировал и вставлял в Delphi. Была ошибка. Ну ты и наглец!   Цитата: Всего записей: 44 | Зарегистр. 10-11-2003 | Отправлено: 03:50 24-01-2005 Где же здесь слово "Исправлено: ..."?   Вот так выглядит, когда редактировалось:   Цитата: Всего записей: 370 | Зарегистр. 12-05-2004 | Отправлено: 20:41 23-01-2005 | Исправлено: Rew, 20:42 23-01-2005   Ты хоть разберись сначала, а потом уже возникай! Свою собственную невнимательность на других не перекладывай! Всего записей: 125 | Зарегистр. 10-11-2003 | Отправлено: 18:50 24-01-2005

Rew Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Tema Ладно, ты не кипятись! Спасибо за помощь!   Добавлено: Tema, YurikGL and All Цитата: procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);   begin   if MessageDlg('Close the form?', mtConfirmation,     [mbOk, mbCancel], 0) = mrCancel then      CanClose := False; end;   и   Цитата: CanClose := not (MessageDlg('Close the form?', mtConfirmation,     [mbOk, mbCancel], 0) = mrCancel) Это для события FormCloseQuery. А вот как будет для Button1? Нет же такого:   ButtonCloseQuery Ну думаю понятен мой вопрос.     Всего записей: 823 | Зарегистр. 12-05-2004 | Отправлено: 18:59 24-01-2005 | Исправлено: Rew, 19:51 24-01-2005

Tema Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Rew RTFM Всего записей: 125 | Зарегистр. 10-11-2003 | Отправлено: 20:53 24-01-2005

Rew Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Tema Цитата: RTFM   А что это? Всего записей: 823 | Зарегистр. 12-05-2004 | Отправлено: 21:24 24-01-2005

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Rew Tema Народ во первых поменьше выражения типа Цитата:  Я чуть не пёрнул, когда увидел название в крайнем случае подобное в ПМ. Далее по теме, чтобы изменить цвет заголовка формы можно использовать RxGradientCaption из библиотеки RXLib поиск в гугле по названию. Цитата:  А вот как будет для Button1? Нет же такого:   ButtonCloseQuery Вопрос мягко говоря происходит от незнания предмета. Обработка события OnClick для данной кнопки там пишет Цитата: begin     if MessageDlg('Close the form?', mtConfirmation,       [mbOk, mbCancel], 0) = mrOK then        Form1.Close else Exit; end;   И все. Просто нафига кнопке событие OnCloseQuery, много ли извращенцев, которые будут делать Close самой кнопке. ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 03:09 25-01-2005

Rew Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ShIvADeSt Цитата: begin   if MessageDlg('Close the form?', mtConfirmation,   [mbOk, mbCancel], 0) = mrOK then   Form1.Close else Exit; end;   Благадарю.  Работает.  Можно ещё вопросики? (А то вообще не спрашивают тут.) 1. Есть Form1 и Form2. На Form1 есть кнопка Закрыть, а Form2 пустая.   Как мне сделать, когда я нажму на кнопку "Закрыть", то Form1 удаляется (исчезает из памяти) и появляется Form2.   Вот как я порбовал:     Цитата: procedure TForm1.Button1Click(Sender: TObject); begin Form1.Close; Form2.Show;   end;   end. Работает. Нажимаю На кнопку и Form закрывается а вторая форма не появляется и заканчивается процесс.   Вот так Появляется форма вторая, но из памяти не выходит.     Цитата: procedure TForm1.Button1Click(Sender: TObject); begin Form1.Free; Form2.Show;   end;   end.   2. Что вы мне посоветуете? Если у меня есть RadioButton1 и RadioButton2 и при нажатии на кнопку меняется.   Например Если checked RAdioButton1 тогда   Появляется новая форма и на той форме меняется текст в RadioButton1 и в RadioButton2. Потому что мне где-то пять раз надо менять текст.   Типа мне создать пять форм?     Всего записей: 823 | Зарегистр. 12-05-2004 | Отправлено: 10:35 25-01-2005

YurikGL Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору >Как мне сделать, когда я нажму на кнопку "Закрыть",   >то Form1 удаляется (исчезает из памяти) и появляется Form2.     Для этого необходимо иметь еще и Form3 которую назначить главной формой.   Когда ты закрываешь главную форму завершается все приложение. Сейчас у тебя главная форма - Form1 Всего записей: 308 | Зарегистр. 02-09-2004 | Отправлено: 10:59 25-01-2005

Tropin Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: 1. Есть Form1 и Form2 не так все просто.... Form1 - главная форма и неразрывно связана с главным процессом... поэтому нужно делать отдельную (невидимую) главную форму, а Form1 и Form2 генерировать в программе...     Добавлено: YurikGL пардон, не смотрю.. ;)   Цитата: 2. Что вы мне посоветуете? Посоветую поподробней (попонятней :) объяснить что именно надо.... А впринципе можно создать 5 форм, можно создать и одну.... тут вопрос в оптимальности будет... ---------- Вот потому, что вы говорите то, что не думаете и думаете то, что не думаете, вот в клетках и сидите... (C) Кин-дза-дза Всего записей: 538 | Зарегистр. 25-11-2002 | Отправлено: 11:29 25-01-2005

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование