CheckBox - глупый вопрос

[JRcoker]

Здравствуйте...Глупый вопрос относительно CheckBox ну уж угараздило меня на нём повиснуть..

На форме Edit1,Edit2,Label1,Button1,CheckBox 1...
Допустим код

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption=Edit1.Text;
end;

Как мне зделать так чтоб если на CheckBox стоит галочка выводился текст не из Edit1 а из Edit2(можно исходником)?...

[Kostia]

if CheckBox1.State=cbchecked then Label1.Caption=Edit2.Text
  else Label1.Caption=Edit1.Text;

У CheckBox есть поле State, в нем хранится его текущее состояние.
Советую скачать книжку "100 компонентов Delphi", часто выручает.

[Serge_Bliznykov]

а if CheckBox1.Checked then .... else
не проще будет? ;-)

[mutabor]

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

а if CheckBox1.Checked then .... else
не проще будет? ;-)

Это то же самое, происходит обращение к свойству State. Но запись действительно короче.