Membuat Form Properties Text

seperti yang kita tau, sebuah text di dalam sebuah program word processor mempunyai properti yang kita bisa atur semau kita.. apakan ukurannya, tebal tipisnya maupun warnanya. kali ini kita buat simulasi properti text dengan delphi 7.

pertama buat form seperti di bawah :

kedua, ketikan code pada listing code hingga seperti berikut :

private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

  nonaktif;

  bersih;

combobox1.Items:=screen.Fonts;

  combobox1.Text:='-PILIH FONTS-';

  combobox2.Text:='-PILIH SIZE-';

  combobox3.Text:='-PILIH BACK COLOR-';

  combobox4.Text:='-PILIH STYLE-';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

memo1.Text:=uppercase(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

memo1.Text:=lowercase(Edit1.Text);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

memo1.Font.Name:=combobox1.Text;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

memo1.Font.Size:=strtoint(combobox2.Text);

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

begin

if combobox3.Text='Merah' then

  memo1.Color:=clred

  else if combobox3.Text='Biru' then

  memo1.Color:=clblue

  else memo1.Color:=clgreen;

end;

procedure TForm1.ComboBox4Change(Sender: TObject);

begin

if combobox4.Text='Bold' then

  memo1.Font.Style:=memo1.Font.Style+[fsBold]

  else if combobox4.Text='Italic' then

  memo1.Font.Style:=memo1.Font.Style+[fsItalic]

  else if combobox4.Text='Underline' then

  memo1.Font.Style:=memo1.Font.Style+[fsUnderline]

  else if combobox4.Text='StrikeOut' then

  memo1.Font.Style:=memo1.Font.Style+[fsStrikeOut]

  else

  memo1.Font.Style:=memo1.Font.Style-[fsBold,fsItalic,fsUnderline,fsStrikeOut];

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

memo1.Font.Color:=clred;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

  memo1.Font.Color:=clgreen;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

memo1.Font.Color:=clyellow;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

memo1.Font.Color:=clpurple;

end;

procedure TForm1.RadioButton5Click(Sender: TObject);

begin

memo1.Font.Color:=clblack;

end;

procedure TForm1.RadioButton6Click(Sender: TObject);

begin

memo1.Font.Color:=clblue;

end;

tton5Click(Sender: TObject);

begin

application.Terminate;

end;

end.

READMORE

Membuat Game Tangkep Pocong dengan Delphi 7

untuk membuat "Game Tangkep Pocong" ini kita membutuhkan beberapa item. yaitu :

1. gambar si pocong (tentunya)
2. sebuah label (caption : SCORE)
3. 2 buah tombol (tombol Start dan tombol stop)

ok, kita mulai saja.

Pertama, desain form hingga membentuk seperti ini

Kedua, masukan kode dibawah :

unit UPocong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
     procedure aktif;            //procedure bila sedang aktif
    procedure nonaktif;      //procedure bila sedang tidak aktif
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}
 procedure tform1.aktif;
begin
Image1.enabled:=True;
Image2.enabled:=True;
Image3.enabled:=True;
Image4.enabled:=True;
Edit1.Enabled:=True;
Button2.enabled:=True;
Image4.Visible:=True;
Timer1.Enabled:=True;
end;

procedure tform1.nonaktif;
begin
Image1.enabled:=false;
Image2.enabled:=false;
Image3.enabled:=false;
Image4.enabled:=false;
Edit1.Enabled:=false;
Button2.enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
nonaktif;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
aktif;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.left:=Random(Left);
Image1.Top:=Random(top);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image2.left:=Random(Left);
Image2.Top:=Random(top);
end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image3.left:=Random(Left);
Image3.Top:=Random(top);
end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image4.left:=Random(Left);
Image4.Top:=Random(top);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Image2.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Image3.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
Image4.Visible:=False;
Edit1.text:=IntToStr(strtoint(Edit1.text)+20);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='100' then
begin
  nonaktif;
  ShowMessage('anda menang');
end
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
aktif;
ShowMessage('Game Over');
end;
end.

dan TARAAAA....!! jadi deh....
kalo masih error... silahkan posting aja disini... nanti tak benerin lagi... hehe

READMORE