Menyimpan Posisi Form


Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Online
unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses IniFiles;

procedure TForm1.FormCreate(Sender: TObject);
var
INI: TIniFile;
begin
INI := TIniFile.Create(ChangeFileExt(ParamStr(0), ‘.INI’));
Top  := INI.ReadInteger(ClassName, ‘Top’, 0);
Left := INI.ReadInteger(ClassName, ‘Left’, 0);
INI.Free;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
INI: TIniFile;
begin
INI := TIniFile.Create(ChangeFileExt(ParamStr(0), ‘.INI’));
INI.WriteInteger(ClassName, ‘Top’, Top);
INI.WriteInteger(ClassName, ‘Left’, Left);
INI.Free;
end;

end.

TransCODE Software
Iklan

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 +’&Body=’ +    strIsi;

ShellExecute(Form1.handle,’open’,PChar(Param),nil,nil,SW_SHOWNORMAL);

end;

end.

TransCODE Software

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 delphi merupakan salah satu piranti yang digunakan untuk membuat aplikasi seperti contoh software toko atau yang sering disebut dengan komputer kasir dan mampu menghasilkan laporan laporan yang lebih akurat dan cepat bagi si pemilik.

Seperti Sang Pencipta yang telah menciptakan manusia yang mampu berinteraksi dengan sesamanya. Delphi dibangun dengan kecerdasan buatan manusia dan mempunyai tampilan yang sangat indah dan tool yang mudah digunakan untuk berkomunikasi dengan para penggunanya. Tidak kalah menariknya para perancang delphi membuat object oriented programming yang dapat di turunkan dengan sifat yang di wariskan, seperti manusia seorang manusia yang baru lahir pasti akan mewarisi sifat induknya baik wajah yang mirip, sifat yang sama dan sebagainya. metode ini digunakan para perancang delphi untuk memudahkan para programmer delphi supaya tidak melakukan pekerjaan “pengkodingan” yang berulang-ulang.

selamat mencoba kreativitas bersama delphi