Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/26: Рейтинг темы: голосов - 26, средняя оценка - 4.62
салома
8 / 8 / 3
Регистрация: 08.09.2011
Сообщений: 288
1

Изменения шрифта label или Edit, часы в Label

13.03.2012, 07:35. Просмотров 4963. Ответов 4
Метки нет (Все метки)

Доброе утро
хотелось бы узнать , можно ли засунуть в label или edit часы
так же можно ли изменять шрифт и размер текста в label или edit, в запущенной программе
допустим нажать на кнопку изменить шрифт, и появится окно с выбором
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2012, 07:35
Ответы с готовыми решениями:

Edit Label (линейный) Panel, Edit Label (строки), Memo (одномер-ный),ComboBox ListBox , RadioButton (RadioGroup) CheckBox ,StringGrid (ввод пароля)
1)Edit Label (линейный) Panel Проверить истинность высказывания: "Цифры...

Combobox - при выборе индекса скрывать или показывать label,edit и т.д
На форме есть комбобокс при выборе 1 из элементов , нужно что бы на этой форме...

часы в label
как сделать, чтобы секунды менялись в часах (компонент Label)?

Из edit в label
После нажатия кнопки вивести удвоеное значение числа, введеного в поле ввода. Я...

EDit и label
Суть такая есть 15 компонентов едит-для добавления полей в базу. Пеперь по...

4
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
13.03.2012, 09:51 2
Цитата Сообщение от салома Посмотреть сообщение
можно ли засунуть в label или edit часы
В смысле вывести системное время?
Цитата Сообщение от салома Посмотреть сообщение
допустим нажать на кнопку изменить шрифт, и появится окно с выбором
Можно. Кинь на форму FontDialog и кнопку. В событии кнопки меняй шрифт

Добавлено через 2 минуты
Вывести время

Delphi
1
2
3
4
5
6
7
8
9
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(Timer1);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now);
end;
0
anonimus
2154 / 1244 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
13.03.2012, 09:57 3
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
if not FontDialog1.Execute then exit;
label1.Font.Size:=FontDialog1.Font.Size;
label1.Font:=FontDialog1.Font;
end;
1
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
13.03.2012, 09:59 4
Вот пример.

Delphi
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
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(Timer1);
Timer1.Enabled:=false;
Label1.Caption:='';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
if FontDialog1.Execute then
with Label1 do
 begin
  Font.Name:=FontDialog1.Font.Name;
  Font.Style:=FontDialog1.Font.Style;
  Font.Size:=FontDialog1.Font.Size;
  Font.Color:=FontDialog1.Font.Color;
 end; 
end;
1
салома
8 / 8 / 3
Регистрация: 08.09.2011
Сообщений: 288
13.03.2012, 18:52  [ТС] 5
угу спасибо)
0
13.03.2012, 18:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2012, 18:52

Вопрос по edit и label
Здравствуйте я новичек у меня такая проблема мне нужно сделать так чтобы тот...

Combobox, Label и Edit
Здравствуйте!Подскажите,пожалуйста,как создать связь между компонентами?...

Edit Label (строки)
дана строка-предложение на русском языке подсчитать количество содержащихся в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru