link has been copied
Agan ini masih malu-malu nyeritain tentang dirinya.
Koneksi
Membalas thread wonguedantenan gan, kok gak pas ya posisi top formnya ketika tampil... ini kodingnya... function TaskBarHeight: integer; var hTB: HWND; // taskbar handle TBRect: TRect; // taskbar rectangle begin hTB:= FindWindow('Shell_TrayWnd', ''); if hTB = 0 then Result := 0 else begin GetWindowRect(hTB...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan Pagi Agan Agan semua, Ane Mau Tanya, Code untuk membuat isian inputbox menjadi huruf besar semua bagaimana ya... sudah pakai uppercase gak bisa :bingung code ini gagal kode_barang:=uppercase(inputbox('Konfirmasi','Masukkan Kode Barang ..! !!','')); code ini juga gag...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan Klw disimulasikan sih bisa. Tapi user tetep bisa switch ke aplikasi lain pake alt+tab. Bikin aja form bertipe fsOnTop, kasih warna hitam, dan AlphaBlending dgn value sktr 100-an. Buat form itu nutupin semua layar. Baru form yg mau dijadikan focus dimunculkan dgn ShowModal. oh jadi kalo di akalin... 
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan gan ane minta tolong, nih ane bingung banget kenapa bisa salah, dah ane oprek² tapi masih failed juga nih SS nya http://cdn-u.kaskus.co.id/66/dohd5wmv.jpg itu keliling sama lingkarang yang di dalem begin akhirnya gak ane kasi ; karna waktu di kasi error nya malah nambah jadi 4, kata compilernya ... 
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan Yup..itu perilaku single thread, dimana prosesing tiap proses dalam satu thread diolah secara serial. Kalo butuh yang "bisa jalan bareng" ya pake metode multithreading biar satu proses tdk mengganggu jalannya proses lain, touch this part to stepping on next advance programming model :D ... 
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan gan, kalo pas lagi ada proses looping dan form di drag maka prosesnya akan berhenti, dan lanjut apabila form sudah tidak di drag lagi, apakah memang begitu... atau ada koding khusus supaya pas saat looping dan form di drag, proses looping tetap jalan. procedure TForm1.Button1Click(Sender: TObjec...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan > jadi isi yang ada di public declaration itu adalah untuk global ya. . . > jadi bisa di gunakan di seluruh form yang lain... Bukan global tapi public method. Dalam OOP (object Oriented Programming), procedure yang dimiliki sebuah obyek (dalam hal ini TForm1) disebut method. Method ini kala...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan @berhadiahcendol: logika agan aneh banget... gpp, pelajari lg help delphi tentang penggunaan "as" sbg pemberitahu tipe pd compiler.. procedure tes2(Form: TForm; memoName: string; Label4: Tlabel); begin label4.Caption:= (Form.FindComponent(memoName) as tMemo).text; end; utk pertanyaan ...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan coba gini: Procedure tes(label1, label2 : Tlabel); begin (label1 as tLabel).Caption := (label2 as tLabel).Caption; end; atau bisa juga onTheFly gini: Procedure tes(); var aLbl : tLabel; begin aLbl := Self.FindComponent('label1'); if aLbl <> nil then (aLbl as tLabel).Caption := ...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan Ijin jawab gan :Peace: Menurut pengalaman ane, emang betul masalahnya pas form2 di close, TForm2 tsb di-free, alias dibuang dari memory. Jadi obyek TForm2 yg disimpen di variable Form2 udah ilang, tp referensi ke TForm2 itu masih tersimpan di Form2 karena Form2 tidak di-nil-kan (Form2 = nil). Ada...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan di-enable dulu baru di-show? sama aja gan. . . codingnya diganti gini coba: procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin if application.FindComponent ('Form1') = nil then //form utama = form 1 kan? Application.CreateForm (tForm1, Form1); application...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan kenapa ya ada error kaya gini . . . http://cdn-u.kaskus.co.id/61/vjf8qjbk.jpg terjadi pas mau mengakses form yg sama untuk kedua kalinya. . . pas di klik tombol mengakses form2 untuk pertama kali sih oke-oke aja, ini kode mengakses form2 nya : procedure TForm1.Button1Click(Sender: TObject); begi... 
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan tetap sama gan pas di double klik tray iconnya. . . ini isi dari onshow : procedure TForm1.FormShow(Sender: TObject); begin Form1.Height := 95; Form1.Width := 303; end; pas tray icon di double klik ane kasih ini : Form1.Show; yeaahh. . . akhirnya mau juga. . . :( ternyata tinggal di tambah wi...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan itu yg form minimized, coba di set default size width n heightnya saat onshow (tergantung metode yg dieksekusi saat click tray). OK :Paws: tetap sama gan pas di double klik tray iconnya. . . ini isi dari onshow : procedure TForm1.FormShow(Sender: TObject); begin Form1.Height := 95; Form1.Width :...
{Terminal} Delphi and Pascal
Membalas thread wonguedantenan oy om nyari total gimana yaa.. kn harga x jumlah.. klo harga ketentuan ny dari sono ny misal harga(5000).. nah pada jumlah ini dikasih kondisi, jika yang diinputin integer(10) lsgs di proses harga(5000) x jumlah(10). tp klo yang di inputin bukan integer(10p), keluar messagebox("periksa jumla... 
{Terminal} Delphi and Pascal
Copyright © 2026, Kaskus Networks, PT Darta Media Indonesia