Control '' has no parent window. при создание DateTimePicker

[bakanaev]

Сабж

     
begin
  TabSheet := TTabSheet.Create(Self);
  inc(pg_num);
  TabSheet.Caption := 'Закладка ' + IntToStr(pg_num);
    DateTimePicker4:=TDateTimePicker.Create(self);
      with DateTimePicker4 do begin
        Left:= 274;
        Top:= 69;
        Width:= 81;
        Height:= 21;
        Date:= 0.829971863422542800;
        Format:= 'yyyy-MM-dd';
        Time:= 0.829971863422542800;
        TabOrder:= 3;
        Parent:=TabSheet;
      end;
  TabSheet.PageControl := PageControl1;
end

Создаю вкладку у PageControl и уже на вкладке данный компонент.
Если убрать строку

Format:= 'yyyy-MM-dd';

то все ок.
Что нужно поправить?)
Спасибо!

[s-andriano]

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

Что нужно поправить?)

убрать строку

Format:= 'yyyy-MM-dd';

[bakanaev]

Сообщение от s-andriano

убрать строку

Format:= 'yyyy-MM-dd';

))) А по другому ни как?
Формат такой хочется

[s-andriano]

Какой вопрос - такой ответ.
Если все устраивает - зачем что-то менять.
А если не устраивает, то именно об этом и нужно написать. Телепатов здесь нет.

[bakanaev]

Сообщение от s-andriano

А если не устраивает, то именно об этом и нужно написать.

Аха, думал все понятно будет) Ну да ладно.
Нужен такой формат yyyy-MM-dd, но если создавать компонент динамически вот так

begin
  TabSheet := TTabSheet.Create(Self);
  inc(pg_num);
  TabSheet.Caption := 'Закладка ' + IntToStr(pg_num);
    DateTimePicker4:=TDateTimePicker.Create(self);
      with DateTimePicker4 do begin
        Left:= 274;
        Top:= 69;
        Width:= 81;
        Height:= 21;
        Date:= 0.829971863422542800;
        Format:= 'yyyy-MM-dd';
        Time:= 0.829971863422542800;
        TabOrder:= 3;
        Parent:=TabSheet;
      end;
  TabSheet.PageControl := PageControl1;
end

то вылетает ошибка которая в название темы.
Что требуется поправить ?

[Аватар]

Parent:=TabSheet; вставить сразу после создания DateTimePicker.
В SetFormat есть обращение к Handle, а без Parent тю-тю

[bakanaev]

Аватар, Вы как всегда выручили ))) Большое спасибо!!