1 Topic by kovalenko (edited by kovalenko 2017-06-08 11:18:31)

  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Topic: Через 2-а DatePicker управление отображения 3-х панелей. Решено.

Кто подскажет как реализовать следующий алгоритм. Имеем два DatePicker условно 1 и 2. Так-же имеем на другой вкладке три панельки, которые имеют надписи A, B, C. Алгоритм работы следующий:
- Не активен ни один из DatePicker-----------------активна/видна панелька А,     B и C не активны.
- Активен DatePicker 1 (галочка в CheckBox) ----активна/видна панелька B,     А и C не активны
- Активны DatePicker 1 и 2------------------------------активна/видна панелька C,    А и B не активны

Что-то не могу сообразить как сделать, да и знаний наверное не хватает. Для одного DatePicker делал так (может коряво)) :

procedure frmApplication_Button37_OnClick (Sender: string; var Cancel: boolean);
begin
   if frmApplication.DatePicker 1.Checked=True then
  begin
  frmApplication.PanelA.Visible := False;
  frmApplication.PanelB.Visible := True;
  frmApplication.PanelC.Visible := False;

     end;
     if frmApplication.DateReplacementDeviceOut.Checked=False then
  begin
  frmApplication.PanelA.Visible := True;
  frmApplication.PanelB.Visible := False;
  frmApplication.PanelC.Visible := False;

     end;
     end;

Как это реализовать для отработки алгоритма обоих DatePicker и по нажатию на одну кнопку????

надо идти вперёд....

2 Reply by kovalenko (edited by kovalenko 2017-06-08 13:12:39)

  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Re: Через 2-а DatePicker управление отображения 3-х панелей. Решено.

Всё сделал. Немного тупил)))

Кому интересно:

procedure frmApplication_Button37_OnClick (Sender: string; var Cancel: boolean);
begin

     if frmApplication.DateReplacementDeviceOut.Checked=False then
  begin
  frmApplication.Panel5.Visible := True;
  frmApplication.Panel6.Visible := False;
  frmApplication.Panel7.Visible := False;
     end;
  if frmApplication.DateReplacementDeviceIn.Checked=False then
  begin
  frmApplication.Panel5.Visible := True;
  frmApplication.Panel6.Visible := False;
  frmApplication.Panel7.Visible := False;
     end;
if frmApplication.DateReplacementDeviceOut.Checked=True then
  begin
  frmApplication.Panel5.Visible := False;
  frmApplication.Panel6.Visible := True;
  frmApplication.Panel7.Visible := False;
     end;
       if frmApplication.DateReplacementDeviceIn.Checked=True then
  begin
  frmApplication.Panel5.Visible := False;
  frmApplication.Panel6.Visible := False;
  frmApplication.Panel7.Visible := True;

     end;
   end;



Всем спасибо.

надо идти вперёд....