flash di delphi

assallammuallaikum wr. wb kawan2 semua...

lama juga neh gak nulis lagi disini....

langsung aja deh...topik kali ini gmana cara njalanin file extensi *.swf  di delphi...
pertama2 buat silahkan buat project baru,perangkat kedua bikin file dengan extensi  .swf klo pengen gak repot silahkan download aja...kemudian instal component flash yang sudah tersedia..
  langkah2 nya :
     1. klik component
     2. pilih import component
     3. pilih import activeX control -- klik next

    4. cari file dengan nama shockwave flash -- next -- next lagi

 klik finish....setelah component terinstal...
pilih activeX -- tshockwaveflash kemudian pada properti movie isikan dengan alamat file flash.swf anda tersedia....ex: " E:\BAKAL PROGRAM UAS(gurung mari)\Programe\Untitled.swf "

flash sudah bisa berjalan di program anda...tetapi kita harus bikin file dengan extensi *.res untuk bisa membuat flash kita berjalan di komputer lainnya...

ikuti langkah di bawah ini :
  0. instal dulu flash_player
  1. copy file flash.ocx dari windows\system32\macromed
  2. bikin file dengan extensi *.res caranya buka notepad copy kedua file dibawah ini :
      SHOCKWAVEFILE RCDATA (nama file flash anda).swf
      SHOCKWAVEOCX RCDATA flash.ocx
  3. simpan dengan format *.rc
  4. Pada Commandline, pindah ke dir project anda dan masukkan baris:
      “Brcc32 -r flash.rc”
  5. jalankan flash anda...
selamat mencoba.....

Read more »

MEMOTONG FORM DELPHI

MEMOTONG FORM DI DeLPHI

                 setelah sekian lama absen upload di blog ini,saya akan berusaha rutin untuk upload tutorial delphi terbaru disini,langsung aja ......Berawal dari tugas dosen saya yang menyuruh seluruh mahasiswanya untuk membuat sebuah program untuk uas...nah untuk lebih menunjang program saya,saya berpikir,bagaimna kalo form ini tidak kotak gitu...setelah mencari2 informasi kepada yang lebih mahir...maklum dulu masih semester 1 jadi masih cupu...hhehhehhehe.....setelah berhasil mendapatkan caranya langsung deh saya coba untuk membikinnya.....

1.       Buka project baru anda..

2.       Persiapkan gambar untuk digunakan memotong formnya...disini untuk contoh saya gunakan gambar ini :

 

3.   Nah setelah itu masukkan gambarnya kedalam formnya... 

4.   Setelah itu ganti warna form anda sesuai warna background pada gambar.

5.    Ganti transparant color menjadi true. ..dan transparant colorvalue menjadi sama dengan warna background 

6.      Setelah itu selesai semua....tekan F9/run...dan lihat hasilnya..form anda akan terpotong dengan sendirinya....

 

Salam klikq

Read more »

DELPHI 2010

Delphi® is one of the most respected and widely used Rapid Application Development (RAD) environments today. Over 1.7 million developers worldwide choose Delphi over other tools because Delphi radically speeds desktop, workstation, touch, kiosk, and Web application development without sacrificing an ounce of programming power or control. Applications built with Delphi are lightning fast, compact, provide rich UIs, and can connect with virtually any database or data source “out-of-the-box”. With Delphi, you can:

• RADically reduce development time and build Windows applications up to 5x faster than with other development solutions
• Speed your way from prototype to production with visual drag-and-drop tools and a powerful component library
• Free your customers from keyboards with dazzling touch based UIs

Delphi 2010 is available in Professional, Enterprise and Architect editions. For details on the differences between the editions, see the Product Editions page and Feature Matrix \

Delphi Key Features:

• RAD IDE with fast drag-and-drop design
• More than 250+ VCL controls
• Built-in touch and gesturing support
• dbExpress with support for 9 major databases
• DataSnap n-tier middleware with JSON, REST, HTTP, COM, and XML
• Debugging support for multi-threaded applications
• UML / code metrics and audits
• Target Windows 2000, XP, Vista, and Windows 7 from single source
• Centralized license management and tool deployment with Embarcadero ToolCloud

untuk bahasa indonesianya silahkan terjemahkan sendiri ya.....

Read more »

GRADIEN WARNA FORM DELPHI

bosan dengan tampilan form delphi anda....
sekarang anda dapat membuat tampilan form delphi anda sedikit lebih menarik...
disini kita akan membuat gradien warna...langsung aja yah

silahkan buka new project delphi anda....lalu isikan code dibawah ini
procedure TForm1.FormPaint(Sender: TObject);
      var
         Row, Ht: Word;
         IX: Integer;
      begin
           iX :=200 ;
           Ht:=(ClientHeight + 512) div 256;
           for Row := 0 to 512 do
           begin
              with Canvas do begin
              Brush.Color := RGB(Ix,150,row);
              FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
              IX :=(IX-1);
              end;
           end;
      end;


end.

jalankan delphi anda....dan lihat hasilnya....

Read more »

MENGGANTI ICON PADA DELPHI

salam klikq kawan semua...

apakah icon 7 kuning pd delphi bisa di ganti??? jawabannya sangat bisa teman2 dengan sesuka hati kita....

langsung aja ya.....

1. buka program delphi anda..
2. klik menu project --> option

   









3.pilih aplication --> loadfile..
4.ganti icon sesuai keinginan anda...dan lihat hasilnya sendiri2 ya mas2..mbak2..

