Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста. [D6, Win2k]


HDD ©   (2002-02-05 16:23:00) 

var
i: integer;
s : string;
begin
for i:=0 to RichEdit1.Lines.Count - 1 do
ShellExecute(handle,"open",PChar("mailto:ctapik-net@inbox.ru?subject=Report a bug&body="+ RichEdit1.Lines.Strings[i]), NIL, NIL, SW_SHOWNORMAL);
Хочу чтобы текст с моего редактора попадал в почтовую программу.
Но получается что каждая строка открывается в новом письме?
И ещё вопросик:
if RichEdit1.SelLength >0 then
RichEdit1.Lines.Text:= AnsiUpperCase(PChar(RichEdit1.SelText));
Чё-то не догоню как сделать чтобы в Большие буквы переходил только выделенный текст
Заранее благодарен Кирилл


Donal_Graeme   (2002-02-06 03:00:00) [1]

хм...возможно, надо символы переноса строки заменить на тэги BR


HDD   (2002-02-06 00:41:00) [2]

Помогите плиз


HDD   (2002-02-05 16:44:00) [3]

А с почтой получается такая беда. У меня в редакторе 3 строчки а в почтовом клиенте всё в одну


HDD   (2002-02-05 16:40:00) [4]

Благодарю вас


Basilio   (2002-02-05 16:34:00) [5]

1) ShellExecute(handle,"open",PChar("mailto:ctapik-net@inbox.ru?subject=Report a bug&body="
+ RichEdit1.Text), NIL, NIL,SW_SHOWNORMAL);
2) RichEdit1.SelText:=AnsiUpperCase(RichEdit1.SelText);


MBo   (2002-02-05 16:34:00) [6]

1)
a bug&body="+ RichEdit1.Lines.Text),
и без цикла
2)
RichEdit1.SelText:= AnsiUpperCase(RichEdit1.SelText);


Наверх

Титульная страница Поиск, карта сайта Написать письмо