RusFAQ.ru: Программирование на Delphi (comp.soft.prog.delphiplus) : Рассылка : Subscribe.Ru

RusFAQ.ru: Программирование на Delphi

RusFAQ.ru: Программирование на Delphi

Статистика

RFpro.ru: Программирование на Delphi и Lazarus

Статистика

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS

← Июль 2004 →
	1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23 23.07.2004 13:02:12 14:52:05 15:40:22	24	25
26	27	28	29	30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

3.307 подписчиков
0 за неделю

← Все выпуски →

Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 360
от 21.07.2004, 13:00

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва

О рассылке:
Задано вопросов: 1685
Отправлено ответов: 3893
Активность: 231.0 %

[Задать вопрос >>]	[Регистрация эксперта >>]
[Поиск в базе]	[Обсудить на форуме]

Список экспертов, ответы которых опубликованы в данном выпуске

sir henry Статус: Профессиональный Общий рейтинг: 165.08 [Подробней >>]	samum2000 Статус: Профессиональный Общий рейтинг: 128.84 URL: Samum's home page [Подробней >>]	rmf Статус: Опытный Общий рейтинг: 109.37 URL: Просто WWW [Подробней >>]

CJ Статус: Опытный Общий рейтинг: 120.31 URL: Персональный сайт Каратецкого Кирилла. Телефон: +375297353706 [Подробней >>]	THE_PRO Статус: Профессиональный Общий рейтинг: 134.01 URL: THE_PRO Телефон: (994 +12) 989647 [Подробней >>]

Краткий перечень вопросов

Вопрос № 1671. В чем разница между procedure pName(Memo:TMemo); и procedure pName(var Memo:TMemo); если они раб... (ответов: 2)
Вопрос № 1672. Здравствуйте, уважаемые эксперты. Подскажите, пожалуйта, как обработать событие мыши OnMouseWheel, в... (ответов: 2)
Вопрос № 1673. Доброго времени суток, уважаемые эксперты. Подскажите как сделать так чтобы при нажатии на label(Del... (ответов: 5)

Вопросов: 3, ответов: 9

Вопрос № 1671

В чем разница между
procedure pName(Memo:TMemo);
и
procedure pName(var Memo:TMemo);
если они работают одинакого

Вопрос отправлен: 16.07.2004, 10:38
Отправитель: THE_PRO
[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Добрый день, THE_PRO!
Разнится будет в работе с переменной Мемо и, надо сказать, существенная.
Волшебное слово var означает, что в процедуре Вашу переменную Memo можно будет менять (значение) и от этого значение той переменно более высокого уровня, которую Вы передаете в процедуру, аналогично изменится.
Если же var отсутствует, то как бы Вы не изголялись над переменной в самой процедуре, при выходе из нее аналог Мемо, который Вы передавали в процедуру, не изменится ни на йоту.

Ответ отправлен: 16.07.2004, 11:58
Отправитель: sir henry

Отвечает samum2000

Здравствуйте, THE_PRO!
Как это одинаково!??
В первом случае все изменения, произведенные с Memo в процедуре никак не отразятся на том Memo, которое в эту процедуру было передано.
Во втором же случае все, что сделали с Memo в процедуре отобразится на переданном Memo.
Другое дело, что процедуры могут ничего не изменять в этих компонентах, а, например, брать параметры для обработки. Тогда принципиальной разницы хоть и нет, но лучше использовать вариант procedure pName(Memo:TMemo);
--------------------------
-=Experts helper: testmode=-

Ответ отправлен: 17.07.2004, 10:51
Отправитель: samum2000

Вопрос № 1672

Здравствуйте, уважаемые эксперты.
Подскажите, пожалуйта, как обработать событие мыши OnMouseWheel, возникающее при прокручивании колесика мыши.
Я нашел про это событие в справке, но как его использовать - непонятно.
Мне нужно, чтобы в моей программе в DBGrid1 при помощи колесика можно было прокручивать список вверх до 1 элемента и вниз до последнего.
Заранее благодарен всем ответившим.
Среда - С++ Builder 5

Вопрос отправлен: 17.07.2004, 20:13
Отправитель: Alexandr
[Следующий вопрос >>] [Список вопросов]

Отвечает samum2000

Здравствуйте, Alexandr!
Тебе нужно просто создать потомок от DBGrid в котором ты определишь процедуру для события OnMouseWheel. А лучше, наверное, обрабатывать OnMouseWheelUp и OnMouseWheelDown.
--------------------------
-=Experts helper: testmode=-

Ответ отправлен: 19.07.2004, 10:20
Отправитель: samum2000

Отвечает sir henry

Приветствую Вас, Alexandr!
Я, честно говоря, не знаю, есть ли в СВ5 событие onMouseWheel, если есть, то в этом событии реализовать то, что Вам нужно. Если такого нет, то см. приложение.

Приложение:

в файле unit1.h:

#ifndef WM_MOUSEWHEEL
#define WM_MOUSEWHEEL   0x020A
#endif

<CENTER><HR NOSHADE>
<TABLE style="background-color: #ffffff; background-image: ;" background="" bgcolor="#ffffff" cellpadding="7" cellspacing="0" BORDER=0 WIDTH=100%><TR>
<TD ALIGN=left valign=top><A TARGET=_top HREF=http://subscribe.ru/><font size=2 color="#000000" style="color: #000000; font-size: 10pt;">http://subscribe.ru/</font></A>
<BR><font size=2 color=#000000 style="color: #000000; font-size: 10pt;">E-mail:</font> <A HREF=mailto:ask@subscribe.ru><font size=2 color="#000000" style="color: #000000; font-size: 10pt;">ask@subscribe.ru</font></A></TD>
<TD ALIGN=middle valign=top>Адрес подписки<BR></TD>
<TD ALIGN=right valign=top><A TARGET=_top HREF=http://subscribe.ru/member/unsub?grp=comp.soft.prog.delphiplus&email=><font size=2 color="#000000" style="color: #000000; font-size: 10pt;">Отписаться</font></A>
</TD></TR></TABLE></CENTER>

<x-base href="http://subscribe.ru/archive/comp.soft.prog.delphiplus/200407/21130305.html">
        </span>

<a rel="nofollow" href="/member/love?what=add&type=issue&content=comp.soft.prog.delphiplus,20040721130305" class="subscriberu_love subscriberu_unlove subscriberu_unknown article_bottomlike subscriberu_bookmark" id="b637" title="В избранное">
    <span class="noPhones">В избранное</span></a>

</td>
         <td valign=top>
            <script type="text/javascript" src="http://userapi.com/js/api/openapi.js?34"></script>
             <script type="text/javascript">
             VK.init({apiId: 2641035, onlyWidgets: true});
             </script>
            <div id="vk_like"></div>
             <script type="text/javascript">
             VK.Widgets.Like("vk_like", {type: "button", verb: 1});
             </script>
        </td>
        <td valign="top" class="noPhones">
        </td>
        </tr>
            <tr class="noComps noTabletsPort noTabletsLand"><td></td><td>
            </td></tr>
        </table>
        <br>

<script type="text/javascript" src="/js/blog/ajax_comment.js?20241120150859-813936-772824"></script>
        <span id="comments">
         <span id="xmlObj">
          <span id="commentblock">
          <script type="text/javascript">
          $(document).ready(function()
           {
           var comment_href = '/blog/ajax/comp.soft.prog.delphiplus/20040721130305/?action=get_comments';
           $("#commentblock").load(comment_href);
           });
          </script>
          </span>
         </span>
        </span>

</div> 
 </div>

</div>
    </div>

<link rel="stylesheet" type="text/css" href="/css/login_register_form/res.css"/> 
<link rel="stylesheet" type="text/css" href="/css/login_register_form/style.css"/>

{#template MAIN}
<div id="loginForm" style="display:none;" class="subscriberu_popup">

<div class="popup_register">
 {#include js_tmpl_auth_reg_tab} 
  {#if $P.login_register_tab == 1}
     <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred">
	  <dl class="rg_block_options">
	   <dt id="js_tap_panel_auth">
        <h1>Войти на сайт</h1>
	{*
		 {#include js_tmpl_auth_reg_button}
	*}
		 {#include js_tmpl_auth_reg_action}
        <hr class="logreg_line noPhones">
        <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr}  </p></div>
        <div class="logreg_advice noPhones">
            Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a>
        </div>
          <br><br>
          <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a>
	   </dt>
	  </dl>
    </form>
  {#/if}
  {#if $P.login_register_tab == 2}
	  <div class="rg_block_options">
	   <div id="js_tap_panel_auth">
        <h1>Регистрация</h1>
        <div class="social_reg">
            {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *}
            {#include js_tmpl_auth_reg_soc}
            <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div>
        </div>
		<div class="subscribe_reg">
            {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *}
		  {#include js_tmpl_auth_reg_action}
		</div>

{*
		 {#include js_tmpl_auth_reg_button}
	*}
           <div class="clr"> </div>

<hr class="logreg_line noPhones">
           <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div>

</div>
	  </div>
  {#/if}
 </div>
{*
 <div class="gray_bg register_shadow"></div>
*}

</div>
{#/template MAIN}

{#template js_tmpl_auth_reg_tab}
<ul class="rg_nav">
 <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li>
 <li id="js_tab_reg"  class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li>
</ul>
<span onclick="hidebo();" class="rg_closed"> </span>
{#/template js_tmpl_auth_reg_tab}

{#template js_tmpl_auth_reg_action}

{#if $P.login_register_tab == 1}
	{#include js_tmpl_auth_reg_soc}
 {#/if}
<div class="rg_forms">
 <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/>
 {#if $P.login_register_tab == 1}
 <div class="rg_for_input">
  <span class="rg_text_inner">E-mail или код подписчика</span>
  <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" />
 </div>
 <div class="rg_for_input">
  <span class="rg_text_inner">Пароль</span>
  <input  id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" />
  <span class="pswd_attention" id="attention_pswd">
     <span class="icon_attention"></span>
     <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span>
     <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span>
     <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span>
  </span>
 </div>
 <div class="rg_for_input input-alien">
  <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label>
  <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a>
 </div>
 <div class="rg_for_input">
  <em id="auth_msg" class="reg_error"></em>
  <input id="lf_typeauthid" value="email" type="hidden">

<input type="submit" class="button button-red logreg_submit"  id="js_loginFormBut" value="Войти">
     
     <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div>
 </div>
 {#/if}
 {#if $P.login_register_tab == 2}
 <div class="rg_for_input">
  <span class="rg_text_inner">E-mail</span>
  <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/>
 </div>
  <div class="rg_for_input rg_set_lineh rg_for_input_wide">
  <label class="js_tap_panel_checkbox">
      <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span>
      Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a>
  </label>
<br />
      <label class="js_tap_panel_checkbox">
          <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span>
          Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a>
      </label>
 </div>

{*
 <div style="float: left;position: absolute;left: 11em;">
  <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;">
 </div>

<div class="rg_for_input rg_set_lineh">
  <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label>
 </div>
*}

<div class="rg_for_input">
  <em id="reg_msg" class="reg_error rg_for_input_wide"></em>
     <em id="reg_msg2" class="reg_error rg_for_input_wide"></em>
  <input id="rf_typeauthid" value="email" type="hidden">
  <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a>
     <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div>
 </div>
{#/if}
</div>
{#/template js_tmpl_auth_reg_action}

{#template js_tmpl_auth_reg_agree} 
 <div class="rg_for_input rg_set_lineh rg_for_input_wide">
  <label class="js_tap_panel_checkbox">
      <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span>
      Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label>
  <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em>
 </div>
{#/template js_tmpl_auth_reg_agree}

{#template js_tmpl_auth_reg_button} 
<div class="rg_butons_socials">
 {#if $P.login_register_tab == 1}
  <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a>
  <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a>
  <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a>
  <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a>
 {#/if}
 {#if $P.login_register_tab == 2}
  <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email"  href="#"><span><i></i>Email</span></a>
  <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a>
  <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a>
  <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a>
 {#/if}
</div>
{#/template js_tmpl_auth_reg_button}

{#template js_tmpl_auth_reg_descr}
 {#if $P.login_register_tab == 1} 
 Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru
 {#/if}
 {#if $P.login_register_tab == 2}
 Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения.
 {#/if}
{#/template js_tmpl_auth_reg_descr}

{#template js_tmpl_soc_auth_reg_descr}
 Или зарегистрируйтесь через социальную сеть.
{#/template js_tmpl_soc_auth_reg_descr}

{#template js_tmpl_auth_reg_soc}
    <div class="rg_soc">
        {#if $P.login_register_tab == 1}
            <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button">
                <span class="login_register_vk_icon"></span>
            </a>
        {#/if}
        {#if $P.login_register_tab == 2}
            <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button">
                <span class="login_register_vk_icon"></span>
            </a>
        {#/if}
    </div>
{#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}

← Июль 2004 →

23 23.07.2004 13:02:12 14:52:05 15:40:22