VPF::Сотресание формы - Форум программистов

ShuVaS

Дата 23.1.2005, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Подскажи плизз как мне при старте моего приложения портясти форму около секунды в разные стороны (не сильно токо )
smile

s-mike

Дата 23.1.2005, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 9
Всего: 16

По таймеру случайно изменять позицию. SetBounds тебе поможет.

--------------------

Преферанс для Android на базе исходников Марьяжа

ProgrammistDelphi

Дата 23.1.2005, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Встряски формы можно добиться путем изменения движений по вертикали и горизонтали. Путем изменения свойств Form1.Top и Form1.Left

Код



unit Unit1;

interface

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

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

var
  I: Integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
if i=0 then
form1.Timer1.Enabled:=false;
//form1.Height:=form1.Height div 2;
//sleep(5);
//form1.Width:=form1.Width div 2;
//sleep(1);
form1.Left:=form1.Left div 2;
sleep(20);
form1.Top:=form1.Top div 2;
sleep(20);
form1.Left:=form1.Left * 2;
sleep(20);
form1.Top:=form1.Top * 2;
sleep(20);
form1.Left:=form1.Left * 2;
sleep(20);
form1.Top:=form1.Top * 2;
sleep(20);
form1.Left:=form1.Left div 2;
sleep(20);
form1.Top:=form1.Top div 2;
sleep(20);
I:=I-1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
I:=10;
end;

end.

форму будет колбасить и плющить ровно столько: I:=10;

ShuVaS

Дата 23.1.2005, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Неее - а полегче нельзя ??Мне нада чтобы тряслось 1-2 см на екране

z-END

Дата 23.1.2005, 15:15 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

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

Репутация: 11
Всего: 102

Код


//Sender - форма которую надо поколбасить
//Amplitude - сила "колбасения"
//DurationMS - время колбасения в 1/1000 секунды (мс)
//Speed - скорость колбасения 1-минимум 255-предел, 0 - максимальная скорость
procedure ShakeForm (Sender: TForm; Amplitude, DurationMS: Integer; Speed: Byte);
var S: Integer;
L,T: Integer;
begin
if not Assigned(Sender) then exit;
S:=GetTickCount;
L:=Sender.Left;
T:=Sender.Top;
with Sender do
 while GetTickCount < (S+DurationMS) do
   begin
    Left := L + Random ((Amplitude*2) - (Amplitude div 2));
     Top := T + Random ((Amplitude*2) - (Amplitude div 2));
    Application.ProcessMessages;
    if speed in [1..255] then  sleep (255 div speed);
   end;
end;

Как пользоваться думаю разберешься

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

ShuVaS

Дата 23.1.2005, 17:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Спасибо .... именно єто и нада

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »