Вопросы по Delphi (все версии) - часть 3 - [18] :: Прикладное программирование :: Компьютерный форум Ru.Board
Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

   

stalker780



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

Цитата:
Добавь после Application.Initialize:

Спасибо, помогло. Тоже нашел код скрытия приложения из таскбара и пошел от обратного
Но форма логина в этом случае становится неактивной, на нее надо тыцнуть мышкой, а только потом вводить логин
Не подскажешь как ее активировать?

Всего записей: 216 | Зарегистр. 01-07-2003 | Отправлено: 11:10 05-06-2007
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mandor Sawall
в правильности гифа не совсем уверен, то уверен, что при использовании RX-компонент он рисуется прозрачным, а при использовании клонинга Anders Melander's TGIFImage прозрачным не делается, независимо от проперти Transparent. Попробую GraphicEx.

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 13:04 05-06-2007
Mandor Sawall

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RostY
Откройте GIF в каком-нибудь редакторе и посмотрите - установлен ли transparent color для него. Может быт, в RX ошибка и прозрачность определяется не из GIF-файла, а как BMP - из нижнем левом пикселе. Насколько я помню, в TGIFImage с прозрачности все в порядке.

Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 13:15 05-06-2007
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mandor Sawall
кажется, ты прав. Попробовал другой гиф -- вроде нормально. Спасибо всем за помощь.

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 15:04 05-06-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
stalker780
SetForegrowndWindow на окно логина?

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 15:50 05-06-2007
alroy

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При работе с Open Tools Api необходимо вывести сообщение в окно сообщений (Messages View) Delphi со строкой ошибки в тексте исходника, и при нажатии на эту строку код исходника должен перевестись на эту строку. Сделано все, кроме нажатия на это окно сообщений, так это событие перехватить никак не могу и вобщем то не знаю как сделать.

Всего записей: 60 | Зарегистр. 15-06-2005 | Отправлено: 16:41 05-06-2007
Erazer



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите удобный локализатор плз....
 
Добавлено:
есть вопрос... при запуске проги показываю форму, если чет не устраивает то говорю application. terminate, прога закрывается, НО на фоне первой формы буквально на пол-секунды показывается основная форма программы, и только потом прога закрывается полностью - некрасиво получается... как побороть это мелькание основной формы в тылу передовой ?

Всего записей: 1731 | Зарегистр. 02-08-2003 | Отправлено: 16:48 05-06-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Erazer
Форма похоже показывается до Application.Run? Если так, то в файле проекта сделай вызов Application.Run условным по "if not Application.Terminated"

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 00:03 06-06-2007
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Erazer зависит от того, в каких именно обработчиках ты запускаешь свою проверку на "устраиваемость". порядок создания форм так же оч. важен,  ну и ещё разные бывают нюансы
 
но если ты вставишь проверку в тело проекта (файл dpr)...

Код:
 
begin
  // ... примерно ТУТ ...
  // Halt;
  Application.Initialize;
  Application.CreateForm(Tbt_MainForm, bt_MainForm);
  Application.CreateForm(Tbte_DM, bte_DM);
end.
 

 
... то не только мелькать не будет, но и application.terminate делать не понадобиться

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 00:32 06-06-2007
yuish

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

Цитата:
подскажите удобный локализатор плз....

обсуждалось не раз...
а так, я пользуюсь бесплатным - Делок
ххтп://deloc.narod.ru/index.html

Всего записей: 218 | Зарегистр. 10-02-2003 | Отправлено: 11:30 06-06-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подкскажите плиз есть-ли в дельфи встроенная функция перевода чисел из десятичной системы в шестнадцатиричную?

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 13:01 06-06-2007
andead



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

