Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jokerjar79
Yes. Из ресурсов..

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 22:31 15-09-2007
Jokerjar79



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Maks150988, тада попробуй так:

Код:
procedure ChIcon(P: pointer);  
var  
  h: HWnd;  
begin  
  repeat  
    h := FindWindow(nil,'caption');  
    Application.ProcessMessages;  
  until  
    h <> NULL;  
  SendMessage(h, WM_SETICON, 1, LoadIcon(hInstance, 'имя иконки в ресурсе'));  
  exitthread(0);  
end;  
   
procedure TForm1.Button1Click(Sender: TObject);  
var  
  h: cardinal;  
begin  
  CreateThread(nil,0,@ChIcon,0,0,h);  
  MessageBox(Handle,'Я MessageBox с иконкой!','caption',MB_OK or MB_ICONINFORMATION);  
end;

Всего записей: 710 | Зарегистр. 08-09-2007 | Отправлено: 06:18 16-09-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Работает. Спасибо.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 19:56 16-09-2007
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите как избавиться от символа || т.е. перехода на новую строку в Edit?
 
Текст в Memo перенес в  Edit ,но в тексте были созданы строки с новой строки .. при вставлении стройки в memo значек || т.е. следующая строка

Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 20:19 16-09-2007
antonn2

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пройтись в цикле по memo.text и удалить символы #10 и #13

Всего записей: 96 | Зарегистр. 13-11-2006 | Отправлено: 20:42 16-09-2007
Jokerjar79



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OOD
Edit1.Text := StringReplace(Memo1.Text,#13#10,' ',[rfReplaceAll]);

Всего записей: 710 | Зарегистр. 08-09-2007 | Отправлено: 20:48 16-09-2007
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jokerjar79
спасибо помогло

Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 20:53 16-09-2007
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите пожалуйста разобраться со следующей проблемой: в D7 создаю и показываю форму:

Код:
 
Application.CreateForm(TForm5, Form5);
Form5.ShowModal;
 

под XP все работает нормально, а под Windows 98, Me окно ИНОГДА (закономерность я так и не нашел) открывает сзади основной формы. При этом его нельзя сделать активным либо закрыть, т.к. оно меньше по размерам.

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 09:26 17-09-2007
lavren



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShamaN
Попробуй после этого кода добавить:
SetForegroundWindow( Form5.Handle)
или
BringWindowToTop(Form5.Handle)

Всего записей: 545 | Зарегистр. 29-05-2007 | Отправлено: 09:51 17-09-2007 | Исправлено: lavren, 09:56 17-09-2007
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
lavren
спасибо, но это не помогло

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 10:39 17-09-2007
xy



ХУдератор
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите плиз есть ли для Делфи какая-нибудь утилитка, которая может проанализировать проект и показать кто-кого uses, всего uses и т.п. :)

----------
Счастливые мысли приводят к счастливой клеточной биохимии

Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 10:41 17-09-2007
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xy
попробуй Icarus

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 10:46 17-09-2007
Arvur



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
xy
Тулза: _http://www.peganza.com/products_icarus.htm
Был еще для этого дела эксперт OPXperts, только хомяк подох... могу на рапиду выложить.

Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 10:59 17-09-2007
xy



ХУдератор
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Arvur
A_V
То что надо, спасибо!!

----------
Счастливые мысли приводят к счастливой клеточной биохимии

Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 11:03 17-09-2007
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShamaN
можешь попробовать еще Application.ProcessMessages перед вызовом ShowModal

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 11:09 17-09-2007
relictus

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Arvur
А не пробовал ли ты Pascal Analyzer от той же пеганзы? Какие впечатления?
PS Может и где взять не trial знаешь?

Всего записей: 3717 | Зарегистр. 19-04-2005 | Отправлено: 11:22 17-09-2007
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
A_V
пробовал уже. не помогает.
еще варианты есть?
 
Добавлено:
relictus
тема есть в варезнике.

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 11:22 17-09-2007
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShamaN
может в пропертях главного окна что-то типа fsStayOnTop

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 11:37 17-09-2007
ShamaN



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
RostY
нет, fsNormal...

Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 11:45 17-09-2007
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShamaN
У меня вобще в XP такой баг был - помог DisableProcessWindowsGhosting (и ProcessMessages тоже помагал). Насчет 98-х хз, уже года 3 не видел.
вобще на sql.ru это обсуждалось:
http://www.sql.ru/forum/actualthread.aspx?bid=20&tid=68228&pg=1

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 11:46 17-09-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru