Mengecek Alamat Email dengan Delphi

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:= [...]

Mempercantik Tampilan Form dengan Hint

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

Aplikasi Memanggil Ms Office dengan Delphi

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 [...]

Kirim Email dengan delphi

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 [...]

Tips Membuat Warna Aktif pada TEdit

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: [...]

Berkreatifitas Bersama Delphi

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 [...]

Referensi Delphi, Tutorial Delphi, Tips & Trik Delphi

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/ [...]