OnClick вопрос по этому действию

@Саня(Саня) · Регистрация: 15.01.2011

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

1)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
const
  e=1;
Var Baze:string;
    n:byte;
procedure Fact;
begin
 n:=n+1;
end;
begin
 Fact;
Baze:=Edit1.Text+Edit1.Text+Edit1.Text;
Label4.Caption:=' n '+IntToStr(n);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
end.

Как сделать так чтобы при нажатии кнопки он делал всё вот это , а после нажатия ещё раз на кнопку он снова делал это.короче как onClick сделать для неограниченного нажатия...
Пожалуйсто помогите.
2)как разделить текст Label так чтобы он был разделён половина сверху половина снизу,
Зарание наиогромнейшее спасибо!!!

@*~<`PIK`>~* · 16.01.2011, 15:08

здесь ты увеличиваешь переменную p

Delphi
1
if (edit4.text='Хирург') or (edit4.text='хирург') then begin p:=p+1

а выводишь переменную x

Delphi
1
Label6.Caption:='Количество пациентов у хирурга - '+IntToStr(x)

Просто при выводе напиши

Delphi
1
2
Label6.Caption:='Количество пациентов у хирурга - '+IntToStr(p)+#13
+'Всего пациентов - '+IntToStr(i);

@Саня(Саня) · 16.01.2011, 15:22 **[ТС]**

Сообщение от *~<`PIK`>~*

здесь ты увеличиваешь переменную p

Delphi
1
if (edit4.text='Хирург') or (edit4.text='хирург') then begin p:=p+1

а выводишь переменную x

Delphi
1
Label6.Caption:='Количество пациентов у хирурга - '+IntToStr(x)

Просто при выводе напиши

Delphi
1
2
Label6.Caption:='Количество пациентов у хирурга - '+IntToStr(p)+#13
+'Всего пациентов - '+IntToStr(i);

Я сделал,но он всё равно хирургов не прибовляет больше 1..

Добавлено через 2 минуты
почему то он не считает хирургов больше 1 цы, а именно одного посчитал и всё они всё время единицы переменна p всё время 1!

Добавлено через 6 минут
Хорошо она считает не всегда, либо до 1 цы либо до 2 х, ...кароче глючит!

@*~<`PIK`>~* · 16.01.2011, 15:26

Код рабочий. Почему у тебя не работает не знаю.

@Саня(Саня) · 16.01.2011, 15:52 **[ТС]**

Я сделал всё это снова, и всё заработало=))) видимо ему не хотелось на этой форме делать.

@*~<`PIK`>~* · 16.01.2011, 15:54

Наверно

@Саня(Саня) · 16.01.2011, 16:03 **[ТС]**

Сообщение от *~<`PIK`>~*

Вот

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Label1Click(Sender: TObject);
begin
If FontDialog1.Execute then
begin
If MessageBox(Handle, 'Âû õîòèòå ïðèìåíèòü èçìåíåíèÿ?', 'Ñîõðàíåíèå', mb_yesno+mb_iconquestion)=mryes then
Label1.Font:=FontDialog1.Font;
end;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then Label1.Caption:=Edit1.Text;
end;

На форму кинь 1 Edit, 1 Label и 1 FontDialog с вкладки Dialogs.

Немного не понимаю где этот и 1 FontDialog с вкладки Dialogs.[/QUOTE]

@*~<`PIK`>~* · 16.01.2011, 17:11

Ладно...В Delphi вверху где ты берешь и кидаеш на форму кнопку есть вкладки. Там ищи вкладку Dialogs. Либо так: в главном меню Delphi(в самом верху программы) View->Component List->Вводишь "TFontDialog"

@Саня(Саня) · 16.01.2011, 17:33 **[ТС]**

а как в форме 1 обратится к форме 2 и обратно???=)

Добавлено через 17 минут
Чтоб при нажатии команды формы 1 (любой указанной мной команды) он мне выводил форму 2? рядом а после действий формы 2 он её убирал?

@*~<`PIK`>~* · 16.01.2011, 17:49

Не совсем понял что нужно сделать но вот:
Чтобы показать форму 2 нужно в самом верху твоего кода там где написано

Delphi
1
uses ...

дописать "Unit2" вот так

Delphi
1
Uses ... , Unit2;

Затем например по нажатию кнопки показываем форму 2

Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

Чтобы закрыть форму 2

Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Close;
end;

@Саня(Саня) · 16.01.2011, 17:57 **[ТС]**

А вопросик такой как выключить программу ,ну дапустим сделал действия такие то , и всё чтиобы он по второму кругу не шёл!

@*~<`PIK`>~* · 16.01.2011, 17:59

Сообщение от Саня(Саня)

сделал действия такие то , и всё чтиобы он по второму кругу не шёл

Всмысле если в цыкле? Если да то Break;

@Саня(Саня) · 16.01.2011, 18:02 **[ТС]**

Form1.Laibel.Font.Size:=12; тут получается мне надо из действия формы 2(ну кнопку кликнул) чтобы он поменял текст в форме 1! как осуществить?

@*~<`PIK`>~* · 16.01.2011, 18:04

На форме 2 пишешь:

Delphi
1
2
3
4
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Label1.Text:='бла бла бла';
end;

@Саня(Саня) · 16.01.2011, 18:08 **[ТС]**

Да это работает а вот Form1.Laibel.Font.Size:=12; не робит тут мне надо при нажатии кнопки в форме 2 , чтобы он поменял шрифт текста label в форме 1!

@*~<`PIK`>~* · 16.01.2011, 18:11

Должно работать))наверно ошибка в том что неправильно написано Form1.Laibel.Font.Size:=12;
Должно быть Form1.Label1.Font.Size:=12;

@Саня(Саня) · 16.01.2011, 18:12 **[ТС]**

как сделать чтоб в Edit он от туда текст менял в Label овский текст только при нажати Enter.

@*~<`PIK`>~* · 16.01.2011, 18:14

АА сори я забыл кое-что. В коде формы 2 после слова

Delphi
1
implementation

допиши

Delphi
1
Uses Unit1;

Добавлено через 1 минуту

Сообщение от Саня(Саня)

как сделать чтоб в Edit он от туда текст менял в Label овский текст только при нажати Enter.

чтобы на Edit нажать Enter и текст с Edit перешол в Label?

@Саня(Саня) · 16.01.2011, 18:15 **[ТС]**

Сообщение от *~<`PIK`>~*

АА сори я забыл кое-что. В коде формы 2 после слова

Delphi
1
implementation

допиши

Delphi
1
Uses Unit1;

Добавлено через 1 минуту
чтобы на Edit нажать Enter и текст с Edit перешол в Label?

да,именно так

@*~<`PIK`>~* · 16.01.2011, 18:27

Delphi
1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then Label1.Caption:=Edit1.Text;
end;

Добавлено через 8 минут
А что ты хочешь написать??Какую программу, что она будет делать?

@Саня(Саня) · 16.01.2011, 18:32 **[ТС]**

Сообщение от *~<`PIK`>~*

Delphi
1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then Label1.Caption:=Edit1.Text;
end;

Добавлено через 8 минут
А что ты хочешь написать??Какую программу, что она будет делать?

Я хочу написать программу каторая ( ввёл текст в edit) нажал именно Enter и она меняеет текст её в Label
Потом нажимаешь на Laibel и меняеется шрифт с 12 на 14, одновременно вылазит форма два и спрашивает оставить этот шрифт при наборе да форма два закрывается ,при наборе нет ,шрифт у Label становится 12 и форма 2 закрывается!!
но при нажатии нет она не меняеет шрифт обратно!

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	16.01.2011, 15:26
	Код рабочий. Почему у тебя не работает не знаю. 0

@Саня(Саня) 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 57
	16.01.2011, 15:52 [ТС]
	Я сделал всё это снова, и всё заработало=))) видимо ему не хотелось на этой форме делать. 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	16.01.2011, 15:54
	Наверно 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	16.01.2011, 17:11
	Ладно...В Delphi вверху где ты берешь и кидаеш на форму кнопку есть вкладки. Там ищи вкладку Dialogs. Либо так: в главном меню Delphi(в самом верху программы) View->Component List->Вводишь "TFontDialog" 1

@Саня(Саня) 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 57
	16.01.2011, 17:33 [ТС]
	а как в форме 1 обратится к форме 2 и обратно???=) Добавлено через 17 минут Чтоб при нажатии команды формы 1 (любой указанной мной команды) он мне выводил форму 2? рядом а после действий формы 2 он её убирал? 0

@Саня(Саня) 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 57
	16.01.2011, 17:57 [ТС]
	А вопросик такой как выключить программу ,ну дапустим сделал действия такие то , и всё чтиобы он по второму кругу не шёл! 0

@Саня(Саня) 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 57
	16.01.2011, 18:02 [ТС]
	Form1.Laibel.Font.Size:=12; тут получается мне надо из действия формы 2(ну кнопку кликнул) чтобы он поменял текст в форме 1! как осуществить? 0

@Саня(Саня) 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 57
	16.01.2011, 18:08 [ТС]
	Да это работает а вот Form1.Laibel.Font.Size:=12; не робит тут мне надо при нажатии кнопки в форме 2 , чтобы он поменял шрифт текста label в форме 1! 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	16.01.2011, 18:11
	Должно работать))наверно ошибка в том что неправильно написано Form1.Laibel.Font.Size:=12; Должно быть Form1.Label1.Font.Size:=12; 0

@Саня(Саня) 0 / 0 / 0 Регистрация: 15.01.2011 Сообщений: 57
	16.01.2011, 18:12 [ТС]
	как сделать чтоб в Edit он от туда текст менял в Label овский текст только при нажати Enter. 0