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...
ane juga bingung gan... dibikin uppercase pas di klik button atau pas mengisi text box ? kalo pas mengisi teks box nya dan langsung jadi huruf besar, mungkin kaya gini bisa:malus procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char); begin if key in then Key := Upcase(key); end; set...
oh jadi kalo di akalin seperti itu ya... thanks gan...:D itu dia gan, bingung kata kuncinya apa... di tulis codingnya aja gan. . . setubuh dengan agan ini, masuk ke folder penyimpanan program yang agan buat, kemudian buka pake notepad. Oke mod, thanks. . . btw, bikin kaya gini pake component...
itu keliling sama lingkarang yang di dalem begin akhirnya gak ane kasi ; karna waktu di kasi error nya malah nambah jadi 4, kata compilernya suruh di hapus, :capedes kata temen kakak ane harusnya bener itu, tapi kok failed trus ya :bingung mungkin para ahli dan master pascal d sini bisa bantu an...
oh, jadi multithreading ya namanya... thanks gan... btw, kalo bikin layar monitor jadi gelap dan hanya focus pada form yang aktif saja seperti gambar ini gimana ya...
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...
thanks mod, ane emang belum ngerti tentang "as":malus jadi kaya gini ya mod. .. misalkan ada satu prosedur dengan nama "tes" unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = cl...
gan, procedure yang ada di form utama tidak bisa di gunakan di form lain ya ? jadi harus bikin procedure baru ya. . .
weks. . . ternyata kaya gini aja juga mau. . . Procedure tes(label1, label2 : Tlabel); begin label1.Caption := label2.Caption; end; thanks mod,. . kenapa tadi gak mau ya. . . :bingungs yang jadi masalah sekarang, gimana ya cara merubah label4.caption berdasarkan isi dari memo yang ada di form ...
Mangstab gan. . .:2thumbup thanks ya. . .:D btw, gan, misalkan ada 2 label, dan ada 1 button, pas button diklik maka label2.caption menjadi label1.caption Procedure TForm1.Button1Click(Sender: TObject); begin Label2.Caption := Label1.Caption; end; yang jadi pertanyaan gimana caranya bila di ja...
sama aja gan. . . sama aja gan. . . ane pake OncloseQuery aja deh jadinya. . . thanks gan atas infonya. . . oh. . . jadi gitu ya. . . thanks. . .
kenapa ya ada error kaya gini . . . 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); begin Application.MainForm.Enabled:= False; F...
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;
pake try except gan, ato di filter aja nilai yang mau di input, bila selain angka maka key-nya = 0. sorry gan kalo salah. . . perlu di klik lagi agar tampil semuanya. . . itu kenapa ya. . .:bingungs sundul gan. . .