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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как заставить текст в edit двигаться, как заставить текст в edit двигаться 
V
    Опции темы
JokeR.StR
Дата 16.5.2008, 13:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
как заставить текст в введеный в edit двигаться влево и вправо, и желательно чтобы свойство у edit - enable было равно false!
PM MAIL   Вверх
Frees
Дата 16.5.2008, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
если ты имееш в виду что большой текст который полностью не влазит в Едит двигался туду сюда то это примерно так


Код

procedure TForm1.Button1Click(Sender: TObject);
var 
  I: Integer;
  direction : boolean;
begin
  I := 0;
  direction := true;
  while true do begin 
     Edit1.SelStart:=i;
     Edit1.SelLength := 0;
     Edit1.Invalidate;
     Application.ProcessMessages;
     sleep(100);
     if direction then  i := i + 1
     else i := i - 1;
     if (Length(edit1.Text) = i )or( i = 0) then direction := not direction ;
  end;
end;


Это сообщение отредактировал(а) Frees - 16.5.2008, 14:27


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
JokeR.StR
Дата 21.5.2008, 08:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
да я иммею ввиду именно это! спасиб!
только вот теперь прложение не закрывается...как исправить??
PM MAIL   Вверх
JokeR.StR
Дата 21.5.2008, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
неа уже пробовал!! не получается(
PM MAIL   Вверх
JokeR.StR
Дата 21.5.2008, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
все помгли! спасбо Frees
PM MAIL   Вверх
EvilsInterrupt
Дата 21.5.2008, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Executables research
***


Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: 3
Всего: 9
Цитата(JokeR.StR @ 21.5.2008,  10:15)
все помгли! спасбо Frees

Ну раз помогли, то оставь для истории, как. А то другой такой же как ты придет и снова будет спрашивать ;)


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

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

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

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

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

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

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


 




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


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

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