TDateTimePicker

← →
cyborg © (2004-01-22 09:31) [0]

Как получить у него ту строку с датой, которая отображается на компоненте?
Там например "21 января 2004 г." показывается, вот эту строку нужно.

← →
Романов Р.В. © (2004-01-22 09:34) [1]

formatdatetime("dd mmmm yyyy г.", DateTimePicker1.date)

← →
cyborg © (2004-01-22 09:53) [2]

Не пойдёт!
Так получится "21 Январь 2004 г."

← →
Романов Р.В. © (2004-01-22 10:25) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
SetLength(s, SendMessage(DateTimePicker1.Handle, WM_GETTEXTLENGTH, 0, 0)+1);
SendMessage(DateTimePicker1.Handle, WM_GETTEXT, wParam(Length(s)), lParam(@s[1]));
ShowMessage(s);
end;

Спасибо, работает!

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