комбобокс как у майл.ру!!!

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by cyberkazi, 20 Apr 2011.

  1. cyberkazi

    cyberkazi New Member

    Joined:
    19 Apr 2011
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Приветствую, эксперты Delphi! Есть прога mail.ru при запуске есть окно авторизации. Там имеется два кобобокса:
    1.Имя пользователя
    2.Сервера @mail.ru, @list.ru и т.д.
    Так в списке 1-го кобобокса имеется имена пользователей, скажем kazi@mail.ru
    Так воот при выборе одного из пользователей (в нашем случае kazi@mail.ru) в едит 1-го кобобокса попадает запись kazi без @mail.ru, а значение во 2-м комбобоксе изменилась @mail.ru!!!
    Вопрос??? как на делфи можно сделать такое с кобобоксом???

    Внизу выложил скрин, подскажите пожалуйста желательно на примерах и исходниках!!!

    Вот ссылка на скрин http://savepic.org/1699198.jpg
     
  2. M_script

    M_script Members of Antichat

    Joined:
    4 Nov 2004
    Messages:
    2,582
    Likes Received:
    1,310
    Reputations:
    1,557
    В OnChange первого комбобокса:
    PHP:
    if(ComboBox1->Text.Pos("@mail.ru"))
        
    ComboBox2->ItemIdex 0;
    else if(
    ComboBox1->Text.Pos("@inbox.ru"))
        
    ComboBox2->ItemIdex 1;
    else if(
    ComboBox1->Text.Pos("@list.ru"))
        
    ComboBox2->ItemIdex 2;
    else if(
    ComboBox1->Text.Pos("@bk.ru"))
        
    ComboBox2->ItemIdex 3;
        
    ComboBox1->Text.SetLength(ComboBox1->Text.Pos("@") - 1);