Arsip: Gimana cara buat popup?

 
user image
more 17 years ago

jancky

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

jancky

Kok sepi amir di sini ya...
user image
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
user image
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
user image
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;
user image
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
user image
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
user image
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
user image
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/
user image
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 nambahnya
Mana katanya mau disalin...Kok nggak nampak?
more ...
  • Pages:
  • 1
  • 2
  • 3
Share to

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

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com