Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как добавить строки в ComboBox ???? 
V
    Опции темы
BLACK_KOT
Дата 12.9.2010, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1



Код

program BLACK_KOT;

uses Messages,Windows;

var
Form1,ComboBox1,ListBox1 : HWND;
BLACK_KOT_window: TWndClass;
Msg: TMsg;

procedure setFont(w:HWND);  //устанасливает шрифт по умолчанию
begin
SendMessage(w,WM_SETFONT,GetStockObject(ANSI_VAR_FONT),1);
end;



//--------------------главный обработчик сообщений
function WndProc(hnd, wmsg, wparam, lparam: integer): integer; stdcall;
begin
Result:=0;
case wmsg of
  WM_CREATE:
  begin
  ComboBox1:=CreateWindowEx(0, 'ComboBox', 'ComboBox1',  CBS_DROPDOWN or WS_VISIBLE or WS_CHILD,104, 32, 145,21, hnd, 0, HInstance, nil);setFont(ComboBox1);
    SendMessage(ComboBox1,CB_ADDSTRING,0,integer(pchar('первая строка')));
    SendMessage(ComboBox1,CB_ADDSTRING,0,integer(pchar('вторая строка')));   // ПОЧЕМУ СТРОКИ НЕ ДОБАВЛЯЮТСЯ ? ? ?????????????
    SendMessage(ComboBox1,CB_ADDSTRING,0,integer(pchar('третья строка')));
    SendMessage(ComboBox1,CB_INSERTSTRING,0,integer(pchar('4 строка')));

  ListBox1:=CreateWindowEx(WS_EX_CLIENTEDGE, 'ListBox', '',  WS_VSCROLL or WS_VISIBLE or WS_CHILD,32, 64, 233,97, hnd, 0, HInstance, nil);setFont(ListBox1);
    SendMessage(ListBox1,LB_ADDSTRING,0,integer(pchar('первая строка')));
    SendMessage(ListBox1,LB_ADDSTRING,0,integer(pchar('вторая строка')));  // А ЗДЕСЬ ДОБАВЛЯЮТСЯ !!!!!!!!!!!!!
    SendMessage(ListBox1,LB_ADDSTRING,0,integer(pchar('третья строка')));
    SendMessage(ListBox1,LB_INSERTSTRING,3,integer(pchar('4 строка')));
  end;
  WM_DESTROY: PostQuitMessage(0);
  else Result:=DefWindowProc(hnd, wmsg, wparam, lparam);
  end;
end;

Procedure CreateMySelf;
begin
with BLACK_KOT_window do
  begin
  lpszClassName:='BLACK_KOT_window';
  lpfnWndProc:=@WndProc;
  hCursor:=LoadCursor(hInstance, IDC_ARROW);
  hbrBackground:=COLOR_3DSHADOW;
  end;
RegisterClass(BLACK_KOT_window);
Form1:=CreateWindowEx(0, 'BLACK_KOT_window','Form1', WS_OVERLAPPEDWINDOW or WS_VISIBLE,346, 216, 355,200, 0, 0, HInstance, nil);setFont(Form1);;
end;

begin
CreateMySelf;
while GetMessage(Msg, 0, 0, 0) do
  begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
  end;
end.


  КАК ДОБАВИТЬ СТРОКИ В ComboBox ????


--------------------
                       .. я - демо версия Бога от Microsoft..
PM MAIL   Вверх
Maks1509
Дата 12.9.2010, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 22.8.2007
Где: г. Тольятти

Репутация: нет
Всего: 5



Всё добавляется, просто у тебя высота 21 указана, сделай больше и увидишь раскрывающийся листбокс. smile
PM MAIL ICQ   Вверх
BLACK_KOT
Дата 12.9.2010, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1



ВОТ ВЕДЬ, РЕАЛЬНО САМ СТУПИЛ


--------------------
                       .. я - демо версия Бога от Microsoft..
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0610 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.