semoga bisa membantu....:-D :-D

Read more »

Sembunyikan Item Desktop

Salam klikq mas2..mbak2 semuanya...

sering kita merasa risih sama item yang tampil pada desktop kita,terlebih item itu banyak....pastinya akan semakin membuat anda risih,ruwet dan sebagainya.....dengan tips di bawah ini kita akan menyembunyikan item yang ada di desktop kita....oke langsung aja...

buka new project kemudian isikan code dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(FindWindow(nil,'program manager'),sw_hide);
end;

kode diibawah ini untuk menampilkan item:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowWindow(FindWindow(nil,'program manager'),sw_show);
end;

end.









klik run
sembunyikan

tampilkan

selamat mencoba cuy.....hhhehhee

salam klikq

Read more »

MINIMIZE SEMUA WINDOWS

salam klikq mas2..mbak2 semuanya.....

sering kita merasa malas untuk meminimize program yg kita buka,terlebih program yg kita buka lebih dari 1 program,tentu akan membutuhkan waktu yg lumayan lama bukan jika kita harus menutupnya satu demi satu....disini delphi memiliki fasilitas yg dapat mempermudah meminimize program anda...disini anda harus mencari handle windows yg sedang aktif...kemudian anda dapat mengirimkan pesan dengan postmessage untuk meminimize semuanya....ah mas teori aja kelamaan...keburu ngantuk neh....hhehhehe..ywd langsung aja praktekin ini.....

buka new project delphi...kemudian isikan code dibawah ini di event onclick button...

procedure TForm1.Button1Click(Sender: TObject);
var
  h : HWND;
begin
  h := Handle;
  while h > 0 do
  begin
    {mengecek visibility state dari windows}
    if IsWindowVisible(h) then
      //minimize windows
        PostMessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
        //mencari handle dari windows selanjutnya
        h:= GetNextWindow(h,GW_HWNDNEXT);
  end;
end;

end.

klik run....

dan semua program anda akan terminimize secara cepat....jadi lebih mudah bukan...
semoga bermanfaat....

salam klikq...

Read more »

MENDISABLEKAN FUNGSI MENU CLOSE

MENDISABLE FUNGSI MENU CLOSE

Hallo smua....disini kita akan mendisablekan menu close yang biasanya tinggal bersama 3 tmnnya di pojok kanan atas program anda....trik ini bisa anda gunakan untuk sedikit ‘memaksa’ para pengguna program anda dengan hanya menutup program dengan menu yang telah anda sediakan......

1. bikin proyek baru,kemudian pada event formcreate anda dapat menambahkan code dibawah ini :

procedure tform1.formcreate(sender:tobject);

var

  closehilang : HMENU;

begin

  closehilang := GetSystemMenu(form1.Handle,false);

if (closehilang <> 0) then DeleteMenu(closehilang,    SC_CLOSE,MF_BYCOMMAND);

end;

end.

Kemudian pencet tombol f9/run....dan hasilnya

Semoga bermanfaat bagi anda........terima kash telah mengunjungi blog ini...

Salam klikq

Read more »

MENANGKAP SCREEN DESKTOP DENGAN DELPHI

MENANGKAP SCREEN DESKTOP

Salam klikq........

Sering kita menangkap screen desktop kita yang sedang aktif dengan menekan print screen dan mempastenya pada image editor atau ms. Word....nah dengan konsep ini kita akan mencobanya menangkap screen capture desktop kita dengan delphi 7 dan menyimpannya dengan format  BMP.

Oke2....langsung aja yah.....

Pertama siapkan delphi 7 dulu....klo anda belum punya silahkan klik disini

Klo sudah siap buka proyek baru pd delphi anda...kita membutuhkan 2 komponent saja untuk screen capture ini...apa mas 2 saja..iya 2 saja simple kan....hhehhe

Anda hanya membutuhkan tbutton dan tsavepicturedialog.

Tsavepicturedialog itu dimana....anda bisa klik components pallete--> pilih dialog -->tsavepicturedialog.

.
 

Pada event onclick di tbutton tambahkan kode dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

  dcdesk : HDC;

  bmp :tBITMAP;

begin

  {membuat bitmap}

  bmp :=TBitmap.Create;

  {mengatur lebar tinggi dari bitmap}

      bmp.Height := Screen.Height;

      bmp.Width := Screen.Width;

  {mencari dan mendapatkan desktop DC handle}

        dcdesk := GetWindowDC(GetDesktopWindow);

        BitBlt(bmp.Canvas.Handle,0,0,screen.Width,screen.Height,dcdesk,0,0,SRCCOPY);

        SavePictureDialog1.Title :='simpan hasil capture';

  {menyimpan bitmap}

    if SavePictureDialog1.Execute then

      bmp.SaveToFile(SavePictureDialog1.FileName);

      ReleaseDC(GetDesktopWindow,dcdesk);

      bmp.Free;

end;

end.

Kemudian klik run/F9  klik capture-->simpan pada folder yang anda inginkan...

 

Klik save.

Nah kita sudah dapat membikin software untuk screen capture...terima kasih sudah mengunjungi blog ini...jangan lupa tinggali komentar yeeeeeeee....

Salam klikq

Read more »

welcome in kliq.blogspot.com

http://klikq.blogsppot.com

hello world...

selamat datang di klikq.blogspot.com,blog ini akan menampilkan tutorial delphi.....jangan sungkan2 untuk mengunjung klikq....


salam klikq


adhitya

Read more »