Поместить на форму текстовое поле и метку

@Farizka · Регистрация: 12.03.2012

Author24 — интернет-сервис помощи студентам

Все доброго время суток, вот такое задание помгите решить заранее благодарен.

Поместить на форму текстовое поле и метку. На событие нажатия клавиши Enter в текстовом поле, в метке вывести текст набранный в текстовом поле. При щелчке по метке, с помощью окна общего диалога изменять размер шрифта у метки. После изменения шрифта спросить: оставить этот размер или нет (Да или Нет). Если выбирается Нет, вернуться к прежнему размеру шрифта.

@mss · 03.09.2012, 22:30

Сегодня 3 сентября.
Впереди целый семестр.
Не стыдно попрошайничать-то, на третий-то день учебы ?

@Farizka · 04.09.2012, 06:23 **[ТС]**

Сообщение от mss

Сегодня 3 сентября.
Впереди целый семестр.
Не стыдно попрошайничать-то, на третий-то день учебы ?

у меня сессия и я не попрошайничаю, а прошу помочь. На нет и суда нет

@Puporev · 04.09.2012, 08:19

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then  Label1.Caption:=Edit1.Text;
end;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
if MessageDlg('Изменить размер шрифта метки?',mtCustom,[mbYes,mbNo],0)=mrYes
then Label1.Font.Size:=Label1.Font.Size+4
end;

@Puporev · 04.09.2012, 11:31

Проектик.

@Puporev · 04.09.2012, 13:13

Проекты со шрифтом и цветом.

@Farizka · 04.09.2012, 17:25 **[ТС]**

Сообщение от Puporev

Проекты со шрифтом и цветом.

сенк но сам почитал помудрил и понял где косяк

@Farizka 0 / 0 / 0 Регистрация: 12.03.2012 Сообщений: 32
		1
	Поместить на форму текстовое поле и метку 03.09.2012, 22:11. Показов 1293. Ответов 6 Метки нет (Все метки) Все доброго время суток, вот такое задание помгите решить заранее благодарен. Поместить на форму текстовое поле и метку. На событие нажатия клавиши Enter в текстовом поле, в метке вывести текст набранный в текстовом поле. При щелчке по метке, с помощью окна общего диалога изменять размер шрифта у метки. После изменения шрифта спросить: оставить этот размер или нет (Да или Нет). Если выбирается Нет, вернуться к прежнему размеру шрифта. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	03.09.2012, 22:30	2
	Сегодня 3 сентября. Впереди целый семестр. Не стыдно попрошайничать-то, на третий-то день учебы ? 0

@Farizka 0 / 0 / 0 Регистрация: 12.03.2012 Сообщений: 32
	04.09.2012, 06:23 [ТС]	3
	Сообщение от mss Сегодня 3 сентября. Впереди целый семестр. Не стыдно попрошайничать-то, на третий-то день учебы ? у меня сессия и я не попрошайничаю, а прошу помочь. На нет и суда нет 0

@Farizka 0 / 0 / 0 Регистрация: 12.03.2012 Сообщений: 32
	04.09.2012, 17:25 [ТС]	7
	Сообщение от Puporev Проекты со шрифтом и цветом. сенк но сам почитал помудрил и понял где косяк 0