Gan, misal di edit box mau input harga, misal 1000, nah pas di tekan tombol nol yg ketiga maka akan mjd spt ini 1,000. Itu gmn ya? Auto insert separator gitu.
untested public procedure MouseWheel(var Message: TMessage); message WM_MOUSEWHEEL; procedure MouseWheel(var Message: TMessage); begin Message.Msg := WM_KEYDOWN; Message.lParam := 0; if Message.WParam > 0 then Message.WParam := VK_UP else Message.WParam := VK_DOWN; SendMessage(Handle,Message...
gan, kalau scroll mouse itu eventnya dimana ya? pada saat scroll mouse. . . dan juga bila di klik panah scrollbar dbgrid baik yang di atas ataupun di bawah itu nama eventnya apa ya? http://img339.imageshack.us/img339/6074/eventjz.jpg Uploaded with ImageShack.us
@agan sinarPurnama thanks gan tambahannya. . . :D :2thumbup ==============edit============== udah mau...
bisa banget donk.. gunakan table user, dengan field sejumlah otoritas yg akan diterapkan.. ane biasanya menambai selain, ID, nama lengkap dengan field0,field1...dst dengan nilai integer. jika field0 dst bernilai 1 maka, otoritas yg dimaksud diberikan.. SA : semua field nilai 1, Ad : tergantung, ...
gan, misal ada 3 user: 1. Super Admin 2. Admin 3. User biasa misal Logikanya kaya gini: - jika SuperAdmin maka bisa mengakses semuanya. - jika Admin maka boleh mengakses semuanya, kecuali menambah dan menghapus anggota. - jika user biasa maka hanya boleh melihat ataupun melakukan transaksi saja. ...
gunakan findcomponent bisa ditambahi, tapi harus ubah sourcenya :hammers coolbar bisa kok ditambahi menu, dalam bands editornya, ditambahin sejumlah yg diinginkan, nanti bisa dilink control yg mau ditambahkan, termasuk main menu. contohnya di folder delphi/demos/ actionbands setelah ane liat kom...
cari komponent TPngButton thanks gan, tapi karena buat tugas kuliah jadi tanpa harus menggunakan komponen tambahan, tapi udah sesuai harapan walaupun tetap menggunakan file *.bmp. btw, kalau menggunakan CoolBar, kan mainmenu tidak tampil, nah, gimana caranya agar CoolBar dan MainMenu tampil kedua...
var i : Integer; begin with Form1 do begin for i := 0 to ControlCount -1 do begin if Controls is TLabel then begin TLabel(Controls).Top := 10; end; end; end; perlu diperhatikan, parent control letak labelnya apa, contoh label terletak di form1 thanks gan. . . udah dijawab ama agan domba... so na...
gan, kalau ada banyak label (misal 50), trus ane pengennya pada saat form onshow semua posisi top dari label tersebut adalah 10, nah gimana caranya agar kodingan seperti ini dibikin menjadi lebih singkat, atau dioptimalkan. label1.top:= 10; label2.top:= 10; label3.top:= 10; ... ... ... label50.t...
bisa..banget malah... private { Private declarations } fAngle: Integer; procedure AngleTextOut(ACanvas: TCanvas; Angle, X, Y: Integer; Text: string); var NewFontHandle, OldFontHandle: hFont; LogRec : TLogFont; begin GetObject(ACanvas.Font.Handle, SizeOf(LogRec), Addr(LogRec)); LogRec.lfEscapemen...
tambahkan "binary"... with ZQuery1 do begin Active := False; Close; SQL.Clear; SQL.Text:= 'SELECT * FROM tkaryawan WHERE nama LIKE ' + QuotedStr('%' + edCari.Text + '%') + ' BINARY'; Active := True; Open; end; jujur gw lupa penempatannya dimana....
bisa aja, kk.. istilahnya kalo maen sepak bola, bola sekarang udah di agan. mau di oper ke yg lain silakan. mau agan giring sendiri sampe gol malah bagus. sia-sia, buang2 waktu dan energi aja gan kalo cuman dapetin no telpon nya, tapi gak dilanjutin sama pdkt. jangan dulu mikirin hasil akhirnya ...
macem2 gan, kalo menurut saya. ada yg cuek2 aja, toh cuman no telpon ini, bukan minta cium :hammer: ada jg yg gak seneng, karena si cowo dapet no telpon tuh cewe bukan langsung minta dari cewe tuh sendiri. efek nya, jangan kaget kalo di reject waktu telpon atau gak dibales sms nya. kalo menurut s...
gan, agar case censitive gimana ya? with ZQuery1 do begin Active := False; Close; SQL.Clear; SQL.Text:= 'SELECT * FROM tkaryawan WHERE nama LIKE ' + QuotedStr('%' + edCari.Text + '%'); Active := True; Open; end;