Показать сообщение отдельно
  #7  
Старый 11.08.2010, 11:00
roamer roamer вне форума
Активный
 
Регистрация: 15.04.2009
Сообщения: 369
Репутация: 93
По умолчанию

Не знаю, насколько это полезно (в данном контексте), но если привязать "контрол" к конкретной Excel ячейке (по правой кнопке меню вызвать редактор свойств и записать адрес соотв. ячейки в свойство LinkedCell), то достаточно делать просто обмен инфой с данной ячейкой. Автоматически это затронет и "контрол".
Например.
Если на Excel-лист положить ComboBox и привязать его к ячейке $A$1, то этот код работает :
Код:
procedure TForm1.Button3Click(Sender: TObject);
Var
  Vx : variant;
begin
  Excel.ActiveWorkbook.ActiveSheet.Cells[1,1]:='22222';
  Vx:=trim(Excel.ActiveWorkbook.ActiveSheet.Cells[1,1]);
  ShowMessage('1-  '+Vx);
  Excel.ActiveWorkbook.ActiveSheet.Cells[1,1]:='44444';
  Vx:=trim(Excel.ActiveWorkbook.ActiveSheet.Cells[1,1]);
  ShowMessage('2-  '+Vx);
end;
Ответить с цитированием