Lourens Loukassy

NET CHATING DEMOS....From Delphi 7 {Coba Dikembang lagi Kalau Sudah Ada yang Bermain Lebih Dalam Yach......}  Berikut Coding Net Chat : ___________________________________________________________________ ___________________________________________________________________ DELPHI 7 ___________________________________________________________________ unit Chatmain; interface uses   Classes, QControls, QStdCtrls, QExtCtrls, QButtons, QForms, Sockets; type   TForm1 = class(TForm)     memRecv: TMemo;     Panel1: TPanel;     memSend: TMemo;     Panel2: TPanel;     btnSend: TButton;     Panel3: TPanel;     Label1: TLabel;     edtRemoteHost: TEdit;     Label2: TLabel;     edtRemotePort: TEdit;     Label3: TLabel;     edtLocalPort: TEdit;     btnActivateServer: TButton;     TcpClient1: TTcpClient;     TcpServer1: TTcpServer;     procedure btnSendClick(Sender: TObject);     procedure TcpServer1Accept(sender: TObject;       ClientSocket: TCustomIpClient);     p

Praktikum Delphi 7 III ....... Membuat Memo Dengan BackGround,Font Colour,Size dan Pilihan Font... Codingnya Sebagai Berikut.......>>>><<<<< unit Latihan3; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, jpeg, ExtCtrls, Menus; type   TForm1 = class(TForm)     GroupBox1: TGroupBox;     GroupBox2: TGroupBox;     RadioButton1: TRadioButton;     RadioButton2: TRadioButton;     RadioButton3: TRadioButton;     RadioButton4: TRadioButton;     RadioButton5: TRadioButton;     CheckBox1: TCheckBox;     CheckBox2: TCheckBox;     CheckBox3: TCheckBox;     CheckBox4: TCheckBox;     ComboBox1: TComboBox;     ComboBox2: TComboBox;     CheckBox6: TCheckBox;     CheckBox7: TCheckBox;     CheckBox8: TCheckBox;     CheckBox9: TCheckBox;     CheckBox10: TCheckBox;     Image1: TImage;     Label1: TLabel;     Button1: TButton;     Memo1: TMemo;     MainMenu1: TMainMenu;     Fil