Почему не вываливается DateDime picker

[monrus]

ЗАсунул я в StringGrid DateDimePicker. При нажатии на определенную ячейку в ячейке появляется  определенная дата. А мне нужно чтобы вываливался сам DateDimePicker. А он вываливается если нажимаешь на кнопочку вываливания.
При установке DroppedDown:=True вываливается ошибка:
[Pascal Error] Unit1.pas(889): E2129 Cannot assign to a read-only property

хотя если поставить комбобокс и установить DroppedDown:=True, то при выборе определенной ячейки он сразу вываливается.
Помогите разобраться.

[monrus]

ну че, никто не знает?

[Oldy]

Какая версия Делфи? Как "ЗАсовывал"?  Если можно, то пожалуйста приведите фрагменты кода.

[zubr]

При установке DroppedDown:=True вываливается ошибка:
[Pascal Error] Unit1.pas(889): E2129 Cannot assign to a read-only property

Ну так естественно, для  TDateDimePicker данное свойство только для чтения, оно только сообщает что компонент вывалился. Глянь исходники на компонент. Чтобы сделать как ты хочешь, сдается мне надо компоненту посылать сообщение WM_NOTIFY с определенными параметрами. Короче поройся в исходниках TDateDimePicker или посмотри в MSDN WM_NOTIFY.

[zubr]

Вообще то можно сделать так:

Код:

procedure TForm1.DateTimePicker1Click(Sender: TObject);
begin
 DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
 DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
end;

[monrus]

оно работает, но как-то странно. пикер вываливается., но при выборе даты она заносится в ячейку, где од этого был курсор.

[zubr]

Код в студию.

[monrus]

у меня в СтрингГриде в 5-й строке установлен ДейтТаймПикер.
Допустим, на жал я на ячейку в 4-й строке, а затем в 5-й. Вываливается пикер, я выбираю дату, но ДАТА УСТАНАВЛИВАЕТСЯ В ЯЧЕЙКЕ 4-Й СТРОКИ, которая до этого была выделена. Почему?

Код:

if ARow=5 then // если нажата строка 5
		begin
		
		R := SG2.CellRect(ACol, ARow); // SG2 - StringGrid
		R.Left := R.Left + SG2.Left;
		R.Right := R.Right + SG2.Left;
		R.Top := R.Top + SG2.Top;
		R.Bottom := R.Bottom + SG2.Top;
		DT2.Left := R.Left + 1; // DT2 - DateTimePicker
		DT2.Top := R.Top + 1;
		DT2.Width := (R.Right + 1) - R.Left;
		DT2.Height := (R.Bottom + 1) - R.Top;
		DT2.Visible := True;
	  DT2.SetFocus;
    DT2.Perform(WM_KEYDOWN, VK_F4, 0);
    DT2.Perform(WM_KEYUP, VK_F4, 0);
    //DT2.DroppedDown:=True;
    
		end

[zubr]

Как я понимаю, это ты в событии SelectCell делаешь. По данному событию все должно работать. Наверно где то в другом месте проблема, показывай весь код или хотябы все что связано с стринггридом и пикером.

[RomCom]

Код:

if ARow=5 then
begin  Col:=ACol; Row:=ARow;
....
end;

procedure TForm1.DT2Change(Sender: TObject);
begin
 SG2.Cells[Col,Row]:=DateTimeToStr(DT2.DateTime);
end;

[zubr]

RomCom, это же обработчик события, а не перегружаемая функция класса-предка и не перехватываемое сообщение, здесь inherited ничего не даст.

[RomCom]

RomCom, это же обработчик события, а не перегружаемая функция класса-предка и не перехватываемое сообщение, здесь inherited ничего не даст.

Извиняюсь, понедельник день тяжелый. Отправил и только потом понял что написал бред. Испаравил.
С сохранением Col:=ACol; Row:=ARow; у меня работает.

[monrus]

вот пример

[zubr]

monrus, проблема в том, что ты пытаешься в событии DT2Change, вставить выбранное значение пикера в выбранную ячейку стринггрида, но событие DT2Change происходит раньше чем закончится SG2SelectCell, поэтому значение попадает в предыдущую выбранную ячейку. Как вариант решения данной проблемы, создаем 2 глобальных переменных, в которых будем сохранять значения строки и столбца выбранного пикера:

Код:

public
    { Public declarations }
    ColSelect:Integer;
    RowSelect:Integer;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ColSelect:=SG2.Col;
 RowSelect:=SG2.Row;
end;

else
		if ARow=5 then
		begin
		Memo1.Visible:=False;
		Sex.Visible:=False;

		R := SG2.CellRect(ACol, ARow);
		R.Left := R.Left + SG2.Left;
		R.Right := R.Right + SG2.Left;
		R.Top := R.Top + SG2.Top;
		R.Bottom := R.Bottom + SG2.Top;
		DT2.Left := R.Left + 1;
		DT2.Top := R.Top + 1;
		DT2.Width := (R.Right + 1) - R.Left;
		DT2.Height := (R.Bottom + 1) - R.Top;
		DT2.Visible := True;
                ColSelect:=ACol;
                RowSelect:=ARow;
	  DT2.SetFocus;
    DT2.Perform(WM_KEYDOWN, VK_F4, 0);
    DT2.Perform(WM_KEYUP, VK_F4, 0);

И убери CanSelect := True; - это бесполезно.

[monrus]

спасибо, zubr, за интересное решение, но почему тогда комбик нормально работает?

[monrus]

или без
 DT2.Perform(WM_KEYDOWN, VK_F4, 0);
    DT2.Perform(WM_KEYUP, VK_F4, 0);
тоже работает?

[zubr]

почему тогда комбик нормально работает?

Комбик и пикер совсем разные компоненты. Если смотреть по иерархии классов, то они "дальние родственники".

или без
 DT2.Perform(WM_KEYDOWN, VK_F4, 0);
    DT2.Perform(WM_KEYUP, VK_F4, 0);
тоже работает?

Потому что имитируя нажатие кнопки F4 действие происходит внутри обработчика SelectCell и пока пользователь дату не выберет, событие SelectCell не завершится. Изменение значения ячейки стринггрида ты делаешь в событии пикера OnChange, которое происходит внутри события SelectCell, а так как SelectCell еще не завершилось стринггрид "не понимает", что выбранная ячейка изменилась и выдает адрес предыдущей ячейки.