RPL XX

Koneksi Database tanpa alias - Table

Tulis code dibawah ini pada FormCreate :

begin with Table1 do   begin     Active:=false;

    DatabaseName:=ExtractFilePath(Application.ExeName)+'<folder database>';

    TableName:='<nama database>.db';

    Active:=true;   end; end;

************************************************************************

Form cantik yang bisa digeser

Letakkan definisi prosedur ini pada bagian type

1.  procedure WMNCHitTest (var msg : TWMNCHitTest);message WM_NCHitTest;

Pada bagian implementasi tambahkan kode berikut:

procedure TForm1.WMNCHitTest (var msg : TWMNCHitTest); begin inherited; if (msg.Result = htClient) then if Msg.YPos < Top + 40 then msg.Result := htCaption; end;

2.  Letakkan kode ini pada Form>>OnMouseMove

ReleaseCapture;

SendMessage(Form1.Handle, wm_SysCommand,$f012,0);