Скачать: CL | DM;

TDateTimePicker   Найти похожие ветки 

← →
novichek   (2012-04-15 02:17) [0]

установлен режим как дата, но необходимо иметь возможность ввода и времени.
установил формат даты: dd.MM.yyyy   HH:mm
в окне редактирования нормально отображается и редактируется время.
вот вопрос в том, как теперь это введенное время можно вытащить с этого долбаного компонента?
введенный текст хотя бы можно как-то достать?

---

← →
novichek   (2012-04-15 02:28) [1]

о-о, GetWindowText(DateBegTimePicker.Handle, ...
возвращает...

этот вариант стабильный?
других мыслей нет?

---

← →
Германн ©   (2012-04-15 02:58) [2]

> novichek   (15.04.12 02:28) [1]
>
> о-о, GetWindowText(DateBegTimePicker.Handle, ...
> возвращает...
>

"С дуба рухнул"?:)

---

← →
novichek   (2012-04-15 03:10) [3]

проверь, :

 function GetTimeFromDateTimePicker(d: TDateTimePicker): TDateTime;
 var
    b: PChar;
    i: Integer;
 begin
    result:= d.Date + EncodeTime(0, 0, 0, 0);
    GetMem(b, 100);
    try
      i:= GetWindowText(d.Handle, b, 100);
      b[i]:= #0;
      result:= StrToDateTimeDef(StrPas(b), result);
    finally
      freeMem(b);
    end;

 end;

есть другой вариант?

---

← →
Врач-ректолог   (2012-04-15 10:25) [4]

> есть другой вариант?

Есть - свойство Time. Но это плохой вариант, Ваш - самый лучший. Он мне ближе по специальности.

---

← →
sniknik ©   (2012-04-15 10:30) [5]

> Он мне ближе по специальности.
а ректолог вместо проктолог это по привычке все делать через это место? :)

---

← →
Врач-ректолог   (2012-04-15 10:45) [6]

> sniknik ©   (15.04.12 10:30) [5]

Какой способ - такой и врач.

---

← →
novichek   (2012-04-15 11:03) [7]

до Ваших великих умов хочу довести,
что если кинд стоит dtkDate,
то Ваше "свойство Time"  нихрена не будет корректироваться от того что Вы введете.
проктологи Вы наши...

---

← →
Ega23 ©   (2012-04-15 11:15) [8]

> то Ваше "свойство Time"  нихрена не будет корректироваться
> от того что Вы введете.

Уверен?

По сабжу: кладёшь два пикера, один для даты, другой для времени.

---

← →
novichek   (2012-04-15 11:23) [9]

Ega23 ©, угу... делал так раньше.. но это же не красиво (:
через ж..у прикольней выходит..

---

← →
novichek   (2012-04-15 11:32) [10]

>> Ega23 ©
>> Уверен?

угу, уверен по крайней мере для XE2

---

← →
sniknik ©   (2012-04-15 13:25) [11]

> до Ваших великих умов хочу довести,
раньше нужно было доводить, в чем проблема. в вопросе.
теперь не скажу, т.к. глубоко проктологическое решение... не сказав, защищу генофонд, возьму пример с защитника Касперского... (http://delphimaster.net/view/2-1334405334/)

---

← →
novichek   (2012-04-15 13:42) [12]

sniknik ©, бросай курить...  или бухать..

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.048 c