Текст в Combobox

Тема в разделе "Delphi - Компоненты", создана пользователем Kakashka, 15 дек 2007.

Статус темы:
Закрыта.
  1. Kakashka

    Kakashka Гость

    Подскажите какое свойство у Combobox, если текст в строке слишком длинный, чтобы он полностью отображался при раскрывании списка.
     
  2. root

    root Гость

    Для: Kakashka
    Код (Text):
    var
    Form1: TForm1;
    GlobalHint:THintWindow;

    implementation

    {$R *.dfm}

    procedure TForm1.ComboBox1Change(Sender: TObject);
    var
    p: TPoint;
    r: TRect;
    ArrayHintString: array[0..255] of Char;
    begin
    if GlobalHint<>nil then GlobalHint.Free;
    GlobalHint := THintWindow.Create(Form1 );
    p:=ComboBox1.ClientOrigin;
    r:=Bounds(0 , 25, ComboBox1.Width , 0 );
    DrawText(GlobalHint.Canvas.Handle, StrPCopy(ArrayHintString, ComboBox1.Text ), -1, r, DT_CALCRECT or DT_LEFT or DT_WORDBREAK or DT_NOPREFIX);
    OffsetRect(r,p.X, p.Y);
    GlobalHint.ActivateHint(r ,ComboBox1.Text );

    end;
    И поменяйте ник, УЖАС.
     
  3. Kakashka

    Kakashka Гость

    Спасибо! Отлично работает! Хотелось бы конечно как в офисе где названия шрифтов, но наверно это сложно! Так что и так сойдёт!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей