Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi]

Автор: luna 27.11.2007, 17:56

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

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

Автор: mr.Anderson 27.11.2007, 18:41

Так... перевожу на доступный русский с одновременным приведением кода.

В диалоговое окно через функцию 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 );

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

Автор: luna 27.11.2007, 20:12

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

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

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

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

Автор: Данкинг 27.11.2007, 21:02

Цитата(luna @ 27.11.2007, 21:12)

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

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

Автор: mr.Anderson 28.11.2007, 16:24

Цитата

На форму кидать кнопку

Нет, все намного хитрее: кнопку нужно кинуть в монитор компьютера! smile

Цитата

Если нажать оставить ( да) , то работа продолжается, а если изменить (нет), то вернуться в окно Фонт и изменить стиль.

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

Код


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

Form1.Font.Assign( FontDialog1.Font );

Оно?

Автор: luna 3.12.2007, 22:34

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

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

Код


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.

Автор: mr.Anderson 3.12.2007, 22:41

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

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

Автор: luna 3.12.2007, 22:59

На какую кнопку то?

Автор: Данкинг 3.12.2007, 23:33

Цитата(luna @ 3.12.2007, 22:59)

На какую кнопку то?

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

Автор: luna 3.12.2007, 23:51

Спасибо всем огромное.....Все работает....теперь поняла... smile

Автор: luna 4.12.2007, 00:21

Огромное спасибо!!!!!!!!!!!!!!!!!!