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 закрывается!!
но при нажатии нет она не меняеет шрифт обратно!

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@~<`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