• From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Topic: Состояние компонента в зависимости от состояния DateTimePicker

Не получается решить задачу:
если хотя бы один из двух DateTimePicker = False, то и две кнопки тоже False. Если состояние обоих DateTimePicker меняем на True, то и состояние кнопок становитя True.

Post's attachments

Attachment icon DateTimePicker_Button.zip 2.88 kb, 437 downloads since 2015-04-29 

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Состояние компонента в зависимости от состояния DateTimePicker

Попробуйте так

procedure Form1_DateTimePicker2_OnChange (Sender: string);
begin
    if (Form1.DateTimePicker1.Checked = True) and (Form1.DateTimePicker2.Checked = True) then
    begin
        Form1.Button1.Enabled := True;
        Form1.Button2.Enabled := True;
    end else
    begin
        Form1.Button1.Enabled := False;
        Form1.Button2.Enabled := False;
    end
end;

procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
    if (Form1.DateTimePicker1.Checked = True) and (Form1.DateTimePicker2.Checked = True) then
    begin
        Form1.Button1.Enabled := True;
        Form1.Button2.Enabled := True;
    end else
    begin
        Form1.Button1.Enabled := False;
        Form1.Button2.Enabled := False;
    end
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    if (Form1.DateTimePicker1.Checked = True) and (Form1.DateTimePicker2.Checked = True) then
    begin
        Form1.Button1.Enabled := True;
        Form1.Button2.Enabled := True;
    end else
    begin
        Form1.Button1.Enabled := False;
        Form1.Button2.Enabled := False;
    end
end;
Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Состояние компонента в зависимости от состояния DateTimePicker

Спасибо, работает вот так:

procedure Form1_DateTimePicker2_OnChange (Sender: string);
begin
    if (Form1.DateTimePicker1.Checked = True) and (Form1.DateTimePicker2.Checked = True) then
    begin
        Form1.Button1.Enabled := True;
        Form1.Button2.Enabled := True;
    end else
    begin
        Form1.Button1.Enabled := False;
        Form1.Button2.Enabled := False;
    end
end;

procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
    if (Form1.DateTimePicker1.Checked = True) and (Form1.DateTimePicker2.Checked = True) then
    begin
        Form1.Button1.Enabled := True;
        Form1.Button2.Enabled := True;
    end else
    begin
        Form1.Button1.Enabled := False;
        Form1.Button2.Enabled := False;
    end
end;

procedure Form1_OnShow (Sender: string; Action: string);
    begin
        Form1.Button1.Enabled := False;
        Form1.Button2.Enabled := False;
    end;



begin

end.
Post's attachments

Attachment icon DateTimePicker_Button.zip 3.45 kb, 437 downloads since 2015-04-29 

Не боги горшки лепят!