Arsip: naruh program dipojok kanan bawah

 
user image
more 19 years ago

imunk

maaf deh mas2 delphi kalo subjectnya pake bhs yg awam banget,hehe..... :) maksud saya gini ketika program di load otomatis berada dipojok kanan bawah gitu......... :) :) salam......
user image
more 19 years ago

imunk

ini lanjutan......... kira2 gimana ya bikin programnya...... :) ato kalo mo tanya ma bang google gimana ya bahasanya, hahaha...... :):) sekalian kalo bikin program yg jalan di belakang hehehe..... kayak orang aja ya hehehe..... maksudnya running in the back itu gimana ya...... :) makasih atas bantuannya ya........... :) smile for all........
user image
more 19 years ago

doditali

pojok kanan :?: :?: :?: kalo nggak salah, saya beranggapan yang dimaksud dgn pojok kanan bawah itu adalah tray icon ya ??? :idea: kalo tray icon sih mungkin seperti ini nich, source ini juga saya dapatkan dari sumber yg terpercaya ..... uses shellapi; private TrayIcon: TNotifyIconData; procedure TForm1.FormCreate(Sender: TObject); begin TrayIcon.cbSize := SizeOf(TrayIcon); TrayIcon.Wnd := Self.Handle; TrayIcon.uID := 0; TrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // Message yang akan dikirim TrayIcon.uCallbackMessage := WM_MOUSEMOVE; // Menggunakan ikon aplikasi sebagai ikon tray TrayIcon.hIcon := Application.Icon.Handle; // Tip yang ditampilkan jika mouse didiamkan di atas ikon TrayIcon.szTip := 'Klik kanan untuk menampilkan menu'; end; //Tambahkan komponen Popupmenu procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if X = 517 then // klik kanan ShowPopupMenu; end; procedure TForm1.ShowPopupMenu; // Menampilkan popup menu var CurPos: TPoint; begin GetCursorPos(CurPos); SetForegroundWindow(Self.Handle); PopupMenu1.Popup(CurPos.x, CurPos.y); PostMessage(Self.Handle, WM_NULL, 0, 0); end; //Tambahkan dua komponen utk mengaktifkan tray icon //dan utk mengnonaktifkan tray icon procedure TForm1.Button1Click(Sender: TObject); begin Shell_NotifyIcon(NIM_ADD, @TrayIcon); //aktifkan tray icon end; procedure TForm1.Button2Click(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, @TrayIcon); //menghilangkan tray icon end; procedure TForm1.Exit1Click(Sender: TObject); begin Application.Terminate; //Keluar end; procedure TForm1.FormDestroy(Sender: TObject); begin Shell_NotifyIcon(NIM_DELETE, @TrayIcon); // Menghapus ikon end; source diatas saya sering gunakan utk membuat tray icon, tapi bilaman yg anda maksudkan pojok kanan itu seperti form / jendela yg kecil itu cuman hanya pengaturan jendela atau form misalnya form1.left := ....; form1.height := ....; s'moga membantu :D :D :D
user image
more 19 years ago

imunk

makasih banyak buat mas doditali atas listing programnya..... :) saya coba dulu ya....... :) :)
more ...
  • Pages:
  • 1
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