bingung gan dengan yang no.2 ini. . . supaya bisa dibawa² itu maksudnya gimana gan. . . :bingungs btw, kalo ini supaya mau jalan gimana ya. . . - x : var global; - MMSystem : sudah ada di Uses; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then x := OpenDialog1.F...
gan, misalkan gini : form1 isinya spt ini : 1. button1 ( ada 1) 2. label1 (ada 1) form2 isinya spt ini : 1. button1 / tombol "OK" (ada 1) 2. button2 / tombol "cancel" (ada 1) 3. edit1 (ada 1) nah, bila button1 yg ada di form1 diklik maka akan keluar form2, apakah kodingnya sep...
tetap error gan. . . ada beberapa dialog yg error di lazarus ane spt : - open dialog - save dialog - select directory dialog - open picture dialog :berduka selebihnya mau semua. . .:2thumbup
oh. . . gitu ya gan. . . mantap gan . . . :2thumbup thanks atas tambahannya. . . :2thumbup btw, pas di klik tombol kenapa ada error kaya gini ya. . . dan ini kodingnya. . . procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.Fi...
hoho. . . thanks gan. . . ternyata pake TTimer. procedure TForm1.Timer1Timer(Sender: TObject); var x : integer; begin Inc(x); label1.Caption := FormatDateTime('hh:mm:ss', Time + x ); end;
lazarus gan... ane pake lazarus mod... gimana caranya gan . . . :( gak nemu² link downloadnya gan. . . :(
mantap gan. . . thanks... mantap gan. . . thanks mantap gan. . . diantara create, mkdir, forcedirectories, gak ada bedanya ya. . . btw, ada yang punya ebook cara penggunaan komponen² yang ada. . . seperti menggunakan TopenDialog, dll... beserta contohnya. . . ?
gan, kalo mau buat folder lewat kodingan gimana ? kan kalo mau buat file kaya gini. Assign(File, 'D: amafile.txt'); rewrite(File); Close(File); itukan membikin file text di drive D, nah kalo mau simpan file textnya di dalam folder, sedangkan foldernya belum ada di drive D, itu gimana ...
udah mau gan. . . ternyata di save and di build dulu programnya dan di jalankan file .exe nya, baru mau. . . :ngakak tadi gak mau karena gak ane save & build, cuma di run di lazarusnya. . . :ngakak thanks all. . . kalo mau mutar mp3 gimana gan. . .
thanks gan. . . mau. . . udah gan. . . ini coding selengkapnya. . . unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, MMSystem; type { TForm1 } TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObjec...
bingung gan. . . :( btw, kalo mau memanggil suara gimana ya. . . ane coba kaya gini tapi gak mau. . .:( procedure TForm1.Button1Click(Sender: TObject); begin PlaySound('D:\hari_ini\text_popup.wav',0,SND_ASYNC); end;
Thanks gan. . . tapi pas ane coba ternyata ada error kaya gini pas mau isi coding di TUpDown-nya. . . ane liat² di google katanya tinggal di rescan aja source directory FPC-nya. . .(Environment->Rescan source directory FPC). tapi tetap ada error kaya gitu . . . :( Thanks mod, ternyata pake...
gan, kalo mau bikin kaya gini gimana ya ? apakah di kasih Tedit kemudian di dalam Tedit di kasih TupDown. . . kaya gitu kah ? Trus, kalo kita bikin Shape segitiga, dan supaya segitiganya itu di balik posisinya (rotasinya dirubah) gimana ya ? thanks. . .
