디자인 길이와 실행시 내용이 다를때 자동 조정


var
    i, ItemWidth: Integer;
begin
    ItemWidth := 0;
    // 최대 pixel수를 구한다
    for i := 0 to (Sender as ComboBox).Items.Count - 1 do
    if GetTextWidth((Sender as ComboBox).Items[i]) > ItemWidth then
    ItemWidth := GetTextWidth((Sender as ComboBox).Items[i]) + 8;

// ComboBox 의 Drop-Down list 의 width를 변경하는 것은 단지
// pixel를 파라미터로 하여 CB_SETDROPPEDWIDTH 메시지를
// ComboBox 보내면 된다
(Sender as ComboBox).Perform(CB_SETDROPPEDWIDTH, ItemWidth, 0);


end;