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

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

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

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы Вопросы по Delphi (до версии 2009) - часть 4

Познаем сами, помогаем другим...
Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).

Правила топика:
    Прежде чем спрашивать:
  1. Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники.
  2. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там).
  3. Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах.
  4. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
  5. Желательно указывать версии используемого компилятора и операционной системы.
    Прежде чем отвечать:
  1. Если не можете помочь, не мешайте.
  2. Если уж вы отвечаете на вопрос, давайте ответ по сути.
  3. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа.
  4. Задавайте дополнительные вопросы, чтобы получить больше информации.
  • Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.  
  • Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе].

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:09 28-06-2009 | Исправлено: psa1974, 12:00 02-02-2010
    zolivan

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    mdid
    Пятой  версией - это  такие как ZipForge 2.55 ZipForge 2.67?

    Всего записей: 46 | Зарегистр. 24-10-2006 | Отправлено: 13:04 21-08-2009
    mdid

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zolivan
    http://www.componentace.com/download/download.php?editionid=12

    Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 14:07 21-08-2009 | Исправлено: mdid, 14:07 21-08-2009
    Andrey128

    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    data man
    Вы правы, если задать DefaultExt, то работает как надо.
    Спасибо.

    Всего записей: 408 | Зарегистр. 16-01-2003 | Отправлено: 15:26 21-08-2009
    zolivan

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Может кто подскажет модуль типа ZipForge, который сможет работать с ARJ архивами?

    Всего записей: 46 | Зарегистр. 24-10-2006 | Отправлено: 16:54 21-08-2009
    data man



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zolivan
    Уже было
    Но тестирования архивов там нет, извлечение есть.

    Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 17:21 21-08-2009
    YuriyRR



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zolivan
     
    SevenzipVcl  
    Code:
    http://www.rg-software.de/
     
    Rar Component
    Code:
    http://www.philippewechsler.ch/rar_component.php
     
    ZipMaster
    Code:
    http://www.delphizip.org/
     
    Standalone compress / decompress:
    Code:
    http://www.birtles.org.uk/programming/

    Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 04:20 23-08-2009 | Исправлено: YuriyRR, 04:22 23-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    А как можно сделать так, чтобы чтобы при вставки в текст (например смайлика "") мигаюший курсор стоял после вставленного знака а не в начале текста, ( вставка может быть в любой части текста), Вот это не подходит:
        Memo1.text:= Memo1.text + 'Мой текст';.  
    А мне надо так:  
    Memo1.text:= Memo1.text + 'Мой текст'(СЮДА КУРСОР);
     или например :  
    Memo1.text:= Memo1.text + '<H1>'( СЮДА КУРСОР) '</H1>; Как мне это сделать???

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 02:17 25-08-2009
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB
    так идет небольшой хак через selstart selend попробуй ими поиграться или в инете посмотри, я помню так делал.

    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 03:03 25-08-2009
    Hiken



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ShIvADeSt дело говорит, просто увеличьте их на длину вставляемой строки

    Всего записей: 1343 | Зарегистр. 14-01-2006 | Отправлено: 04:29 25-08-2009
    Andysoft3C

    Junior Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Привет всем.
    Создал приложение в котором есть главная форма Form1 и дочерняя Form2.
    На Form1 размещен cxPageControl, Form2 вызывается след образом и помещается в PageControl. Подскажите как  узнать хендл формы на выбранной странице PageControla.
    var
      myForm: TForm;
    begin
         myForm:= FindForm(FormClassType);
         if myForm = nil then begin
             Application.CreateForm(FormClassType, 'Form2');
             TForm('Form2').ManualDock(PageControl);
             PageControl.ActivePageIndex := PageControl.PageCount-1;
             TForm('Form2').Show;
         end;
     end;

    Всего записей: 53 | Зарегистр. 07-08-2006 | Отправлено: 15:35 25-08-2009
    mdid

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

    Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 21:01 25-08-2009 | Исправлено: mdid, 21:04 25-08-2009
    GoodRobin



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброго времени суток!
    Не могу в Edit вводить нецелые числа. Из этого Edit'a с помощью strtofloat работаю с числами, но только с целыми, а надо чтобы еще и нецелые. При вводе нецелых ругается Incompatible types: 'Integer' and 'Extended'
    Подскажите пожалуйста. Заранее спасибо!

    Всего записей: 344 | Зарегистр. 16-11-2004 | Отправлено: 22:29 25-08-2009
    mdid

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GoodRobin
    возможно стоит галка NumbersOnly? уберите ее и вводите числа как строку

    Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 22:35 25-08-2009 | Исправлено: mdid, 23:09 25-08-2009
    GoodRobin



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    mdid
    Разобрался
    Надо было убрать запрет на ввод "." и ","

    Всего записей: 344 | Зарегистр. 16-11-2004 | Отправлено: 22:53 25-08-2009
    mauar



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Есть четыре панели, они расположены рядом друг с друг, вот таким образом:
     
    Скриншот _1  
    http://pic.ipicture.ru/uploads/090827/GpBcSsW3V6.jpg
     
    При развороте окна на весь экран эти панели съезжают,
    для верхней левой панели в параметрах Anchors, свойство Left установил в True.
    Для правой верхней панели свойство Right сделал в True.
    Для нижних панелей я таже сделал выравнивание по левому и правому краю.
     
     Теперь у меня панели расходятся по разным углам:
    Скриншот_2
    http://pic.ipicture.ru/uploads/090827/RnRXz2Hk61.jpg
     
    Как мне сделать так чтобы панели когда окно разворачивалось на весь экран,  
    не только по левому и правому краю было выравнивание но и по центру, то есть чтобы расширялись и в окне было бы 4 панели плотно прикреплены друг к другу, в общем приняли бы такой же вид как при свернутом окне, на первом скриншоте?
     
    Исходник моего творенья
    Ссылка
     

    Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 04:11 27-08-2009
    Sampron

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

    Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 05:06 27-08-2009
    Dign



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

    Цитата:
    Не могу в Edit вводить нецелые числа. Из этого Edit'a с помощью strtofloat работаю с числами, но только с целыми, а надо чтобы еще и нецелые. При вводе нецелых ругается Incompatible types: 'Integer' and 'Extended'

     
    Я обычно делаю, что нибудь в этом роде

    Код:
     
    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if not (Key in ['0','1','2','3','4','5','6','7','8','9',',','.'])
        then Key := #0;
    end;
     

     
    Или вот с проверкой преобразования
     

    Код:
     
    procedure TForm1.Edit1Change(Sender: TObject);
    var
      f : extended;
      i : integer;
    begin
      if TryStrToFloat(Edit1.Text, f) then
        Edit1.ClearUndo
      else begin
        i := Edit1.SelStart;
        Edit1.Undo;
        Edit1.SelStart := i-1;
      end
    end;
     


    Всего записей: 111 | Зарегистр. 10-09-2004 | Отправлено: 16:00 27-08-2009 | Исправлено: Dign, 16:11 27-08-2009
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    mauar
    В старших версиях дельфей есть FlowPanel и GridPanel, попробуйте их.

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 17:33 27-08-2009
    VandB



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    На днях прочитал, что Делфи Будет поддерживать WinFX, это реальность????

    Всего записей: 164 | Зарегистр. 05-05-2009 | Отправлено: 21:39 27-08-2009
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VandB
    Какой еще WinFX, и где вы это прочитали?

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 15:44 28-08-2009
       

    Страницы: 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 (до версии 2009) - часть 5
    ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215


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

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

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru