пропадает курсор перестает быть видимым

[leon777]

При программном присвоении:

ComboBox1.DroppedDown:=True;

пропадает курсор, т.е. перестает быть видимым.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
procedure ComboBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE, 1, 1)<>1
then
ComboBox1.DroppedDown:=true;
end;

end.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[mihali4]

Ничего никуда не пропадает...

[leon777]

пропадает..