Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi], Диалоговые окна 
V
    Опции темы
luna
Дата 27.11.2007, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 30.3.2007
Где: Россия, Екатеринб ург

Репутация: нет
Всего: нет
В диалоговое окно Input Box ввести имя пользователя. на форме вывести привествие  пользователю.
При щелчке по форме с клавишей Ctrl,  спомощью окна общего диалога изменить размер шрифта надписи. 
При щелчке по форме  при нажатой кл. Alt изменить стиль шрифта. 
При Щелчке по форме при нажатой кл. Shift, изменить цвет надписи.
После  ( да или нет), если нет, то снова вывести окно общего диалога для выбора шрифта.

Помогите пожалуйста с решением. я делала простые задачки с выведением окон. а чтобы шриф или стиль изменять..такое не могу сделать. Заранее спасибо за помощь!

Это сообщение отредактировал(а) luna - 27.11.2007, 17:57
PM MAIL ICQ   Вверх
mr.Anderson
Дата 27.11.2007, 18:41 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 16
Всего: 128
Так... перевожу на доступный русский с одновременным приведением кода.

В диалоговое окно через функцию InputBox() ввести имя юзера. На форме вывести приветствие с использованием полученного имени.
Кидаем на форму кнопку и метку (TLabel) и пишем по клику на кнопку:
Код

Form1.Label1.Caption := InputBox( 'Имя', 'Введите Ваше имя:', '' );

При щелчке на форме с зажатым Ctrl изменить размер шрифта надписи. Что значит с помощью окна общего диалога? Если менять шрифт самой формы, то на ее OnMouseDown пишем следующее:
Код

if( ssCtrl in Shift ) then
 Form1.Font.Size := Form1.Font.Size + 2 //увеличенный на 2 пиксела размер шрифта всех объектов на форме

По аналогии для двух остальных условий в том же событии формы дописываем:
Код

else if( ssAlt in Shift ) then
 Form1.Font.Style := [fsBold] //жирный текст на всех объектах на форме
else if( ssShift in Shift ) then
 Form1.Font.Color := clBlue; //синий текст для них же

Затем, если я правильно понял, нужно вывести окошко с запросом "Да/нет" (тупой какой-то вопрос smile ), в зависимости от реакции вывести окно диалога. Заюзаем для этого TFontDialog, чтобы не изобретать велосипед... Кидаем этот контрол на форму (вкладка Dialogs), затем кидаем еще одну кнопку, на ее OnClick пишем:
Код

if( MessageBox( Handle, 'Да/нет?', 'Вопрос', MB_YESNO + MB_ICONQUESTION ) = IDNO ) then
 if( FontDialog1.Execute() ) then
  Form1.Font.Assign( FontDialog1.Font );

Ну вот и все, вроде.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
luna
Дата 27.11.2007, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 30.3.2007
Где: Россия, Екатеринб ург

Репутация: нет
Всего: нет
Затем, если я правильно понял, нужно вывести окошко с запросом "Да/нет" (тупой какой-то вопрос  ), в зависимости от реакции вывести окно диалога. Заюзаем для этого TFontDialog, чтобы не изобретать велосипед... Кидаем этот контрол на форму (вкладка Dialogs), затем кидаем еще одну кнопку, на ее OnClick пишем:
------------

вот это не поняла...

Куда кидать кнопку? 

При нажатии на форму кл.мышки+Шифт должно появиться окно Фонт и там надо выбрать стиль текста, а после применения этого стиля, надо чтобы он спросил изменить (нет) или отсавить (да) . Если нажать оставить ( да) , то работа продолжается, а если изменить (нет),  то вернуться в окно Фонт и изменить стиль.

Это сообщение отредактировал(а) luna - 27.11.2007, 20:13
PM MAIL ICQ   Вверх
Данкинг
Дата 27.11.2007, 21:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(luna @ 27.11.2007,  21:12)
Куда кидать кнопку? 

На форму кидать кнопку, а куда ещё-то. Или должно обрабатываться событие OnClick именно формы? Ну, тогда его и юзай. Выбор цвета - при помощи стандартного компонента с вкладки "dialogs".


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
mr.Anderson
Дата 28.11.2007, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 16
Всего: 128
Цитата
На форму кидать кнопку

Нет, все намного хитрее: кнопку нужно кинуть в монитор компьютера! smile
Цитата
Если нажать оставить ( да) , то работа продолжается, а если изменить (нет),  то вернуться в окно Фонт и изменить стиль.

Тогда слегка редактируем код вызова диалога настроек шрифта:
Код

repeat
 FontDialog1.Execute()
until MessageBox( Handle, 'Принять настройки шрифта?', 'Вопрос', MB_YESNO + MB_ICONQUESTION ) = IDYES;

Form1.Font.Assign( FontDialog1.Font );

Оно?

Это сообщение отредактировал(а) mr.Anderson - 28.11.2007, 16:30


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
luna
Дата 3.12.2007, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 30.3.2007
Где: Россия, Екатеринб ург

Репутация: нет
Всего: нет
Написала....теперь работает только та часть, которая стоит после репита ( выделила красным). А первые два не работают ( выделила зеленым).

Текст программы: 

Код

procedure TForm1.Label1Click(Sender: TObject);
begin
Form1.Label1.Caption := InputBox( 'Имя', 'Введите ваше имя', '' );
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if( ssCtrl in Shift ) then
 Form1.Font.Size := Form1.Font.Size + 2
 else if( ssAlt in Shift ) then
 Form1.Font.Style := [fsBold]
else if( ssShift in Shift ) then
 Form1.Font.Color := clBlue;
repeat
 FontDialog1.Execute()
until MessageBox( Handle, 'Принять настройки шрифта?', 'Вопрос', MB_YESNO + MB_ICONQUESTION ) = IDYES;

Form1.Font.Assign( FontDialog1.Font );  [/color]

end;

end.


Это сообщение отредактировал(а) luna - 3.12.2007, 23:50
PM MAIL ICQ   Вверх
mr.Anderson
Дата 3.12.2007, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 16
Всего: 128
Я ж писал, где размещать код. Почему ты все сделала по-другому? smile

Что у тебя выделено зеленым, то нужно было вписать в код клика на кнопку. Что выделено красным - оставляем где есть.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
luna
Дата 3.12.2007, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 30.3.2007
Где: Россия, Екатеринб ург

Репутация: нет
Всего: нет
На какую кнопку то?
PM MAIL ICQ   Вверх
Данкинг
Дата 3.12.2007, 23:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(luna @ 3.12.2007,  22:59)
На какую кнопку то?

Видимо, на ту, роль которой в данном коде играет label1. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
luna
Дата 3.12.2007, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 30.3.2007
Где: Россия, Екатеринб ург

Репутация: нет
Всего: нет
Спасибо всем огромное.....Все работает....теперь поняла... smile 
PM MAIL ICQ   Вверх
luna
Дата 4.12.2007, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 30.3.2007
Где: Россия, Екатеринб ург

Репутация: нет
Всего: нет
Огромное спасибо!!!!!!!!!!!!!!!!!!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0519 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.