Pomogite c Stop Watch

← →
Mohamed (2004-01-07 00:12) [0]

Uvajaemie mastera Delphi Pomogite pojaloista, vot uvas text pragramma
Ia khatchu delat sekundamer gde tam Start I Sbros (Button1Click:SetTimer, Button1Click:KillTimer);
Ashibka v (Button1Click:SetTimer и Button1Click:KillTimer);
Not enough actual parameters.

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Hide;
with ProgressBar1 do
Position:=Position+1;
if progressbar1.Position=100 then
Form1.Show;
//Tak i khotel zdes dobavit takoe functse chto bi pokazala na Caption u Label1
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1Click:SetTimer;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click:KillTimer;
end;

end.

← →
Delphi5.01 © (2004-01-07 10:14) [1]

Izvenite za pramotu, no vi zdes namudrili takoe chto mne ponadobilos 5 minut chtob ponat chto vi hoteli zdelat! Vot privoju kod programii, kotori po meemu vas i interesuet!

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
TimerStop: Boolean; //ukazivaet rabotaet taimer ili ostanvlen
StartTime: Integer; //nachlnoe znachenie vremeni
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
StartTime:=GetTickCount; //procedura vozrashaet znachenie vremeni v milisekundax
//vrema kotoroe proshlo s zapuska kompa
TimerStop:=False; //a znachit zapuskaem timer
while Not TimerStop do
begin
form1.Caption:="Time: "+IntToStr(GetTickCount-StartTime); //vichislau skolko
//vremeni proshlo, i vivoju znachenie na ekran
Application.ProcessMessages; //nujen dla togo chtob proga ne zavisala
//proisxodilo obnovlenie
if Application.Terminated then //esli ktoto popitalsa otrubit programu
exit;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TimerStop:=True; //ostanavlivau taimer
end;

end.
//no voobshe dla etoi celi ispolzovat Thread, i ne vkoem sluchee ne ispolzuite
//Timer, on daiot bolshie oshibki vo vremeni

Jelau udachi

Pomogite c Stop Watch Найти похожие ветки