налетай - разберай прог парад

[alexxxxZxxxx]

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

1. Браузер


unit BrowserUnit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ComCtrls, OleCtrls, SHDocVw, ToolWin;

type
TFrG_Browser = class(TForm)
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolBar2: TToolBar;
WebBrowser1: TWebBrowser;
BackToolButton: TToolButton;
NextToolButton: TToolButton;
StopToolButton: TToolButton;
RefreshToolButton: TToolButton;
ImageList1: TImageList;
ComboBox1: TComboBox;
GoToolButton: TToolButton;
StatusBar1: TStatusBar;
ProgressBar1: TProgressBar;
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BackToolButtonClick(Sender: TObject);
procedure NextToolButtonClick(Sender: TObject);
procedure StopToolButtonClick(Sender: TObject);
procedure RefreshToolButtonClick(Sender: TObject);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrG_Browser: TFrG_Browser;

implementation

{$R *.dfm}

procedure TFrG_Browser.ComboBox1KeyDown(Sende r: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=vk_return
then
WebBrowser1.Navigate(ComboBox1.Text );
end;

procedure TFrG_Browser.BackToolButtonClick(Se nder: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TFrG_Browser.NextToolButtonClick(Se nder: TObject);
begin
WebBrowser1.GoForward;
end;

procedure TFrG_Browser.StopToolButtonClick(Se nder: TObject);
begin
WebBrowser1.Stop;
end;

procedure TFrG_Browser.RefreshToolButtonClick (Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure TFrG_Browser.WebBrowser1ProgressCha nge(Sender: TObject; Progress,
ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;

procedure TFrG_Browser.WebBrowser1StatusTextC hange(Sender: TObject;
const Text: WideString);
begin
StatusBar1.SimpleText:=Text;
end;

end.


2.Развлекайтесь

unit Unit1;

interface

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

type
TFrMouse = class(TForm)
Button: TButton;
ButtonGo: TButton;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Timer1: TTimer;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
procedure ButtonGoMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Go;
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;

var
FrMouse: TFrMouse;

implementation

{$R *.dfm}

procedure TFrMouse.ButtonGoMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
ButtonGo.Top:=random(FrMouse.Height-(ButtonGo.Height+1));
ButtonGo.Left:=random(FrMouse.Width-(ButtonGo.Width+1));
end;

procedure TFrMouse.RadioButton1Click(Sender: TObject);
begin
Color:=clGreen;
end;

procedure TFrMouse.RadioButton2Click(Sender: TObject);
begin
Color:=clRed;
end;

procedure TFrMouse.RadioButton3Click(Sender: TObject);
begin
Color:=clWhite;
end;

procedure TFrMouse.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
// Top:=random(550);
// Left:=random(750);
end;

procedure TFrMouse.FormActivate(Sender: TObject);
begin
FrMouse.Go;
end;

procedure TFrMouse.Go;
var
i:Integer;
begin
FrMouse.Top:=0;
FrMouse.Left:=0;
for i:=0 to 600-FrMouse.Height do
begin
FrMouse.Top:=i;
end;

for i:=0 to 800-FrMouse.Width do
begin
FrMouse.Left:=i;
end;

for i:=600-FrMouse.Height downto 0 do
begin
FrMouse.Top:=i;
end;

for i:=800-FrMouse.Width downto 0 do
begin
FrMouse.Left:=i;
end;
end;

procedure TFrMouse.Timer1Timer(Sender: TObject);
begin
FrMouse.Go;
end;

procedure TFrMouse.RadioButton4Click(Sender: TObject);
begin
Color:=clBlue;
end;

procedure TFrMouse.RadioButton5Click(Sender: TObject);
begin
Color:=clBlack;
end;

end.






кому понравится -пишите -еще чего-нить скину

[Jeni]

Всё бы хорошо, но лучше прикреплять файлы с кодом, а не писать здесь сам код огромными кусками. А еще не мешало бы проставить комментарии и сделать отступы (ну так, прикола ради).

[Шульц]

Не красивый код

[KORN]

смысл писать закоментированные процедуры7