Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Помогите разобраться с работой компонента

Ответить
Настройки темы
Delphi - Помогите разобраться с работой компонента

Пользователь


Сообщения: 100
Благодарности: 1


Конфигурация

Профиль | Отправить PM | Цитировать

Изменения
Автор: Drongo
Дата: 08-12-2011
Описание: Пожалуйста, используйте тег код - [code] - #
Доброе утро !!! Вчера я написал небольшую программу которая отправляет на почту все данные введенные в поля все отправляется но есть одна проблема с компонентом " ComboBox " Задача состоит в том что бы при выборе определенного варианта из списка " ComboBox " эти данные появлялись в поле для отправки в idMessage1.Body.Text после надписи " ID:",т.е то что выбрано то и добавлялось в это поле. Заранее Спасибо

Вот мой код :

Код: Выделить весь код
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdMessage, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  IdMessageClient, IdSMTPBase, IdSMTP, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    IdAntiFreeze1: TIdAntiFreeze;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 idSMTP1.Host:= 'smtp.yandex.ru';
 idSMTP1.Port:= 25;
 idSMTP1.Username:='stream';
 idSMTP1.Password:='1234567';
 idMessage1.Body.Text:='INFO: YourProduct : '+Edit3.Text + ' Owner:'+Edit1.Text + '  ID: ';
 idMessage1.From.Text:='stars@yandex.ru';
 idMessage1.Recipients.EMailAddresses:='stars2@mail.ru';
 idMessage1.Subject:='Registration Product Informer';
 idSMTP1.Connect();
 if True then
 idSMTP1.Send(idmessage1);
  if True then
  MessageDlg('Регистрация продукта успешно завершена',mtInformation,[mbOk],0)
  else if False then
  MessageDlg('Сервис временно не доступен ',mtWarning,[mbOk],0);
 idSMTP1.Disconnect();



end;

end.

Отправлено: 08:20, 07-12-2011

 

Аватара для Tonny_Bennet

Ветеран


Сообщения: 1384
Благодарности: 177

Профиль | Отправить PM | Цитировать

Здравствуйте.

Не знаю как в Delphi, но в С# у каждого элемента формы есть несколько обработчиков событий. У ComboBox есть обработчик SelectedIndexChanged, который срабатывает при изменении элемента в комбо-боксе. Вот в него и нужно добавить код, изменяющий содержание вашего текст-бокса. У меня получилось примерно так:
Код: Выделить весь код
        private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
        {
            textBox1.Text = "ID:" + comboBox1.SelectedItem.ToString();
        }

-------
Сообщение оказалось полезным? Кнопка Полезное сообщение располагается чуть ниже.

Отправлено: 10:31, 07-12-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 100
Благодарности: 1

Профиль | Отправить PM | Цитировать

В том то и дело что на C# comboBox1.SelectedItem.ToString(); будет а как на Delphi это проблема так как недавно только начал с ним работать

Отправлено: 16:54, 07-12-2011 | #3


Вредитель


Сообщения: 460
Благодарности: 126

Профиль | Отправить PM | Цитировать

Если я правильно понял проблему, надо использовать ComboBox1.Text

-------
Все сказаное является только моим личным мнением.

Это сообщение посчитали полезным следующие участники:

Отправлено: 01:45, 08-12-2011 | #4


Пользователь


Сообщения: 100
Благодарности: 1

Профиль | Отправить PM | Цитировать

DedAlex, Совершенно верно )))))) Спасибо огромное все получилось !!!

Отправлено: 08:55, 08-12-2011 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Помогите разобраться с работой компонента

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VPN - Помогите настроить VPN канал между работой и домом, с раздачей домашнего интернета на shazam Сетевые технологии 3 13-11-2011 02:33
C/C++ - Помогите с лабораторной работой Midsummer Программирование и базы данных 18 15-06-2011 20:15
C/C++ - Помогите разобраться morgan1991 Программирование и базы данных 3 04-11-2008 17:16
MySQL - Помогите разобраться Red Virus Программирование и базы данных 1 04-03-2008 21:39
помогите разобраться! Guest Общий по Linux 7 16-03-2004 21:45


« Предыдущая тема | Следующая тема »


 
Переход