Source Code + Tutorial Buat Desktop Alert Delphi
Gak ada kerjaan sharing aja nih cara Buat Desktop Alert Delphi menurut saya alert ini lebih bagus daripada Ballon Hint karena alert ini bisa pakai Logo kalu ballon hint pake logonya original dari windows.
Sebelum ke tutorialnya download dulu file *.dll nya : Download
- Deklarasikan sebuah procedure untuk memanggil alert yang ada didalam file *.dll yang sudah d download sebelumnya.
procedure ShowAlert(
AWidth,AHeight : integer;
AHeaderText, AMessageText : string;
AHeaderFontSize : integer;
ACaptionFrom,ACaptionTo,AFrame,AWindowFrom,AWindowTo : Cardinal;
ADisplayDuration : Cardinal;
AImage : string); stdcall; external 'Alert.dll';
- Tambahkan 1 Button & Double klik button tsb....lalu copy & paste kode dibawah
if btn1.Caption='START' then
begin
showAlert(
250, // Lebar
70, // Tinggi
'Information !', // Header Alert
'Program Running..', // Pesan Alert
10, // Ukuran Font
clWhite,
clWhite,
clWhite,
clWhite,
clWhite,
500, // Durasi
'logo.ico'); // Icon
btn1.Caption:='STOP';
end
else if
btn1.Caption='STOP' then
begin
showAlert(
250, // Lebar
70, // Tinggi
'Information !', // Header Alert
'Program Stop..', // Pesan Alert
10, // Ukuran Font
clWhite,
clWhite,
clWhite,
clWhite,
clWhite,
500, // Durasi
'logo.ico'); // Icon
btn1.Caption:='START';
end;
Masih belum bisa ? saya juga menyediakan source codenya disini, tetapi *.dll saya hilangkan agan bisa download *dll nya diatas jangan lupa juga logo.ico di taruh satu folder ya dalam projectnya
Cukup sekian semoga bermanfaat, password Rar ambil di laman Password ya :D di Header blog
Categories:
Delphi7,
Source Code Delphi,
TuT_Delphi
0 comments:
Silahkan Tinggalkan PESAN dan KESAN sahabat setelah membaca Artikel ini >>
1. akan TERHAPUS otomatis
2. Mari berbagi, berdiskusi dengan berkomentar yang efektif dan membangun
3. Berkomentar hari ini, maka hari itu juga saya akan berkunjung ke Blog sahabat
Post a Comment