Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > как заставить текст в edit двигаться

Автор: JokeR.StR 16.5.2008, 13:47

как заставить текст в введеный в edit двигаться влево и вправо, и желательно чтобы свойство у edit - enable было равно false!

Автор: Frees 16.5.2008, 14:27

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

Код


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;

Автор: JokeR.StR 21.5.2008, 08:17

да я иммею ввиду именно это! спасиб!
только вот теперь прложение не закрывается...как исправить??

Автор: JokeR.StR 21.5.2008, 08:31

неа уже пробовал!! не получается(

Автор: JokeR.StR 21.5.2008, 09:15

все помгли! спасбо Frees

Автор: EvilsInterrupt 21.5.2008, 13:12

Цитата(JokeR.StR @ 21.5.2008, 10:15)

все помгли! спасбо Frees

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