Har forklaret så godt jeg kan
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
j,FT,FL : integer;
implementation
uses ClipBrd;//vi vil gerne bruge clipboardet.
{$R *.dfm}
// This code is based on Jerome Scott II's idea
// Check out his code "Shaking Form" at planetsourcecode.com
// Submitted on: 7/29/2002 10:38:23 PM
procedure TForm1.FormCreate(Sender: TObject);
var
img : TImage;//opretter variablet img som er et billede
begin
Randomize();//ka ik lige huske hvad den gør
img := TImage.Create(self);//så creater vi billedet...det skal vi gøre før vi kan arbejde med det
img.parent := Self;//mener den skal sættes til det før billedet kan blive vist på skærmen
img.AutoSize := True;//billedet strækker sig selv for at hele billedet kan være der
keybd_event(VK_SNAPSHOT,0,0,0);//trykker på PrintScreen tasten så vi får et screenshot
sleep(1000);//gør intet i et sekund
img.Picture.Assign(Clipboard);//sæt vores billed til inholdet af clipboardet(vores screenshot)
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 10;//sæt timerens interval til 10ms
top := 0 + Random(20);//sæt formens top til 0 + et tilfældigt nummer mellem 1 og 20...shake-effekten skabes
left := 0 + Random(20);//det samme her..her sætter vi bare left
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #98 then if Timer1.Enabled = True then //press 'b' to stop shaking
Timer1.Enabled := False else Timer1.Enabled := True;
if Key = #120 then Application.Terminate; // press 'x' to exit
end;
end.-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------
[Redigeret d. 12/01-05 09:21:50 af Jonas (Decko)]