Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по Edit

Страницы: < 1 2
Sowyer © (2009-04-28 12:01:00)
У меня есть четыре поля ( a , b , с, d) и кнопка "g". Как зделать, чтобы когда в поле "a" ввели "привет" , в поле "b" - "пока" и нажав кнопку "d" , то в поле "c"- появилась надпись "готовая", а поле "d" - "программа".

Anatoly Podgoretsky (2009-04-28 14:23:00) [21]
Только не понятно, кнопка или поле.
Собственно ответов и так достаточно для "я хочу научиться просто для себя"

Юрий Зотов (2009-04-28 13:35:00) [22]
> Anatoly Podgoretsky © (28.04.09 13:25) [11]

Я видел. Описка. Не смертельно.

Anatoly Podgoretsky (2009-04-28 13:25:00) [23]

> Юрий Зотов © (28.04.09 12:47) [8]

> У меня есть четыре поля ( a , b , с, d)

> и нажав кнопку "d"

А сам то :-)

Юрий Зотов (2009-04-28 13:24:00) [24]
> Sowyer (28.04.09 12:48) [9]

1. Обработчик z.OnChange:
c.Enabled := z.Text = 'хай'; d.Enabled := c.Enabled; ButtonSave.Enabled := c.Enabled;
Вместо Enabled можно использовать ReadOnly, изменив первое условие на обратное.

2. Обработчик ButtonSave.OnClick:
Сохранение изменений.
Как именно их сохранить - это зависит от того, что Вы называете изменениями, куда хотите их сохранить и для чего это нужно.

Sowyer (2009-04-28 12:48:00) [25]
теперь другой вопрос:

У нас есть программа:
procedure TForm1.gClick(Sender: TObject); // Событие OnClick кнопки g
begin
if (a.Text = 'привет') and (b.Text = 'пока') then
begin
c.Text = 'готовая';
d.Text = 'программа'
end
end;

Появилось новое поле "z", когда в него вводишь - "хай", то появляеться возможность редактировать (c.Text; d.Tex) в самой программе и сохранять изменения (и как сохранить изменения?) , если поле остаеться пустое, то только смотреть (c.Text; d.Tex) без возможности редактировать.? Заранее спасибо))

Юрий Зотов (2009-04-28 12:47:00) [26]
> Ega23 © (28.04.09 12:45) [7]

И нарушил бы условия ТЗ.

Ega23 (2009-04-28 12:45:00) [27]

> a.Text = 'привет'

AnsiUpperCase(Trim(a.Text)) = 'ПРИВЕТ'

Я бы так сделал.

Плохиш (2009-04-28 12:37:00) [28]

> Sowyer (28.04.09 12:34) [5]
>
> я понимаю, только где эти книг брать?

В центре Штуттгарта есть два больших книжных магазина. Адреса давать?

Sowyer (2009-04-28 12:34:00) [29]
я понимаю, только где эти книг брать?)

Плохиш (2009-04-28 12:31:00) [30]

> я хочу научиться

Вообще-то, кто хочет "научиться", тот начинает с чтения книг.

Юрий Зотов (2009-04-28 12:29:00) [31]
> Sowyer (28.04.09 12:01)

procedure TForm1.gClick(Sender: TObject); // Событие OnClick кнопки g
begin
if (a.Text = 'привет') and (b.Text = 'пока') then
begin
c.Text = 'готовая';
d.Text = 'программа'
end
end;

Sowyer (2009-04-28 12:11:00) [32]
о0, причем здесь университет?)) я хочу научиться просто для себя)

Anatoly Podgoretsky (2009-04-28 12:09:00) [33]
Ну и задания в университете дают - это же на кандидатскую тянет.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »