My Visual Database — Скрывает компонент по истечению даты

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

null@example.com (Новичок) — Fri, 05 Jan 2024 15:01:47 +0000

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;

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

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

null@example.com (pavlenko.vladimir.v) — Fri, 05 Jan 2024 08:49:59 +0000

Новичок 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;

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

null@example.com (Новичок) — Fri, 05 Jan 2024 08:21:25 +0000

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

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

end;