Ands Blog

Contoh Menggunakan TSplitter di Delphi 7 - TSplitter di Delphi berguna untuk membuat ukuran komponen bisa diubah-ubah ukurannya secara manual, seperti pemisah antara dua komponen dan bisa digeser-geser sesuai kebutuhan. Untuk lebih jelasnya bisa dilihat seperti contoh berikut ini.

• Pertama buat sebuah form dan tempatkan sebuah TDirectoryListBox, sebuah TSplitter dan sebuah TFileListBox seperti gambar berikut

• Kemudian tambahkan script pada event OnCreate dari Form1 seperti berikut,

          procedure TForm1.FormCreate(Sender: TObject);
          begin
             DirectoryListBox1.Parent := Form1;
             DirectoryListBox1.Align := alLeft;
             Splitter1.Parent := Form1;
             Splitter1.Align := alLeft;
             FileListBox1.Parent := Form1;
             FileListBox1.Align := alClient;
             DirectoryListBox1.FileList := FileListBox1;
           end;








Berikut script lengkapnya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart,
  DB, DBTables, FileCtrl, Buttons, jpeg;

type
  TForm1 = class(TForm)
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DirectoryListBox1.Parent := Form1;
  DirectoryListBox1.Align := alLeft;
  Splitter1.Parent := Form1;
  Splitter1.Align := alLeft;
  FileListBox1.Parent := Form1;
  FileListBox1.Align := alClient;
  DirectoryListBox1.FileList := FileListBox1;
end;

end.


Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : http://andsc.blogspot.com

<<<< Terima kasih >>>>