program memindahkan data dari combobox ke kotak edit pada delphi 7

Program memindahkan data dari combobox ke kotak edit pada delphi 7 - kali ini semut junior akan memberikan contoh program delphi yang di pelajari di kuliah hari ini dari pada data ilang mendingan saya share ke temen teman agar bisa belajar bersama-sama nah langsung saja ini dia gambar programnya dan source codenya maaf cuma bisa ngasih source code karena jika saya kasih udah jadi maka kalian hanya akan diam tidak berkembang..

baca juga : contoh program delphi 7 penjualan

unit data;

interface

uses

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

  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type

  TForm1 = class(TForm)

    APPLIKASI: TGroupBox;

    ComboBox1: TComboBox;

    Button1: TButton;

    EDPRO: TEdit;

    GroupBox1: TGroupBox;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button13: TButton;

    Button14: TButton;

    Button18: TButton;

    Button19: TButton;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);

    procedure Button18Click(Sender: TObject);

    procedure Button19Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

EDPRO.Text:=ComboBox1.Text;

end;

//kode untuk warna sesuikan dengan button yang diinginkan ae

procedure TForm1.Button2Click(Sender: TObject);

begin

APPLIKASI.Color:=clBlue;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

APPLIKASI.Color:=clYellow;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

APPLIKASI.Color:=clBlack;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

APPLIKASI.Color:=clGreen;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

APPLIKASI.Color:=clWhite;

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

APPLIKASI.Color:=clRed;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

APPLIKASI.Color:=CLRBREAK;

end;

//kode untuk mengeluarkan program delphi 7

procedure TForm1.Button18Click(Sender: TObject);

begin

Close;

end;

// kode untuk memindahkan data dari combobox ke edit text

procedure TForm1.Button19Click(Sender: TObject);

begin

ComboBox1.Clear;

EDPRO.Clear;

SetFocus;

end;

end.

Posted by Unknown on - Rating: 4.5

Title : program memindahkan data dari combobox ke kotak edit pada delphi 7
Description : Program memindahkan data dari combobox ke kotak edit pada delphi 7 - kali ini semut junior akan memberikan contoh program delphi yang di pe...

Tweet Pin It