|
:: MVP ::
|
|
|
:: RSS ::
|
|
|
Как удалить отображение текущей даты из TDateTimePicker?
uses
{...,} CommCtrl;
procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
var
Wnd: HWND;
Style: Integer;
begin
Wnd := DateTime_GetMonthCal( ( Sender as TDateTimePicker ).Handle );
if Wnd <> 0 then
begin
Style := GetWindowLong( Wnd, GWL_STYLE );
SetWindowLong( Wnd, GWL_STYLE, Style or MCS_NOTODAY or MCS_NOTODAYCIRCLE );
end;
end;
|
Как заставить TDateTimePicker отображать номер недели?
uses
{...,} CommCtrl;
procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
var
Wnd: HWND;
Style: Integer;
begin
Wnd := DateTime_GetMonthCal( ( Sender as TDateTimePicker ).Handle );
if Wnd <> 0 then
begin
Style := GetWindowLong( Wnd, GWL_STYLE );
SetWindowLong( Wnd, GWL_STYLE, Style or MCS_WEEKNUMBERS );
end;
end;
|
|
При использовании материала - ссылка на сайт обязательна
|
|
