Комбобох

[BastAngel]

Можно ли сделать так, что бы при выборе в одном комбобоксе допустим XX век, в эдите можно было бы ввести год только от 1900 до 1999, и если бы мы вводили 1899 то выбивалось бы сообщение что "год указан не верно"?

[Stilet]

Почему бы нет? пропиши условие

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
 if Key=#13 then begin
   i:=StrToIntDef(TEdit(Sender).Text,0);
   if (ComboBox1.Text='XX век')and((i<1900)or(i>2000)) then ShowMessage('Неверно вводишь');
 end;
end;

Это в КейПрессе эдита

[BastAngel]

Не работает(

[Алекс!]

Можно так:

PHP код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
 if Key=#13 then begin
   i:=StrToInt(edit1.text);
   if (ComboBox1.Text='XX век')and((i>1900)or(i<2000)) then ShowMessage('Неверно вводишь');
 end;
end; 


[Stilet]

Не работает(

Не удивительно )
Это реализация. Только код события. Событие еще нужно назначить контроллу (В объекте инспекторов например мышкой), чего ты скорее всего не сделал.

[BastAngel]

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

Не удивительно )
Это реализация. Только код события. Событие еще нужно назначить контроллу (В объекте инспекторов например мышкой), чего ты скорее всего не сделал.

Если не трудно можешь расписать?*

[Stilet]

А книжки почитать? С Иллюстрациями, где показано куда кликать?
Как я словами опишу? Может у тебя Делфи настроено не так как у меня.
Узнай как создавать в инспекторе объектов событие и поймешь что делать.

[BastAngel]

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

А книжки почитать? С Иллюстрациями, где показано куда кликать?
Как я словами опишу? Может у тебя Делфи настроено не так как у меня.
Узнай как создавать в инспекторе объектов событие и поймешь что делать.

Смотри, у меня получается идет форма, на ней расположены два комбобокса и три эдита, "Тип, зал, название, автор, год создания" после заполнения нажимаем на кнопку и эти данные вносятся в таблицу БД. Так вот при выборе в комбобоксе "Зал" XX век, и если я в едите "год создания" внесу 1899 год(и тп.) нажму на кнопку и вот тогда что бы вылетело сообщение.

Как-то так.

Может теперь сможешь помочь?

[Stilet]

Тем кто цурается книг уже ничем не помочь.
Вот:

var i:integer;
begin
   i:=StrToIntDef(EditГодаСоздания.Text,0);
   if (ComboBox1.Text='XX век')and((i<1900)or(i>2000)) then ShowMessage('Неверно вводишь');
end;

Внесешь это в обработчик клика кнопки.