Arsip: Gimana cara buat popup?

more 17 years ago
jancky
Pra delphier gimana ya cara buat popup yang berupa form yang bisa muncul di atas taskbar windows

more 17 years ago
jancky
aloooww....
Ok dech aq tanya yang lain dulu kali ya..
Para Delphier gimana yach buat gambar jadi button dan karakternya juga seperti komponen Button

more 17 years ago
asiyrob
:shock: :shock: klo nanya yg konsisten,,belum juga dijawab dah nanya yang laen.. :) :)
mungkin para suhu delphi lagi eny-nyak2kan tidur,,kan lagi musim ujan,,maka ne sepi he..27x
jas kiding.. :P :P

more 17 years ago
asiyrob
hemm..iya2x sepi bgt di threat yang 1 ini??? :cry:
1. masalah popup dg tampilan form di atas taksbar windows
solusi: sebenar ne simpel tapi rumit jga he..27x
if taksbar dekstop klik kanan then form x show;
masalah ne yg nama ne popup harus full tampil di dekstop (blom pernah ada popup yang nyelip ketu2p ma kotak monitor jika di klik kanan pada bag paling pojok taksbar/dekstop) so solusi harus ada pembanding antara posisi kursor+resolusi layar dekstop+ukuran form x,,
2. masalah image dijadikan seperti button
solusi: bisa
ente harus buat komponen button baru dengan objek image ente;

more 17 years ago
MrLee
coba jawab ya
kalu pop up di task bar kurang ngerti maksudnya;
mungkin popup juga bisa keluar saat form di minimize ke taskbar gitu;
untuk image di jadikan seperti button coba buat image turunannya yg ada properti onMouseEnter & OnMouseLeave
aku bantu buat komponennya nih;
unit IMageL;
interface
uses
SysUtils, Classes, Controls, StdCtrls, Buttons, ExtCtrls, Mask, Windows,
Messages, Graphics;
type
TImageL = class(TImage)
private
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMOuseLeave(var Message: TMessage); message CM_MOUSELEAVE;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
//protected
{ Protected declarations }
//public
{ Public declarations }
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MrLee', [TImageL]);
end;
{ TImageL }
procedure TImageL.CMMouseEnter(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;
procedure TImageL.CMMOuseLeave(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;
end.
sebenarnya OnMouseEnter bisa digunakan OnMouseMove
jadi gambar dapat di ubah ubah saat event mouse enter atau mouse leave
semoga bermanfaat
more 17 years ago
jancky
OK ntar ane coba dulu, makacih nih komponennya...:)
Oh iya popupnya misalnya yang seperti punya anti virus international tuh...Dia muncul seolah-olah berjalan dari arah bawah taskbar windows. ane udah coba2 tapi belum juga berhasil nihh..gimana yach..
Thanks ya..sebelumnya

more 17 years ago
MrLee
kalu seperti antivirus ku itu ada penambahan menu dibawah menu close
kalu itu ane ada primbon nya
kalu benar itu
ntar ane salin deh kesini cara nambahnya

more 17 years ago
_lmz
mungkin kurang relevan sih, tapi siapa tau sebagai sumber referensi:
popup dengan VB:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=52793&lngWId=1
Menggunakan aplikasi tambahan:
http://www.fullphat.net/

more 17 years ago
jancky
@MrLee: kalu seperti antivirus ku itu ada penambahan menu dibawah menu close kalu itu ane ada primbon nya kalu benar itu ntar ane salin deh kesini cara nambahnyaMana katanya mau disalin...Kok nggak nampak?
more ...
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- tanya combobox 2 kolom
by budhie_yk in Hal umum tentang Pascal Indonesia more 16 years ago - Pencarian dengan DateTimePicker
by meehelmi in Reporting more 17 years ago - bikin installer
by lela in Tip n Trik Pemrograman more 18 years ago - program counter
by rahul_cayang in Hal umum tentang Pascal Indonesia more 17 years ago - Compress eXecutable for U friends
by ImanD in Enginering more 19 years ago - Mengatur Print nota dan continous form dengan LX300/800
by fakhrudin in Hal umum tentang Pascal Indonesia more 16 years ago - Mega Bazzaaarrr JHCC
by gust4m4n in OOT more 18 years ago - menampilkan detail pada quick report
by yusdi in Reporting more 16 years ago - Bagaimana
by muktaf in Tip n Trik Pemrograman more 18 years ago - Mengecilkan ukuran aplikasi
by ivan in Hal umum tentang Pascal Indonesia more 18 years ago