Arsip: naruh program dipojok kanan bawah

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......

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........

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

more 19 years ago
imunk
makasih banyak buat mas doditali atas listing programnya..... :)
saya coba dulu ya....... :) :)
more ...
- Pages:
- 1
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
- Looping
by teru2bozo in Tip n Trik Pemrograman more 18 years ago - declare mysql
by muktaf in MySQL more 17 years ago - penjumlahan pada database..
by divanda in Lain-lain more 17 years ago - can'n retur a result set in the given context di mysl + delp
by amakita in Hal umum tentang Pascal Indonesia more 17 years ago - proteksi agar file jlan 1x
by Cip_rud in Lain-lain more 16 years ago - membunuh explorer...
by ludwig in Tip n Trik Pemrograman more 19 years ago - sms gateway
by red_code in Hal umum tentang Pascal Indonesia more 19 years ago - Pembayaran International - Paypal
by DelphiExpert in OOT more 17 years ago - Mohon Pertimbangan dan sarannya
by supermuam in Bedah Kasus more 16 years ago - Tabsheet
by saysansay in MySQL more 19 years ago