Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2019, 09:53   #1
Kirill4316
Новичок
Джуниор
 
Регистрация: 25.06.2019
Сообщений: 1
По умолчанию Создать форму, на которой набранный пользователем текст. Начинает постепенно появляться

Создать форму, на которой набранный пользователем текст. Начинает
постепенно появляться, а затем двигаться по вертикали, меняя направление
при достижении границ формы.
Kirill4316 вне форума Ответить с цитированием
Старый 26.06.2019, 08:42   #2
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию

Бюджет какой?
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума Ответить с цитированием
Старый 26.06.2019, 09:39   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от WorldMaster Посмотреть сообщение
Бюджет какой?
Так это не фриланс!!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.06.2019, 12:19   #4
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Так это не фриланс!!
Так я тоже вижу что не фриланс, но судя по заявке очень похоже. С чем тут помогать то?? Никакой работы ТС не проделал.
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума Ответить с цитированием
Старый 26.06.2019, 12:23   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от WorldMaster Посмотреть сообщение
С чем тут помогать то?? Никакой работы ТС не проделал.
ну, если он никакой работы не проделал, то с чего Вы решили, что он собирается платить Вам за вашу работу?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 26.06.2019, 12:31   #6
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
ну, если он никакой работы не проделал, то с чего Вы решили, что он собирается платить Вам за вашу работу?!
Ну видя что за последнее время в теме никакой движухи нет предложил хоть какой то вариант решения задачи для ТС.
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума Ответить с цитированием
Старый 30.06.2019, 05:37   #7
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
unit Unit1;

interface

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

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

var
  Form1: TForm1;
  n:integer;
  z:boolean;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer1.Enabled:=false;
   Timer1.Interval:=100;
   Label1.Caption:='';
   z:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled:=true;
   n:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   If z then
   begin
      Label1.Top:=Label1.Top+n;
      If Label1.Top+n<=0 then
         n:=-n;
      If Label1.Top+Label1.Height+n>=ClientHeight then
         n:=-n;
   end else
   begin
      Inc(n);
      Label1.Caption:=Copy(Edit1.Text,1,n);
      If n=Length(Edit1.Text) then
      begin
         z:=true;
         n:=-3;
      end;
   end;
end;

end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal Lazarus. Готовый текст программы. Создать рабочую форму Usya100 Фриланс 2 18.05.2015 07:04
создать форму и её дочернюю форму и организовать вывод Делфи программирование Помощь студентам 0 21.09.2013 20:18
Как создать форму в ручную и освободить из памяти предыдущую форму, на С++Builder 2009? AndreyK Общие вопросы C/C++ 1 18.01.2012 20:54
создать форму, по которой можно листать список назад и вперед мария2507 Microsoft Office Excel 13 14.03.2010 08:12
Скрипт записывающий текст введенные пользователем(я нуб) alex2693 Общие вопросы .NET 4 24.06.2009 22:43