procedure TFEnTarikBarang.actCariExecute(Sender: TObject); var CurPos: TPoint; begin inherited; GetCursorPos(CurPos); pop1.Popup(CurPos.x, CurPos.y); end; berfungsi untuk menampilkan popup menu pa… lagi →
.: NeVeR GivE uP :.cyberheck wrote 1 year ago: procedure TFEnTarikBarang.actCariExecute(Sender: TObject); var CurPos: TPoint; begin inherited; Ge … more →
cyberheck wrote 1 year ago: procedure TFEnPlgnAktif.aqGunaBrgCalcFields(DataSet: TDataSet); begin inherited; with TADOQuery(Data … more →
cyberheck wrote 1 year ago: function myGetTerbilang(sValue: string; const useRupiah: Boolean = true): string; const Angka : ar … more →
cyberheck wrote 1 year ago: procedure TFMainMenu.actLsUserExecute(Sender: TObject); var FLsUser : TFLsUser; begin if FindCompone … more →
cyberheck wrote 1 year ago: gara-gara lama gak main internet sampe lupa kalo banyak kejadian yg belum ku tulis. makanya hari ini … more →