----------
мой блог

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 13:37 06-06-2007
Mandor Sawall

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
...или чрез %x в Format(). Но через IntToHex быстрее.

Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 14:08 06-06-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем спасибо.
Еще такой вопрос - В событии кнопки, в цикле, делаю WebBrowser.Navigate и когда закончит выполняться событие OnDocumentComplete(WebBrowser) нужно продолжить выполнять цикл в событии кнопки. Как нужно организовать структуру программы, чтобы цикл не продолжал выполняться пока не будет завершенно событие OnDocumentComplete веб-браузера???

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 13:48 07-06-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GreatOne
Можно не делать цикл явно. Необходимые для работы "цикла" переменные (например тот же счетчик - если нужен) описываешь как поля формы. Делаешь процедуру с параметром FirstCall, вызываешь ее из OnClick c True, из OnComplete - с False. В процедуре, если первый вызов - взводишь переменные в начальное состояние, а потом вызываешь Navigate и прочую логику.

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 23:04 07-06-2007
redterror

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Почему такой код:
 
image1.Picture.Bitmap.Canvas.Pixels[10,10]:=255;
 
не работает (Borland Developer Studio 2006)
 
и вообще как получить цвет пикселя из TImage?
 
заранее благодарен...

Всего записей: 19 | Зарегистр. 14-03-2006 | Отправлено: 13:39 08-06-2007
GreatOne



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

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 14:08 08-06-2007
SharedNoob

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день. Подскажыте пожалуйста.
У меня в приложении используется компонент IdMappedPortTCP, из Indy, я принимаю на какойто свой порт, к примеру 5501, пакеты, читаю IP, проверяю пожно ли пропустить пакеты с этого IP и перенаправляю на другой свой локальный порт, к примеру 5502. Так вот это все работает, а можно ли еще узнать название приложения которое подключается к порту 5501 ?  
 
код считывания IP.

Код:
 
procedure TForm1.IdMappedPortTCP1Connect(AThread: TIdMappedPortThread);
begin
AThread.Connection.Socket.Binding.RecvFrom()
ADOStoredProc1.Active:=false;
ADOStoredProc1.Parameters.ParamByName('@IP').Value:=AThread.Connection.Socket.Binding.PeerIP; //JvEdit1.Text;
ADOStoredProc1.ExecProc;
If ADOStoredProc1.Parameters.ParamByName('@Access').Value='1' then AThread.Connection.Disconnect ;
 
end;
 

Всего записей: 12 | Зарегистр. 13-12-2006 | Отправлено: 17:11 08-06-2007
OdesitVadim



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

Цитата:
Почему такой код:  
 
image1.Picture.Bitmap.Canvas.Pixels[10,10]:=255;  
 
не работает (Borland Developer Studio 2006)

Где вы так нашли? Ужас.

Цитата:
и вообще как получить цвет пикселя из TImage?

Вот так не прбывали
image1.Canvas.Pixels[10,10]:=255;

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 01:12 09-06-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ!! Подскажите плиз почему у меня в StringGrid влазит только 128 строк, и можно-ли как-нить увеличить его вместимость???
 
Добавлено:
Алгоритм занесения такой:
 
var i:integer;
begin
  for i:=0 to StringList1.Count-1 do
  begin
   with Form3.StringGrid1 do
   begin
      Cells[0,Form3.StringGrid1.RowCount-1]:=IntToStr(i+1);
      Cells[1,Form3.StringGrid1.RowCount-1]:=StringList1.Strings[i];
      Cells[2,Form3.StringGrid1.RowCount-1]:=StringList2.Strings[i];
      Cells[3,Form3.StringGrid1.RowCount-1]:=StringList3.Strings[i];
      Cells[4,Form3.StringGrid1.RowCount-1]:=StringList4.Strings[i];
      Cells[5,Form3.StringGrid1.RowCount-1]:=Word;
    end;
    Form3.StringGrid1.RowCount:=Form3.StringGrid1.RowCount+1;
  end;
end;
 
В StringList1 содержиться 350 записей, а в StringGrid1 отображается только 128. Кто может помочь?

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 15:37 09-06-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-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru