Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> scroll to top and bottom 
:(
    Опции темы
muratboy31
Дата 12.2.2010, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks for helps

it works perfect but i didnt understand wht it doesnt work good if i use the timer with spin value !!!


Код

procedure TForm1.Timer4Timer(Sender: TObject);
var
Lines:integer;
begin
Lines:=SpinEdit1.value;
if TBrowserScrollV(Lines) then Lines := - Lines;
end;
PM MAIL   Вверх
volvo877
Дата 12.2.2010, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116
Цитата(muratboy31 @  12.2.2010,  08:54 Найти цитируемый пост)
i use the timer with spin value
In this case you should change the code:

Код
  TForm1 = class(TForm)
     // ... 
  public
    { Public declarations }
    Lines: Integer; // <--- Lines declared here !!!

    function TBrowserScrollV(Delta: SmallInt): boolean;
    // ...
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser.Navigate('www.ebay.com');
  SpinEdit1.Value := 50;
end;
procedure TForm1.WebBrowserDownloadComplete(Sender: TObject);
begin
  timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if TBrowserScrollV(Lines) then Lines := - Lines;
end;

// Add SpinEdit OnChange event:
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  Lines := (Sender as TSpinEdit).Value * IfThen(Lines < 0, -1, 1);
end;
It's working now smile
PM MAIL   Вверх
muratboy31
Дата 12.2.2010, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks volvo but what does it mean ;

expression expected but then found 

Код

  private
    { Private declarations }
function TBrowserScrollV(Delta: SmallInt): boolean;
  public
    { Public declarations }
     Lines: Integer;
end;

var
    Form1: TForm1;

implementation

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Lines := (Sender as TSpinEdit).Value * If Then (Lines < 0, -1, 1);
end;






Это сообщение отредактировал(а) muratboy31 - 12.2.2010, 10:29
PM MAIL   Вверх
volvo877
Дата 12.2.2010, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116
Цитата(muratboy31 @  12.2.2010,  09:25 Найти цитируемый пост)
expression expected but then found 
No-no-no... Do you see the space between If and Then in my post? smile I wrote IfThen in ONE word...
PM MAIL   Вверх
muratboy31
Дата 12.2.2010, 10:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
yes yes i also tried it but it said undeclared identifier 'ifthen'  ...

Это сообщение отредактировал(а) muratboy31 - 12.2.2010, 10:38
PM MAIL   Вверх
volvo877
Дата 12.2.2010, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116
Код
Uses ..., Math;
should help.

Update:
Код
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  // Lines := (Sender as TSpinEdit).Value * IfThen(Lines < 0, -1, 1);

  // can be changed

  if Lines < 0 then Lines := - (Sender as TSpinEdit).Value
  else Lines := (Sender as TSpinEdit).Value;
end;


Это сообщение отредактировал(а) volvo877 - 12.2.2010, 10:49
PM MAIL   Вверх
muratboy31
Дата 12.2.2010, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
but if i type a number to spinedit then it crashes and also it doesnt start scrooling if i dont spin a number up or down... i used checkedbox to start scrolling but it doesnt start scrolling when i check it, it starts only if i spin a number...




Это сообщение отредактировал(а) muratboy31 - 12.2.2010, 11:31
PM MAIL   Вверх
volvo877
Дата 12.2.2010, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116
Цитата(muratboy31 @  12.2.2010,  09:58 Найти цитируемый пост)
but if i type a number to spinedit then it crashes and also it doesnt start scrooling if i dont spin a number up or down...
D2009 on WinXP. My code works perfectly (no crash, and scroll starts as I type in spinbox). I think something wrong in OTHER parts of your project.
PM MAIL   Вверх
muratboy31
Дата 12.2.2010, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i use delphi 7 on win xp and it just doesnt work on design time, if i compile it it works fine...
thanks volvo  smile 
i could never do it on my own...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0471 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.