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

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.