[Oreon]

Добрый день! Столкнулся с такой проблемой, на первый взгляд тривиальной. Есть комбобокс, в нем хранится (и предлагается на выбор) список последних посещенных директорий. Перед переходом в директорию осуществляется проверка ее существования. Если директории уже не существует - переход в некий каталог по умолчанию. Вот этот каталог в список комбобокса заносить не надо, но если мы в него перешли - его надо отображать в заголовке комбобокса. Что делаю:

Код:

ComboBox1.Text:=wd;

но в этом случае все равно отображает текст выбранного итема.

Как отобразить текст, которого нет в списке комбобокса?

[~TB~]

Как вариант добавить item и выбрать его. При фокусировке удалять.

[NumLock]

мало информации...
стиль у ComboBox == csDropDownList? тогда он отображает текст только из выбранного Items или пусто если ItemIndex == -1.
если стиль csDropDown, то пользователь вообще не сможет вручную ввести имя папки - он будет постоянно сбрасываться на "по умолчанию".
это если делать обработку в событии OnChange.

если же сделать что обработка начнется при нажатии на кнопку, то все будет отлично работать и ComboBox1.Text:=''; и пользователь сможет руками набрать имя.

[Oreon]

~TB~ Ваш вариант пробовал - не помогает, да и не эстетично как-то

NumLock стиль стоит csDropDown список может быть раскрыт, можно писать в строке ввода - исходя из инета (проверено текст вручную вводится)
У меня проблема как раз не с тем, чтоб вручную ввести, проблема чтоб програмно заставить показать комбобокс текст отличный от того, что есть в его итемсах

[NumLock]

тогда вот это точно работает:

Код:

ComboBox1.Text:='any text';

на csDropDown

[angvelem]

Сообщение от NumLock

...если стиль csDropDown, то пользователь вообще не сможет вручную ввести имя папки - он будет постоянно сбрасываться на "по умолчанию"...

Явная оЧеПятка. Этот стиль как раз позволяет использовать Edit, встроенный в ComboBox, по-прямому назначению.

[Pyro]

не эстетичный способ тоже работает

[NumLock]

Сообщение от angvelem

Явная оЧеПятка. Этот стиль как раз позволяет использовать Edit, встроенный в ComboBox, по-прямому назначению.

нет, не очепятка. имелось в виду, что при стиле csDropDown пользователь как раз может вводить текст и когда он будет это делать, то обработчик события OnChange (я так понял в нем начинается основная обработка) будет постоянно сбрасывать не полностью, соответственно не правильное, введенное имя папки. к примеру пользователь хочет ввести "c:\WINDOWS", начинает "с" и хлоп - папки "с" нет. в итоге в ComboBox запишется значение "по умолчанию".

вообщем без минимального пректа ТС тут сложно подсказать решение.

[Oreon]

Сообщение от NumLock

тогда вот это точно работает:

Сообщение от Pyro

не эстетичный способ тоже работает

оно работает пока ничего не выбирать, а вы попробуйте сначала выбрать что-то в комбобоксе, а тогда присвоить...

[NumLock]

без проблем. выбирай что хочешь и жми на кнопку:
http://zalil.ru/33615169

[Oreon]

Это не совсем то - вводится лишняя кнопка, можно без кнопки поставить на onexit, но тогда нужно щелкать на другой компонент, что тоже не то. Задача стоит именно при выборе пользователем битого пути перебрасывать его на путь по умолчанию и показывать это в комбобоксе не занося его в список (ибо мусор) дабы не вводить пользователя в заблуждение.
PS: по перечисленным вами причинам работаю не через OnChange, а через OnSelect

[NumLock]

а как быть когда пользователь начинает руками набирать путь в поле?

[Oreon]

ввод заканчивается клавишей ентер, далее проверяем путь если он есть - добавляем в список и переходим, если путь битый - переходим на путь по умолчанию и нада его показать в комбобоксе, а он не показывается... ну в общем мы перешли на то с чего начали

[NumLock]

Код:

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Memo1: TMemo;
    procedure ComboBox1Select(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure SetDef(var Msg: TMessage); message WM_USER+$1001;
  public
    { Public declarations }
  end;
...
procedure TForm1.SetDef(var Msg: TMessage);
begin
  ComboBox1.Text:='d:\Documents';
  Memo1.Lines.Add(ComboBox1.Text);
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  if not DirectoryExists(ComboBox1.Text) then
    PostMessage(Handle, WM_USER+$1001, 0, 0)
  else
    Memo1.Lines.Add(ComboBox1.Text);
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then ComboBox1Select(ComboBox1);
end;

оно?

http://zalil.ru/33615616

[Oreon]

Обалдеть, работает! Большое спасибо, я правда представлял себе более, так сказать, простое решение, но видимо без вот таких хитростей не получится. Еще раз спасибо.