Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 088

/ вопрос закрыт /

Здравствуйте, уважаемые эксперты!

Приветствую, уважаемые эксперты!
тут у меня такая ситуация! Писал прогу взаимодействие с Mail.ru агентом, нажать программно на кнопки и отправить данные из edit моего приложения в edit Mail.ru (а именно в авторизацию пользователя) мне удалось, но не смог отправить данные из ComboBox
Что где не так плиз помогите!

Вот код:

procedure TForm1.Button3Click(Sender: TObject);
var
S,S1,S2:HWND;
begin
S:=findwindow(nil,'Авторизация пользователя');
S1:=FindWindowEx(S,0,nil,nil);
S2:=FindWindowEx(S1,0,'ComboBox',0);
SendMessage(S2,WM_SETTEXT,0,lParam(LPCTSTR'Primer@mail.ru')));
end;

Приложение:
  1.  
  2.  


Kazi Вопрос закрыт (ответы не принимаются, мини-форум закрыт)

Вопрос задал: Kazi (статус: Посетитель)
Вопрос отправлен: 16 марта 2011, 17:34
Состояние вопроса: закрыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Написал я тебе пример. Прицепляю к ответу. Вот главный кусок:

procedure TMainForm.ButtonClick(Sender: TObject);
var
  MsgResult: Integer;
begin
  // передача текста из Edit в ComboBox
  MsgResult:= SendMessage(ComboBox.Handle, CB_ADDSTRING, 0, Integer(PChar(Edit.Text)));
  if SendMessage(ComboBox.Handle, CB_SETCURSEL, MsgResult, 0) <> CB_ERR
    then begin
           ComboBox.SetFocus();
           Edit.Clear();
         end;
end;

К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 31 марта 2011, 08:43
Оценка за ответ: 5

Комментарий к оценке: all okey !!! Thank's -+- давно бы так :)))

Мини-форум вопроса

Всего сообщений: 25; последнее сообщение — 31 марта 2011, 08:20; участников в обсуждении: 4.

Страницы: [« Предыдущая] [1] [2]

min@y™

min@y™ (статус: Доктор наук), 28 марта 2011, 08:13 [#21]:

Цитата (Kazi):

Как насчет Аськи ???

Это ты к кому обращаешься?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Kazi

Kazi (статус: Посетитель), 28 марта 2011, 21:19 [#22]:

Квам -> min@y™:-- просил помощи у вас насчет моей не дописанной программы! Mail.ru :)))))
Cr@G!N |{GZ
min@y™

min@y™ (статус: Доктор наук), 29 марта 2011, 18:48 [#23]:

Цитата (Kazi):

Квам -> min@y™:-- просил помощи у вас насчет моей не дописанной программы! Mail.ru :)))))

Ну стучись, 5466111. Мне не жалко.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Kazi

Kazi (статус: Посетитель), 30 марта 2011, 22:55 [#24]:

min@y™: Наконец мне удалсь сделать это, т.е. я сумел отправить данные из моего приложения в Mail.ru, но возникла другая проблема... что я ввел попадают в раксрывающиеся список комбобокса, а не комбобокс! ??????
Cr@G!N |{GZ
min@y™

min@y™ (статус: Доктор наук), 31 марта 2011, 08:20 [#25]:

Ну и чего ты от меня хочешь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

31 января 2013, 16:04: Вопрос закрыт (решение принял автор вопроса — Kazi): Ответ найден!!!

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 26 апреля 2026, 00:12
Выполнено за 0.03 сек.