• Registered: 2023-08-19
  • Posts: 61

Topic: Скрывает компонент по истечению даты

Здравствуйте.
Подскажите пожалуйста как скрыть компоненты (текст и панель) по заданной дате.
Например:
В январе 2024 скрыть ТЕКСТ
7 января скрыть ПАНЕЛЬ

procedure Form1_OnShow (Sender: TObject; Action: string);
begin

end;
Post's attachments

Attachment icon time.rar 292.21 kb, 25 downloads since 2024-01-05 

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 455

Re: Скрывает компонент по истечению даты

Новичок wrote:

Здравствуйте.
Подскажите пожалуйста как скрыть компоненты (текст и панель) по заданной дате.
Например:
В январе 2024 скрыть ТЕКСТ
7 января скрыть ПАНЕЛЬ

procedure Form1_OnShow (Sender: TObject; Action: string);
begin

end;

procedure Form1_OnShow (Sender: TObject; Action: string);
var
  myDate : TDateTime = SQLDateTimeToDateTime('2024-01-01 00:00:00.000');
begin
  if Now > myDate then form1.Label1.Visible := false;
end;
  • Registered: 2023-08-19
  • Posts: 61

Re: Скрывает компонент по истечению даты

procedure Form1_OnShow (Sender: TObject; Action: string);
var
  myDate : TDateTime = SQLDateTimeToDateTime('2024-01-01 00:00:00.000');
begin
  if Now > myDate then form1.Label1.Visible := false;
end;

Спасибо большое за помощь