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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Строка, Помогите, очень надо! 
:(
    Опции темы
Vco
  Дата 27.2.2003, 02:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

Репутация: нет
Всего: нет
Как сделать плавно появляющуюсю строку, и исчезающую т.е. бегущую.
ну вот вроде есть слово привет, появляеться буква за буквой и исчезает, слева на права...компонент чтоли скачивать надо? Если да, то подскажите какой или где... confused.gif



--------------------
Я всегда где-то рядом...! user posted image
PM MAIL WWW ICQ   Вверх
Step
Дата 27.2.2003, 02:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25
не надо компонент, береш обычный едит, береш свою строку вставляеш пробелов 20 впереди, потом делаеш буфер на 20 елементов, и начало буфера т.е. указатель, постепенно увиличуешь, и после каждого увеличения выводиш содержимое буффера в едит. получаеш бегущую строку.


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Il'ya
Дата 27.2.2003, 02:58 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Можно двигать например Label пиксельно по OnTimer. wink.gif
  Вверх
Vco
Дата 27.2.2003, 03:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

Репутация: нет
Всего: нет
1) не в едите надо, а прсто строка
2) а как чтобы плавно появлялась?
3) Немог бы код дать, того чего ты щас говорил... я почти неразбераюсь со всеми этими функциями, в книге мало описано. даж тот же буфер, как что.. sad.gif sad.gif


--------------------
Я всегда где-то рядом...! user posted image
PM MAIL WWW ICQ   Вверх
Step
Дата 27.2.2003, 03:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25
Цитата
Можно двигать например Label пиксельно по OnTimer.
я думаю такой уровень ему не нужен, к томуже возникает много проблем...


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Step
Дата 27.2.2003, 03:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25
Vco Извини пока не могу, т.е. могу, но на с++, на делфе дам завтра, я своим студентом 2 месяца назад такое показывал, завтро дам сто пудов.


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Vco
Дата 27.2.2003, 03:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

Репутация: нет
Всего: нет
вот тут, скачай системщик, и нажми о программе тут


--------------------
Я всегда где-то рядом...! user posted image
PM MAIL WWW ICQ   Вверх
Song
Дата 27.2.2003, 06:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


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

Репутация: 2
Всего: 4
Сделай ScrollWindow(), если уж совсем думать не хочется.


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Step
Дата 27.2.2003, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25
Код
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure FormActivate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
       a,b:pchar;
       i:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

 b:=b+1;

edit1.settextbuf(b);



end;

procedure TForm1.FormActivate(Sender: TObject);
begin
a:='                              tolik          ';
b:='   ';
b:=b+10+13;
b:=a;

end;

end.

проверял, работает, может не так как тебе хочется но работает

Это сообщение отредактировал(а) Step - 27.2.2003, 20:57


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Vco
Дата 28.2.2003, 02:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

Репутация: нет
Всего: нет
Ну, это можно проделать с tlabel?
тогда, как сделать задержку т.е. мне ненадо чтоб при нажатие на button, а просто label и делать как бы задержку...ну в паскале это delay();



--------------------
Я всегда где-то рядом...! user posted image
PM MAIL WWW ICQ   Вверх
Step
Дата 28.2.2003, 02:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25
Цитата
Ну, это можно проделать с tlabel?
можно с чем угодно делать, только функции работы с буфером наверное будут разные
Цитата
delay();
а в делфи, что по сути есть паскаль - я не знаю, попробуй


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
December
Дата 2.3.2003, 20:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
Цитата(Step @ 27.2.2003, 17:42)
Цитата
Ну, это можно проделать с tlabel?
можно с чем угодно делать, только функции работы с буфером наверное будут разные
Цитата
delay();
а в делфи, что по сути есть паскаль - я не знаю, попробуй

Если дело не касается DDE, то лучше sleep()


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
dr.ZmeY
Дата 2.3.2003, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Политолог
****


Профиль
Группа: Участник Клуба
Сообщений: 3892
Регистрация: 26.3.2002
Где: ..::STALINGRAD::. .

Репутация: нет
Всего: 60
Код проги
Код
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   Label1: TLabel;
   Timer1: TTimer;
   procedure Timer1Timer(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 i:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
Label1.Left:=Label1.Left-1;
if Label1.Left<(0-Label1.Width) then Label1.Left:=i;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=Label1.Left;
end;

end.


Код формы
Код


object Form1: TForm1
 Left = 631
 Top = 118
 Width = 432
 Height = 640
 Caption = 'Form1'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 OnCreate = FormCreate
 PixelsPerInch = 96
 TextHeight = 13
 object Label1: TLabel
   Left = 328
   Top = 312
   Width = 90
   Height = 13
   Caption = 'Бегущая строка'
 end
 object Timer1: TTimer
   Interval = 100
   OnTimer = Timer1Timer
   Left = 328
   Top = 224
 end
end




Цитата
Цитата

Можно двигать например Label пиксельно по OnTimer.

я думаю такой уровень ему не нужен, к томуже возникает много проблем...

Почему? Нет ничего проще... и проблем нет...


--------------------
Мой блог в ЖЖ
PM MAIL WWW ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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