D5: Пропадает курсор (при DropDown в ComboBox)

[newmen_]

Проблема в следующем.

При программном присвоении:
ComboBox1.DroppedDown:=True;
пропадает курсор, т.е. перестает быть видимым.

Уже все вроде перепробовал... Может быть кто знает выход из этой ситуации?
Заранее спасибо!!

[x77]

если имеется ввиду, что курсор пропадает на поле ввода, то происходит это потому, что фокус перемещается на открывающийся список, а курсор показывается только на активном в данный момент элементе. чтобы он оставался на поле ввода, надо просто вернуть фокус обратно. При этом текущий текст в комбобоксе автоматически выделится, если этого тоже нужно избежать - то стоит сбросить SetLength в 0:

Код:

  ComboBox1.DroppedDown := TRUE;
  ComboBox1.SetFocus;
  ComboBox1.SelLength := 0;

upd: правда, я не знаю, как этот код себя поведёт в пятёрке (в D7 это работает), но вряд ли такие вещи сильно изменились.

[newmen_]

Прошу прощения, второпях забыл уточнить самую важную деталь!
Курсор пропадает у мыши (и над ComboBox и над формой его не видно), правда на клик и перемещение невидимого курсора приложение реагирует.
т.е. как будто выполнено - ShowCursor(false);

Хотя когда интерактивно разворачиваешь список ComboBox, то все видно.

[x77]

хы. у меня это не воспроизводится...

это не может быть "штатным", так сказать, глюком, чтобы при выполнении рутинной операции с экрана пропадал курсор. за такие чудеса Багланд бы уже давно грязно и цинично изнасиловали. попробуй выполнить прогу на другой машине. попробуй поменять параметры отображения окон в настройках винды (Show when dragging поставить в TRUE, например). в общем, если я правильно понял ситуацию, то это что-то связанное лично с твоим компом (виндой)

[DemonicAlligator]

oldcursor:=Screen.Cursor;
ComboBox1.DroppedDown:=True;
Screen.Cursor:=oldcursor;
Application.ProcessMessages;

попробуй?

[newmen_]

x77:
Не совсем. Курсор невидим только в пределах формы, за ее пределами все как обычно, не думаю, что дело в винде. Пробовали на разных машинах и разных делфях (d5, d7) - результат один.

Синий Аллигатор:
Я пробовал такой вариант в несколько другом виде:
ComboBox1.DroppedDown:=True;
Screen.Cursor:=crDefault;
и просто (для формы) Cursor:=crDefault;

это не помогает. Еще пробовал:
ShowCursor(true);

тоже бесполезно.   

[x77]

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

[DemonicAlligator]

А какие компоненты на форме лежат? нету ненароком, каких хитрых?

[newmen_]

неа, для чистоты эксперимента я создал отдельный проект с 1 формой и 1 КомбоБоксом

[x77]

newmen_, приведи весь код основного юнита, плз.

[newmen_]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit; //просто для табуляции
    procedure ComboBox1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function FindStr(substr:string; items1:TStrings):integer;
var
  i:integer;
begin
  result:=-1;
  for i:=0 to items1.Count-1 do begin
    if pos(AnsiUpperCase(substr),AnsiUpperCase(items1[i]))=1 then begin  //слово с 1-позиции
      result:=i; break;
    end;
  end;
end;

procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  ind,subLen:integer;
begin
  if (ord(key)<$30) then exit;

  ind:=FindStr(ComboBox1.Text,ComboBox1.Items);
  if ind>=0 then begin
    subLen:=length(ComboBox1.Text);
    ComboBox1.ItemIndex:=ind;
    ComboBox1.DroppedDown:=true;
    //Application.ProcessMessages;

    if subLen<length(ComboBox1.Text) then begin
      ComboBox1.SelStart:=subLen;
      ComboBox1.SelLength:=length(ComboBox1.Text)-subLen;
    end;
  end else ComboBox1.DroppedDown:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //для примера
  ComboBox1.Items.Add('Япония');
  ComboBox1.Items.Add('Австралия');
  ComboBox1.Items.Add('Россия');
  ComboBox1.Items.Add('Канада');
  ComboBox1.Items.Add('Швеция');
  ComboBox1.Items.Add('Франция');
end;

end.

это для поиска строк по Комбобоксу в 5-ке при наборе. Что-то вроде компенсации отсутствия в ней свойств, которые имеются в 7-ке: AutoComplete и AutoDropDown.
Т.е. вышеописанная проблема появляется при вводе букв - как только (при нахождении подстроки) раскрывается КомбоБокс.

[x77]

хех. это, всё-таки, стандартная фича. твои процедуры там не нужны, просто открой пустую форму, кинь на неё TEDit, и начни в него что-то вводить. курсор пропадает с экрана.

пока не уверен, что это можно как-то бороть. всё ренализовано на уровне TWinControl, а то и ниже.

[newmen_]

при вводе - да, но стоит только "пошевелить" мышью - курсор появляется. А здесь почему-то нет. Я пытался посмотреть, как у них классы реализованы, но для меня это слишком пока сложно.