Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизComboBox помогите плиз!!! Найти похожие ветки
← →
Part (2002-11-21 10:09) [0]Мастера, я снова нужна Ваша помощь!! Как открывать combobox при нажатии Enter ?
← →
Smithson (2002-11-21 10:14) [1]Combobox1.DroppedDown := True // Открыть
Вставть в обработчик клавиатуры
← →
Song (2002-11-21 10:35) [2]CB_SHOWDROPDOWN
← →
Part (2002-11-21 10:40) [3]2 song
прости ламера :) а как этим пользоваться ? если можно небольшой пример
← →
Song (2002-11-21 10:55) [4]ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);
← →
Part (2002-11-21 11:43) [5]procedure TForm_R.MyKeyDown2(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ii: integer;
begin
if key = vk_return then
DBLookupComboBox4.Perform(CB_SHOWDROPDOWN,Integer(True),0);
end; я пытаюсь так но не работает ??
← →
Игорь Шевченко (2002-11-21 11:45) [6]DBLookupComboBox не имеет никакого отношения к ComboBox
RTFS: dbctrls.pas
← →
Part (2002-11-21 12:30) [7]procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(False),0);
end;
так тоже не работает. Народ, подсобите кто чем может :) плиииз
← →
Song (2002-11-21 12:42) [8]Я тебе уже подсобил. Мой пример у меня работает (только что проверил - вынудили Вы меня)
← →
Игорь Шевченко (2002-11-21 12:44) [9]wParam
Specifies whether the drop-down list box is to be shown or hidden. A value of TRUE shows the list box; a value of FALSE hides it.
Вот ты его и прячешь :-)
ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);
← →
AndrewVolkov (2002-11-21 13:06) [10]to Игорь Шевченко
to Part
а откуда вы знаете про Perform( CB_SHOWDROPDOWN,Integer(True),0);
где такое описывается???
← →
Song (2002-11-21 13:08) [11]Из хэлпа (я тоже кстати знаю :-) )
← →
Игорь Шевченко (2002-11-21 13:11) [12]AndrewVolkov (21.11.02 13:06)
win32.hlp ComboBox messages
← →
Part (2002-11-21 14:57) [13]открывать то я его открываю (если на кнопку вешаю ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);
), а вот чтобы лист окрывался не alt+стрелка вниз, а Enterom не могу. Я понимаю что всем надоел, но мне ну ооочень нужно!!!
← →
Part (2002-11-21 15:24) [14]procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_shift) or (key = vk_return) then
ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);
end;
вот в таком варианте shift открывает, а ентер не хочет. Никто не подскажет в чем тут фишка ?
← →
Lord Warlock (2002-11-21 15:27) [15]Вот тебе кусок примера:
var
Form1: TForm1;
Flag: Boolean=False;
implementation
{$R *.DFM}
procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_RETURN) then
if (not Flag) then
begin
ComboBox1.DroppedDown:=True;
Flag:=not Flag;
end
else
begin
ComboBox1.DroppedDown:=False;
Flag:=not Flag;
end;
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Flag) and (Key=VK_RETURN) then
ComboBox1.DroppedDown:=False;
end;
← →
Song (2002-11-21 15:33) [16]Ты всё ещё не сделал это открытие?
← →
Song (2002-11-21 15:33) [17]Вот вставь этот обработчик, всё будет работать:
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
IF Key=#13 then Key:=#0;
end;
← →
Part (2002-11-21 15:47) [18]спасибо выручили :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c