DELPHI [ TUTORIAL I ] Editbox

1. Ketentuan Jika jumlah beli di isi kemudian di tekan enter maka total harga akan tampil ( meletakan codingannya pada edit2.text klik sekali kemudian pilih event On keyPress pada properties ).

Codingan : 

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

var

a,b,c:real;

begin

  if key =#13 then

  begin

    a:=strtofloat(edit1.text);

    b:=strtofloat(edit2.Text);

    c:=a*b;

    edit3.Text:=floattostr(c);

  end

end;

===============================================

2.     Ketentuan Jika Kode di isi kemudian di tekan enter maka nama dan jabatan akan tampil ( meletakan codingan pada edit1.text klik sekali kemudian pilih event On keyPress pada properties )

Codingan :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  if key = #13 then

  begin

    if edit1.text ='AB' then

      begin

        edit2.Text :='Abu Bakar';

        edit3.Text :='Direktur';

      end

    else

    if edit1.text ='CD' then

      begin

        edit2.Text :='Cihuy Deh';

        edit3.Text :='Manager';

      end

    else

    if edit1.text ='EF' then

      begin

        edit2.Text :='Efendi Firdaus';

        edit3.Text :='Foreman';

      end

    else

      begin

        showmessage('Kode Tidak Ada');

      end

  end

end;

===============================================

3.   Ketentuan Jika Uang Bayar di isi maka uang kembali OTOMATIS tampil ( meletakan codingan pada edit2.text klik sekali kemudian pilih event On change pada properties)

Codingan :

procedure TForm1.Edit2Change(Sender: TObject);

var

a,b,c:real;

begin

  a:=strtofloat(edit1.text);

  b:=strtofloat(edit2.Text);

  c:=b-a;

  edit3.Text:=floattostr(c);

end;



Create By : heeyriku