Mereset String Grid

Berikut ini tips untuk me-reset (mengosongkan) isi dari setia sel dalam strimg grid tanpa mengurangi jumlah kolom dan baris.

Semoga bermanfaat.

procedure ClearGrid(Sender:TForm;GridName: String);
Var I,j,x : Integer;
IRow,ICol : Integer;
begin
For I:= 0 to Sender.ComponentCount – 1 do
Begin
If (Sender.Components[i] is TStringGrid) Then
Begin
If (Sender.Components[i] as TStringGrid).Name = GridName Then
Begin
ICol := (Sender.Components[i] as TStringGrid).ColCount;
IRow := (Sender.Components[i] as TStringGrid).RowCount;
For J:= 1 to IRow-1 do
Begin
For X:=0 to ICol-1 do
Begin
(Sender.Components[i] as TStringGrid).Cells[X,j]:=’ ‘;
End;
End;
(Sender.Components[i] as TStringGrid).RowCount :=2;
End;
End;
End;
end;

Menggabung TEdit dengan TSpeedbutton

Terkadang kita memerlukan untuk menyatukan antara komponen TEdit dengan komponen yang lain. Misalnya dengan TSpeedButton.

1. Buat aplikasi baru

2. Tambahkan komponen TEdit ke dalam form (Edit1)

3. Tambahkan komponen TSpeedbutton kedalam form (Speedbutton1)

4. Atur tinggi dan lebar speedbutton1 sama dengan tinggi komponen Edit1.

5. Atur Glyph dari Speedbutton sesuai dengan gambar yang diinginkan

Pada event oncreate milik form, tambahkan kode dibawah ini

Var t :TRect;

Begin
SendMessage(edit1.Handle,EM_SETMARGINS,EC_RIGHTMARGIN,MakeLong(0,20));
SpeedButton1.Height :=Edit1.ClientHeight;
SpeedButton1.Parent := Edit1;
SpeedButton1.Align  :=alRight;
SpeedButton1.Cursor := crHandPoint;
end;

Hasil akhir akan seperti ini:

Semoga bermanfaat