А. Григорьев - О чём не пишут в книгах по Delphi

ComboBox1.Items.Clear;

ComboBox1.Items.AddObject('Text', TObject(-1));

I := SendMessage(ComboBox1.Handle, CB_GETITEMDATA, 0, 0);

Label1.Caption := IntToStr(I);

end;

Как уже было отмечено ранее, в BDS 2006 и более поздних версиях исключение не возникает. Это связано с новой реализацией метода TCustomComboBoxStrings.GetObject, который отвечает за получение значения свойства Items.Object(листинг 3.58).

function TCustomComboBoxStrings.GetObject(Index: Integer): TObject;

begin

Result := TObject(SendMessage(ComboBox.Handle, CB_GETITEMDATA, Index, 0));

// Do additional checking on Count and Index here is so in the event

// the object being retrieved is the integer -1 the call will succeed

if (Longint(Result) = CB_ERR) and ((Count = 0) or

(Index < 0) or (Index > Count)) then

Error(SListIndexError, Index);

end;

Решение спорное, т.к. проверка корректности системой дополняется собственной проверкой индекса, и не совсем понятно, что делать в том случае, если система фиксирует какую-либо ошибку, не связанную с индексом. Но здесь Windows ставит разработчика в такие условия, что любое решение будет спорным, так что упреком по отношению к разработчикам VCL такая оценка их решения не является.

В таких элементах управления, как TListViewи TTreeView, тоже существует возможность связывания 4-байтного значения с элементом (см. свойства TTreeNode.Data, TListItem.Data), но сообщения TVM_GETITEMи LVM_GETITEM, через которые можно получить значения этих свойств, устроены иначе, поэтому связывание с элементом значения -1 (а также любого другого 4-байтного значения) не приводит к аналогичным проблемам.

Свойство Anchors, появившееся в Delphi 5, является очень удобным средством управления положением и размерами визуальных компонентов при изменении размера родителя. Однако в тех случаях, когда начальные размеры формы по каким-то причинам не совпадают с установленными при проектировании, задание значения свойства Anchorsне приносит желаемого эффекта: первоначальное расположение визуальных компонентов на форме соответствует размерам, установленным при проектировании, а не тем, которые реально получила форма. Примеры такого некорректного поведения демонстрирует программа WrongAnchors на компакт-диске.

Программа WrongAnchors — это MDI-приложение, в котором открываются две дочерние формы разных классов: ChildForm1(класс TChildForm1) и ChildForm2(класс TChildForm2). Во время проектирования эти две формы выглядят совершенно одинаково, но при запуске программы только вторая форма сохраняет заданные при проектировании размеры, а первая становится больше. При этом панель, лежащая на ней, не адаптирует свои размеры к изменившемуся размеру формы, хотя свойство Anchors обязывает ее к этому (это легко видеть, изменяя размеры формы после ее создания). Самый простой способ борьбы с этой неприятностью — заставить дочернюю MDI-форму иметь такой же начальный размер, какой задан при проектировании.

Дочерняя MDI-форма приобретает отличный от заданного размер потому, что метод CreateParamsдля ширины и высоты окна устанавливает не те значения, которые хранятся в свойствах Widthи Height, а значение CW_USERDEFAULT. Это значение говорит системе, что она должна выбрать размеры окна на свое усмотрение. Чтобы этого не происходило, нужно вновь вернуть установленные при проектировании значения ширины и высоты в перекрытом методе CreateParams. Именно этим класс TChildForm2отличается от TChildForm1(листинг 3.59).

procedure TChildForm2.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.Width := Width;

Params.Height : = Height;

end;

Значение CW_USERDEFAULTприсваивается ширине и высоте окна не только в том случае, если это дочерняя MDI-форма, но и когда значение свойства Positionформы равно poDefaultили poDefaultSizeOnly. Но в этом случае перекрывать CreateParamsнет нужды, достаточно просто изменить значение свойства Positionна другое. Просто необходимо помнить, что если свойство Positionформы имеет одно из этих значений, свойства Anchorsлежащих на форме компонентов должны иметь значения по умолчанию.

Другой случай, когда окно может при создании иметь размеры, отличные от заданных при проектировании, — это когда свойство WindowStateравно wsMaximized. При этом окно растягивается на весь экран. В примере WrongAnchors в главном меню есть пункты Развернутое окно 1и Развернутое окно 2, которые открывают диалоговые окна, развернутые на весь экран. Но в первом из этих окон панель опять не адаптируется к новым размеру окна, в то время как во втором — адаптируется, хотя значения свойства Anchorsу обеих панелей одинаковые. Это происходит потому, что в первом случае значение wsMaximizedприсваивается свойству WindowStateво время проектирования, и поэтому окно сразу создается развернутым. А во втором случае значение wsMaximizedприсваивается свойству WindowStateтолько при обработке события OnShowформы, т.е. тогда, когда форма уже создана с заданными при проектировании размерами, но еще не видна на экране. При этом свойство Anchorsработает так, как требуется. Это и есть решение проблемы — значение свойству WindowState нужно присваивать не во время проектирования, а в обработчике события OnShow.

Но самое интересное происходит, если свойство WindowStateво время проектирования получило значение wsMaximized, а свойство Position— значение poDefaultили poDefaultSizeOnly. Тогда размеры и положения визуальных компонентов на форме будут адаптированы к размеру, который не совпадает ни с размером развернутой формы, ни с размером, заданным во время проектирования. Если такой форме отменить развертывание на весь экран, то визуальные компоненты получат размеры и положения, установленные в режиме проектирования.

Нельзя сказать, что разработчики Delphi не знакомы с этой проблемой, они даже что-то делают, чтобы ее решить. Начиная с BDS 2006 можно устанавливать значение свойства WindowStateв режиме проектирования, и визуальные компоненты на такой форме будут вести себя интуитивно ожидаемым образом, т.е. адаптироваться к размеру формы, растянутой на весь экран. Правда, с двумя существенными оговорками. Во-первых, свойство Position формы не должно быть равно poDefaultили poDefaultSizeOnly. Во-вторых, это относится только к главной форме приложения, для всех остальных форм проблема сохраняется. Поэтому пример WrongAnchors будет работать одинаково и в новых версиях Delphi, и в старых — там на весь экран разворачиваются не главные формы.