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

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

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

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
STEEL



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите как проследить address bar в браузерах на д7

Всего записей: 2293 | Зарегистр. 06-01-2002 | Отправлено: 12:09 12-09-2006
RedPromo



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

Цитата:
 
TMform = class (TForm)
    procedure WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST;
private
public
end;
Var mForm: TMform;
 
implementation
 
procedure TMform.WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST;
begin
  inherited;  
  if (Msg.Result = HTCAPTION) then  
  begin  
    if GetAsyncKeyState(VK_LBUTTON)<0  then  
    begin  
    Self.AlphaBlendValue:=100;  
    Self.AlphaBlend:= True;  
    end  
    else  
     Self.AlphaBlend:= False;  
  end  
  else  
   Self.AlphaBlend:= False;
end;
 


Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 12:12 12-09-2006
Sexton

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim, согласен.
Можно, конечно
 
var FormatSettings: TFormatSettings;
GetLocaleFormatSettings(LOCALE_USER_DEFAULT, FormatSettings);
if SaveDialog1.Execute then    
memo1.Lines.SaveToFile('00000001_' + StringReplace(TimeToStr(Time), FormatSettings.TimeSeparator, '_', rfReplaceAll))
 
Но DateTimeToString мне больше нравится.

Всего записей: 142 | Зарегистр. 31-05-2004 | Отправлено: 12:24 12-09-2006
RomanTim

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

Цитата:
Я к тому, что OnMouseDown (именно так, в предыдущем посте я ошибочно указал OnMouseUp) берет координаты непосредственно в момент нажатия. А если получать координаты в OnClick и OnMouseUp, то может произойти позиционирование не на ту ноду, которую хотел пользователь, а на соседнюю, так как мышь уже немного сдвинется, но визуально будет казаться, что программа ошибочно активировала не ту ноду. Вот какую точность я имею в виду.

Тут есть свой минус - если пользователь нажал мышу на одной ноде, а отпустил на другой, то по хорошему все-таки ничего не делать - что бы не было неоднозначности, а OnClick как раз такие вещи и отлавливает, а в принципе - тут кому как больше нравится, я бы появление другого окна вообще только по DblClick делал

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 13:20 12-09-2006
Sexton

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RomanTim, по DblClick ветка сворачивается/разварачивается. Так что лучше, например, по Ctrl+Click.

Всего записей: 142 | Зарегистр. 31-05-2004 | Отправлено: 13:40 12-09-2006
RomanTim

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

Цитата:
по DblClick ветка сворачивается/разварачивается. Так что лучше, например, по Ctrl+Click

Я на ElTree обычно деревья делаю - там это выключается, а в обычном оказывается нет... Нет предела совершенству
В общем идей накидали, а человек пусть уже выбирает что ему больше нравится

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 15:13 12-09-2006
relictus

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто объяснит суть хинта:
"[Hint] filter_select.pas(16): Overriding virtual method 'TFFilter.CreateParams' has lower visibility (private) than base class 'TForm' (protected)"
 
Появляется после внесения в раздел private пр-ры  
procedure CreateParams(var Params : TCreateParams); override;
 (Delphi7)

Всего записей: 3698 | Зарегистр. 19-04-2005 | Отправлено: 15:25 12-09-2006
Sexton

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Английским по белому написано, что метод CreateParams находится в секции protected формы, а в потомке формы TFFilter происходит попытка "понизить" видимость метода до private. Помести CreateParams в protected TFFilter и все пройдет. А можно и просто забить на хинт.

Всего записей: 142 | Зарегистр. 31-05-2004 | Отправлено: 15:39 12-09-2006
relictus

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sexton
Что написано по-английски, мне совершенно понятно  
Меня другое волнует: насколько надо прислушаться к этой подсказке, то бишь критично ли объявление этого метода в привате или же таки засунуть его в протектед? Компилер дело говорит или, как ты говоришь, "забить"?

Всего записей: 3698 | Зарегистр. 19-04-2005 | Отправлено: 15:55 12-09-2006
Sexton

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
relictus, это же hint, а не warning. Влияет только на логику программы, как я понимаю. Если нет причин прятать этот метод, то почему бы не поместить его на законное место в protected, чтобы логику не нарушать?

Всего записей: 142 | Зарегистр. 31-05-2004 | Отправлено: 16:00 12-09-2006
relictus

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

Всего записей: 3698 | Зарегистр. 19-04-2005 | Отправлено: 16:24 12-09-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
relictus
Просто тебя предупреждают, что виртуальная функция, которую потенциальный наследник класса может переопределить, окажется для него недоступной - может ты действительно хочешь так сделать, а может  случайно получилось, но внимание твое на это обратили

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 17:37 12-09-2006
Zver1992

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как в дельфи, используя регулярные выражения, выдернуть текст между abc'123 и 123<>abc (спец символы, важно!!!)?

Всего записей: 599 | Зарегистр. 30-10-2004 | Отправлено: 18:25 12-09-2006
SERGE_BLIZNUK

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

Цитата:
 дельфи, используя регулярные выражения, выдернуть текст между abc'123 и 123<>abc  

ни чего не понял - между чем и чем выдернуть текст? между abc и 123?
поясните...
для дельфей библиотека есть тут - TRegExpr - Freeware Регулярные Выражения для Delphi (Regular Expressions) Документация есть на Русском, Английском, Немецком, Французском, Испанском и Болгарском...

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 19:21 12-09-2006
Zver1992

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Так. SERGE_BLIZNUK, спсб за ответ.
А можно ли как нибудь в проект встрить mp3 файл? (чтобы проиграть его потом допустим)

Всего записей: 599 | Зарегистр. 30-10-2004 | Отправлено: 23:16 12-09-2006
Vetal303



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Zver1992
Как понять вставить в проект?
Просто воспроизвести мп3, можно, для этого есть хотя бы тот же TMediaPlayer.
Есть и много других способов.  


----------
При изучении наук примеры полезнее правил. ©Исаак Ньютон

Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 00:19 13-09-2006
wader



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zver1992
Помести mp3 файл в ресурсы, а рантайме доставай.

Всего записей: 113 | Зарегистр. 26-05-2005 | Отправлено: 01:22 13-09-2006
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ПОЗДРАВЛЯЮ ВСЕХ УЧАСТНИКОВ С ДНЕМ ПРОГРАММИСТА (256-Й ДЕНЬ ГОДА) !!!

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 09:56 13-09-2006
dmit000



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

Цитата:
Помести mp3 файл в ресурсы, а рантайме доставай

Подскажи пожалуйсто как и чем это сделать

Всего записей: 483 | Зарегистр. 07-06-2004 | Отправлено: 10:43 13-09-2006
ranc



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

-

Всего записей: 522 | Зарегистр. 06-02-2003 | Отправлено: 10:57 13-09-2006
   

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru