Posted on 19 November 2009 by sabdowaluyo
Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Online
unit CekMail;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function CekEMail(EMail: String): Boolean;
var
s: String;
posisi: Integer;
begin
posisi:= pos(‘@’, EMail);
if posisi > 1 then
begin
s:= copy(EMail,posisi+1,Length(EMail));
if (pos(‘.’, s) > 1) and (pos(‘.’, s) < length(s)) then
Result:= [...]
DIarsipkan di bawah: Tips Belajar Delphi | Ditandai: Belajar Delphi Online, delphi, Tips & Trik Delphi, Tips Belajar Delphi, Tutorial Delphi | Leave a Comment »
Posted on 16 November 2009 by sabdowaluyo
Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Online
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;
Label1: TLabel;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure tampilkanhint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.tampilkanhint(Sender: TObject);
begin
label1.Caption:=application.Hint;
StatusBar1.SimpleText:=application.Hint;
caption:=application.Hint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.ShowHint:=true;
application.OnHint:=tampilkanhint;
end;
end.
TransCODE Software
DIarsipkan di bawah: Tips Belajar Delphi | Ditandai: delphi, Delphindo, Tips & Trik Delphi, Tips Belajar Delphi, Tutorial Delphi | Leave a Comment »
Posted on 15 November 2009 by sabdowaluyo
Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Onlie
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Shellapi,StdCtrls;
type
TForm1 = class(TForm)
Btn1: TButton;
Btn2: TButton;
Btn3: TButton;
Btn4: TButton;
procedure Btn1Click(Secnder: TObject);
procedure Btn2Click(Sender: TObject);
procedure Btn3Click(Sender: TObject);
procedure Btn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Btn1Click(Sender: TObject);
begin
ShellExecute(handle, ‘Open’, ‘C:\Program Files\Microsoft Office/Office11/Winword.exe’, NiL,NiL, SW_SHOWNORMAL);
end;
procedure TForm1.Btn2Click(Sender: TObject);
begin
ShellExecute(handle, ‘Open’, ‘C:\Program [...]
DIarsipkan di bawah: Tips Belajar Delphi | Ditandai: Code Delphi, delphi, Delphindo, Tips & Trik Delphi, Tips Belajar Delphi | Leave a Comment »
Posted on 10 November 2009 by sabdowaluyo
Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Online
unit callMail;
interface
uses
Windows, Mengesang, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,ShellApi; type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
strTujuan, strSubject, strIsi,Param : String;
begin
strTujuan := ‘iklanwaluyo@Gmail.com‘;
strSubject := ‘Subject‘;
strIsi := ‘Isi Text‘;
Param :=’mailto:’ + strTujuan + ‘?subject=’ + strSubject [...]
DIarsipkan di bawah: Tips Belajar Delphi | Ditandai: Belajar Delphi, delphi, Delphindo, programming delphi, Tips & Trik Delphi, Tutorial Delphi | Leave a Comment »
Posted on 9 November 2009 by sabdowaluyo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, GradPnl, dxCore, dxButtons, ExtCtrls, Variants;
type
TForm1 = class(TForm)
pnl2: TPanel;
btnSimpan: TdxButton;
btnBatal: TdxButton;
pnl1: TPanel;
GradientPanel1: TGradientPanel;
pnl3: TPanel;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl7: TLabel;
lbl9: TLabel;
lbl10: TLabel;
lbl11: TLabel;
lbl5: TLabel;
lbl8: TLabel;
lbl6: TLabel;
lbl4: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
edt6: TEdit;
edt7: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure DoActiveControl(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: [...]
DIarsipkan di bawah: Tips Belajar Delphi | Ditandai: Belajar Delphi Online, Tips & Trik Delphi, Tips Belajar Delphi | Leave a Comment »
Posted on 6 Agustus 2009 by sabdowaluyo
Delphi telah memberikan perubahan dalam kehidupan manusia seperti kehidupan ku saat ini, dengan belajar delphi ternyata isi kantong juga bisa bertambah. Bahkan semenjak lulus kuliah sebagian hidupku hanya mengotak-atik delphi. Tidak hanya itu saja delphi telah memberikan kemudahan bagi pelaku bisnis seperti pemilik toko,restoran, apotek,rumahsakit,perusahaan baik kecil,menengah,besar bahkan sampai ke dunia pendidikan. Mengapa demikian karena [...]
DIarsipkan di bawah: Tips Belajar Delphi | Ditandai: delphi, programming delphi, tool delphi | 1 Komentar »
Posted on 1 Mei 2008 by sabdowaluyo
Seperti yang sudah pernah saya tulis sebelumnya bahwa untuk mengusai pemrograman khususnya delphi hendaknya kita sesering mungkin mengunjungi situs-situs yang membahas banyak tentang tips dan trik delphi, tutorial delphi, Component delphi dan masih banyak lagi. Dan untuk memudahkan mengunjung situs kembali saya sarankan anda mencatat link tersebut di blog anda.
Berikut ini merupakan situs-situs favorit saya.
http://www.torry.net/ [...]
DIarsipkan di bawah: Tips Belajar Delphi | Ditandai: database, Tips Belajar Delphi, tips delphi | 1 Komentar »