Tutorial Kali ini Khusus untuk Newbie cara Pencarian Kalender yaitu
Tanggal,bulan dan tahun dengan menggunakan Tombol (TBUTTON) dan Case OF ,
Program ini di buat menggunakan Borland delphi 7. langsung saja Ke
tutorialnya
Yang Ingin Download SourceCode nya bisa di download Dibawah ini :
Via Mediafire :
>Download<
Via 4shared :
>Download<
Code Lengkap :
==========================Begin Code=====================
unit Unit1;
//http://olvandra.blogspot.com //
//http://meanddelphi.blogspot.com //
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Grids, Calendar, ExtCtrls, XPMan;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Calendar1: TCalendar;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
XPManifest1: TXPManifest;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Length(edit1.Text)=0 then
Calendar1.Day:=strtoint(edit1.Text);
Calendar1.Month:=strtoint(edit2.Text);
Calendar1.year:=strtoint(edit3.Text);
label4.Caption:=edit1.Text;
label5.Caption:=edit2.Text;
label6.Caption:=edit3.Text;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case Key Of
'0': Exit;
'1': Exit;
'2': Exit;
'3': Exit;
'4': Exit;
'5': Exit;
'6': Exit;
'7': Exit;
'8': Exit;
'9': Exit;
#8 : Exit; {Backspace}
End;
Key := #0; {Throw the key away}
end;
end.
=======================END CODE=================
Sabtu, 06 April 2013
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar
Untuk Mengurangi SPAM .Gunakan Kata-kata yang sewajarnya, sopan dalam tutur kata berbahasa. Sekian Terima kasih.