Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
TComboBox & TStringGrid Найти похожие ветки
← →
Hint © (2004-04-26 11:14) [0]Привет All!
procedure TForm1.Button1Click(Sender: TObject);
var CmBox: TComboBox;
begin
CmBox := TComboBox.Create(Form1);
CmBox.Parent := StringGrid1;
CmBox.BoundsRect := StringGrid1.CellRect(0, 1);
CmBox.Items.Text := "1" + #$D#$A + "2" + #$D#$A + "3";
end;
Все хорошо, но не выпадает список у ComboBox. Почему?
← →
PKT (2004-04-26 11:22) [1]Опусти низ у BoundsRect, например
R := StringGrid1.CellRect(0, 1);
R.Bottom := R.Bottom + 30;
CmBox.BoundsRect := R;
← →
Hint © (2004-04-26 11:40) [2]To PKT
Работает :o)
Работет также принудительная посылка сообщение WM_COMMAND.
А пачему? Из-за чего?
Я посылаю WM_COMMAND потому что оно не доходит до ComboBox. А чем помогает увеличение BoundsRect? Связь какая?
Страницы: 1 вся ветка
Текущий архив: 2004.04.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.072 c
