mda....sa zic ca am reusit pana la urma cu labelul ala...si cu decrementarea....:))
am 2 intrebari [nelamuriri ] daca se poate....si apoi incerc sa nu te mai deranjez cu toate nimicurile...
1: ai putea sa -mi dai o indicatie despre cum se face un exe ?
2: am vrut sa fac la programel o chestie....si nu mi-a iesit, ca nu stiu exact cum sa declar procedura, ce variabile sa pun...etc...am un edit box ....in care scriu niste text....si vreau sa permita de exemplu numai scrierea de cifre....la caractere de alta natura sa scoata un [beep].....sau mesaj d eroare...
te rog uita te putin la procedura TForm1.Edit1KeyPress si la TForm1.Button7Click .....eu nu inteleg care e problema....
apropo...am gasit la biblioteca o carte de delphi 7...si mi se pare destul de buna...are multe exemple....
tocmai e la xerox.....asa ca in timpul liber am ce face....n-o sa ma mai plictisesc...:P
********************************************************************************
*************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button7: TButton;
Label4: TLabel;
Edit1: TEdit;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color := clGreen;
Form1.Label1.Visible :=false;
Form1.Label2.Visible :=true;
Form1.Label2.Caption :='Astazi este ' + DateToStr(date) + ' ...';
Form1.Label3.Visible :=false;
Form1.Edit1.Visible := false;
Form1.Label4.Visible :=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Color := clFuchsia;
Form1.Label1.Visible :=true;
Form1.Label2.Visible :=false;
Form1.Label3.Visible :=false;
Form1.Edit1.Visible := false;
Form1.Label4.Visible :=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Color := clLime;
Form1.Label1.Visible :=false;
Form1.Label2.Visible :=false;
Form1.Label3.Visible :=true;
Form1.Edit1.Visible := false;
Form1.Label4.Visible :=false;
Form1.Label3.Caption := 'Este ora : ' + TimeToStr(Time);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Sleep(500);
Form1.Edit1.Visible := false;
Form1.Label4.Visible := false;
Form1.Label3.Visible := false;
Form1.Label2.Visible := false;
Form1.Label1.Visible := false;
Form1.Color :=clPurple;
Form1.Button5.Visible := true;
Form1.Button6.Visible := true;
Form1.Button1.Enabled := false;
Form1.Button2.Enabled := false;
Form1.Button3.Enabled := false;
Form1.Button4.Enabled := false;
Form1.Button7.Enabled := false;
end;
procedure TForm1.Button5Click(Sender: TObject);
var i :integer;
begin
Form1.Label5.Visible := true;
Refresh;
for i:=6 downto 0 do
begin
Sleep(1000);
Form1.Label5.Caption := 'Aplicatia se inchide peste ' + IntToStr(i) + ' secunde...';
Refresh;
Form1.Caption :='Exit within ' + IntToStr(i) + ' seconds..';
end;
Close;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Sleep(1000);
Form1.Button5.Visible := false;
Form1.Button6.Visible := false;
Form1.Button1.Enabled := true;
Form1.Button2.Enabled := true;
Form1.Button3.Enabled := true;
Form1.Button4.Enabled := true;
Form1.Button7.Enabled := true;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Form1.Label3.Visible := false;
Form1.Label2.Visible := false;
Form1.Label1.Visible := false;
Form1.Color := clRed;
Form1.Label4.Visible := true;
Form1.Label4.Caption := ' Introduceti textul de verificat :' ;
Form1.Edit1.Visible := true;
Form1.Edit1.Text := '';
end;
{
procedure TForm1.Edit1KeyPress(Sender: TObject );
var Key: Char;
begin
if not (key in ['0'..'9']) then
begin
key := #0;
beep;
end;
else
Form1.Edit1.Text := Form1.Edit1.Text + key ;
end;
}
end.
