8 Tip untuk Delphi:
1. Bagaimana cara memanggil file exe eksternal di Delphi?
menggunakanWinProcs;
.
mulai
WinExec(......);
.
akhir.
Tidak ada bedanya dengan memanggil fungsi perpustakaan Pascal.
2. Cara mengubah font dan warna petunjuk Delphi
Properti TApplication di Delphi meliputi HintColor dan HintPause.
Anda dapat mengubah warna Petunjuk di aplikasi dengan mengatur HintColor, dan dengan mengatur HintPause
Ubah waktu saat Petunjuk dipicu.
Namun sayangnya: font Petunjuk tidak dapat diubah di Delphi.
3. Cara menghitung tanggal di Delphi
Menghitung waktu paling mudah di Delphi, sebagai berikut:
var ss : TDateTime
Faktanya, Tdatetime adalah bilangan floating point presisi ganda, dan koma desimalnya mewakili jumlah hari:
Misal ss := ss + 20 berarti 20 hari dari ss, jika ss = 234.567
Artinya 234.567 hari, dimulai dari tahun 0 M tentunya!
4. Bagaimana cara memprogram ScreenSaver menggunakan Delphi?
Screen saver tidak lebih dari sebuah program yang dapat dieksekusi yang ekstensinya diubah menjadi .SCR. Ia menerima dua parameter baris perintah:
-s jalankan parameter perintah
-c konfigurasikan parameter perintah
Windows memulai program dengan mengirimkan parameter baris perintah -s ke program.
Perlu dicatat bahwa: jendela program tidak memiliki batas dan tidak ada judul; ukuran jendela harus sama dengan ukuran layar;
Penanganan peristiwa jendela.
5. Cara mengganti nama direktori di Delphi
Panggil fungsi RenameFile, seperti:
Ganti NamaFile('c:/wang/temp', 'c:/wang/tmp');
6. DELPHI menampilkan file gambar JPEG
Cukup tambahkan JPEG untuk digunakan
Ada kelas TJPEGImage di unit JPEG, yang dapat mendefinisikan variabel seperti Jpeg dan memanggilnya dengan LoadFromFile.
Impor file JPEG, lalu gunakan Canvas.Draw(x,y,Jpeg) Formulir untuk menampilkannya.
7. Pemrosesan file berformat Jpeg di Delphi...
(1). Tambahkan unit JPEG ke Penggunaan;
(2). Tentukan variabel global, seperti var AJPEG: TJPEGImage;
(3). Tambahkan: di acara OnCreate pada Formulir:
Kanvas.Pena.Warna:=clHitam;
Kanvas.Pena.Gaya:=psSolid;
Kanvas.Kuas.warna:=clBtnFace;
Canvas.Brush.Style:=bsSolid; //Ini untuk mengatur beberapa properti Canvas untuk kenyamanan di masa depan
//Hapus Formulir dan Muat file JPEG baru;
AJpeg:=TJpegImage.Create;//Menghasilkan AJpeg secara dinamis;
AJpeg.LoadFromFile('D:/Temp.jpg') //Setelah membuat AJpeg, muat file JPEG;
(4).Tambahkan di acara OnPain pada Formulir
Canvas.Rectangle(2,2,560,430); //Gambarlah persegi panjang hitam untuk mengelilingi gambar;
x:=10;
Form1.Canvas.Draw(x,y,AJpeg); //Output file JPEG dengan (x,y) sebagai pojok kiri atas;
//Fungsinya adalah untuk mengembalikan grafik ketika grafik tersebut dihancurkan;
(5). Tambahkan yang berikut ini ke acara OnClick pada tombol 'Muat' atau 'Jelajahi':
mulai
jika OpenPictureDialog1.Jalankan lalu
mulai
AJpeg.Gratis; //Lepaskan AJpeg lama;
AJpeg:=TJpegImage.Buat; //Buat AJpeg baru;
AJpeg.LoadFromFile(OpenPictureDialog1.NamaFile); //Muat file JPEG;
akhir;
Canvas.Rectangle(2,2,560,430);
x:=10;
kamu:=10;
Form1.Canvas.Draw(x,y,AJpeg); //Tampilkan AJpeg baru;
akhir;
8. Layar pengaktifan DELPHI3