Ucapan selamat singkat pada hari pekerja perumahan dan jasa komunal, perdagangan, jasa konsumen dalam syair. Puisi Hari Perumahan dan Pelayanan Komunal, ucapan selamat Hari Pekerja Perumahan dan Pelayanan Komunal

PILIH NAMA ANAK LAKI-LAKI YANG ULANG TAHUN


Ucapan selamat singkat pada Hari Pekerja Perumahan dan Pelayanan Komunal



"Puisi lucu tentang perumahan dan layanan komunal"

Kota ini mekar di musim semi - liburan perumahan dan layanan komunal sedang berlangsung.
Agar kota kita selalu bersih,
Agar jalanan bersinar, lampu selalu menyala,
Mereka banyak bekerja - mekanik, tukang ledeng,
Petugas kebersihan, tukang listrik, insinyur, pengrajin,
Pekerja gas, akuntan. Selamat untuk kalian semua!
Ketahuilah bahwa kami sangat menghormati Anda, semoga berhasil,
Kami dengan tulus mendoakan Anda bahagia dan sukses.



"Selamat singkat pada Hari Buruh Perdagangan"

Pada Hari Buruh Perdagangan, hari baik ini
Biarkan musim semi, warna paling cerah dan paling membahagiakan
Keberuntungan penting akan segera mengunjungi Anda,
Biarkan dia menghilangkan semua kesedihanmu!

Saya dengan tulus mengucapkan selamat kepada Anda hari ini, dari lubuk hati saya,
Saya berharap Anda pembeli yang baik,
Menjual produk yang cantik adalah perkara yang sulit,
Tapi Anda menghadapinya dengan sederhana dan terampil!



"Puisi komik tentang perumahan dan layanan komunal"

Jika pekerja utilitas tidak punya waktu -
Semua orang di sekitar membicarakannya!
Jika dia telah melakukan banyak hal -
Untuk beberapa alasan, semua orang di sekitar diam!

Saya mengucapkan selamat kepada Anda dengan sepenuh hati,
Liburan telah tiba - Hari Perumahan dan Pelayanan Komunal!
Biarkan masalah berlalu
Semuanya akan lancar - seperti dalam puisi!



“Selamat singkat pada hari buruh layanan konsumen"

Kita mungkin bisa hidup tanpa pilot,
Terbang seperti burung - omong kosong apa?!
Tapi apa yang harus dilakukan tanpa tukang ledeng?
Tukang ledeng biasa? Tanpa mereka kita tidak ada apa-apanya!

Profesi lain bisa menghasilkan romantisme
Kata-kata yang sombong dan luhur,
Tapi tanpa pekerja biasa yang familiar
Tidak akan ada melodi atau puisi.

Mari kita berterima kasih kepada mereka dengan kata-kata yang hangat,
Untuk menciptakan kemudahan dan kenyamanan,
Jadi mereka bisa bangga
Untuk pekerjaan Anda yang sederhana namun sangat dibutuhkan!





"Selamat di Hari Pekerja Perumahan dan Pelayanan Komunal"

Anda bekerja untuk kepentingan orang banyak
Perumahan dan pekerjaan komunal
Semoga dia selalu layak
Biarkan dia dipuji

Bagaimanapun juga, Anda melakukan perbuatan baik!
Kami berharap Anda sukses,
Melangkah maju dalam hidup dengan berani,
Tunjukkan kebahagiaanmu!



"Selamat singkat pada hari pekerja utilitas publik"

Kami merayakan liburan di bulan Maret,
Selamat kepada semua orang di perumahan dan layanan komunal!
Anda adalah orang-orang yang sangat diperlukan,
Atapnya tidak bocor bersamamu,

Pipa-pipanya normal dan pintu masuknya,
Trotoar, pintu masuk ke halaman...
Berbahagialah, kaya -
Kami berharap kalian!

Semoga pekerjaan Anda membuat Anda bahagia -
Warga biasa diurus.



"Hari Pekerja Pelayanan Rumah Tangga"

Hari ini adalah Hari Pekerja Perumahan dan Komunal,
Kami mengucapkan selamat kepada mereka semua dan sekarang
Kami berharap mereka bahagia dan sukses,
Terima kasih telah menjaga kami!

Biarkan rumah dan gang membuatmu bahagia,
Sewa diterima tanpa hutang.
Kami berharap mereka stabil dalam pekerjaan mereka,
Dan di rumah - kata-kata dan kue yang lembut!








Apa jadinya kami, warga negara, tanpamu?!

Kenyamanan di dalam rumah, ada gas, air...

Sehat dan bijaksana selalu!!!

Hari ini adalah hari libur perumahan dan layanan komunal!
Kami mengucapkan selamat kepada kalian,
Kami ingin mereka memakai bulu
Berang-berang dan cerpelai!
Semoga pelayanan mereka lengkap
Dibayar sesuai anggaran
Biarlah ada dua musim: musim semi,
Ini musim panas lagi!

Anda adalah pekerja perumahan dan layanan komunal,
Biarkan hidup menjadi mudah.
Anda menjaga ketertiban
Jangan mengecewakan daerah Anda,

Saya berharap Anda banyak kebahagiaan,
Akan ada tempat untuk gairah dalam hidup,
Saya juga berharap Anda cinta!
Selamat atas harimu!

Hari ini adalah hari pekerja perumahan dan komunal,
Pelukis, tukang ledeng, tukang kayu,
Dan juga seorang pedagang, pekerja rumah tangga,
Sepertinya semua orang dikenang, tidak ada yang dilupakan.

Teman-teman, terimalah ucapan selamat,
Buang semua kekhawatiran dan keraguan,
Kami berharap Anda bahagia, sejahtera,
Cinta, semoga sukses, kebahagiaan tanpa jejak.

Selamat untuk semua tukang pipa,
Petugas kebersihan dan mekanik,
Semua pekerja dan teknisi,
Kepada semua tukang reparasi pintu,
Semua pembersih, petugas kebersihan,
Semua tukang listrik, jadi
Wakil ketua, ketua,
Selamat Hari Perumahan dan Pelayanan Komunal!
Tetap ceria
Sama dan lucu!
Anda dicintai oleh penghuni baru,
Begitu juga dengan orang-orang tua!
Anda berjalan-jalan, halaman sedang bersiap-siap,
Kami akan bersulang untuk Anda!
Yang utama adalah cinta, kesehatan,
Dan mungkin pertumbuhan karier!

Tanpa panas dan cahaya, sebuah rumah bukan lagi sebuah rumah.
Ibarat tanpa lift dan bangku.
Sahabat penghuni adalah pengelola rumah yang baik,
Siapa yang bisa melakukan segalanya dan tahu bagaimana melakukan segalanya.
Selamat Hari Perumahan dan Pelayanan Komunal, terimalah ucapan selamat,
Terima kasih atas pesanan dan kehangatannya.
Saya berharap Anda kesehatan, kegembiraan dan kebahagiaan,
Biarkan ada cahaya di jiwamu.

Bukalah pintu kebahagiaan,
Penyihir urusan air.
Liburanmu akan datang ke rumahmu,
Ambillah, tukang ledeng.
Dengan koper di tangan,
Dengan kelincahan di tubuh anjing greyhound,
Tentu saja, Anda “penting”
Dalam urusan publik.
Selamat! Selalu menjadi
Kuat dan sehat
Untuk kebahagiaan sepanjang tahun
Itu tanpa syarat!

Pekerja perumahan dan layanan komunal!
Ya! Di hari libur nasional yang indah ini
Kami memuji pelukis, tukang ledeng, dan tukang kayu,
Orang-orang tak tergantikan lainnya juga sama!
Kami membuat syair untuk ahli semua karya,
Kami tidak mengalihkan pandangan dari pengrajin asli kami:
Anda membawa kehangatan dan cahaya kepada orang-orang -

Kami membayar Anda kata-kata yang baik dan uang

Teman-teman! Jadi bersama kami
Sehat dan bijaksana selalu!

Perumahan dan layanan komunal!
Oh, betapa hangatnya surat-surat ini!
Selain listrik dan gas,
Baik air mendidih maupun air es...
Pekerja perumahan dan layanan komunal! Menyusun ode
Dan kami mengucapkan banyak kata-kata baik.
Karena Anda setiap saat sepanjang tahun
Kami merasa hangat di dalam dinding rumah kami sendiri.
Saya tidak mengatakan semua ini dengan sia-sia,
Gugup mengutak-atik tagihan utilitas...
Hari ini adalah hari libur profesional,
Saya mengucapkan selamat kepada Anda dari lubuk hati saya!

Siapa di dunia ini yang lebih penting daripada orang lain?
Lebih mahal dan lebih penting dari orang lain?
Tentu saja, tukang ledeng kami,
Dan dia juga memiliki tukang listrik.

Petugas kebersihan juga sangat penting,
Dan terkadang sangat menakutkan:
Dia menegur para pejalan kaki anjing
Memaksa mereka untuk membersihkan.

Di kantor perumahan, semua orang penting,
Kami membutuhkan semuanya.
Ini adalah puisi dari hati,
Pada hari libur Kantor Perumahan, tepat waktu!

Perumahan dan layanan komunal, Anda memiliki banyak tugas, Biarkan kecerobohan menjadi asing, Biarkan pekerjaan memberi Anda kegembiraan. Kami mendoakan Anda semoga sukses dan sukses, Biarkan kesenangan mengalir deras, Dan jika Anda menangis - hanya karena tawa, Anda tidak akan pernah tahu kesedihan atau kesedihan!

Di pekerja perumahan dan layanan komunal
Hari, di hari libur nasional yang indah ini
Kami memuji pelukis, tukang ledeng, dan tukang kayu,
Orang lain yang berbeda dan tak tergantikan!
Kami membuat syair untuk ahli semua karya,
Kami tidak mengalihkan pandangan dari orang yang kami cintai dan kerabat:
Anda membawa kehangatan dan cahaya kepada orang-orang,
Apa jadinya kami, warga negara, tanpamu?!
Kami membayar Anda dengan kata-kata baik dan uang.
DAN rumah bersih, ada gas, air...
Teman-teman! Anda tinggal bersama kami
Sehat dan bijaksana selalu!

Selamat atas Hari Pekerja Perumahan dan Pelayanan Komunal! Anda seperti lebah pekerja keras, tidak pernah lelah memastikan orang lain mendapatkan kehidupan yang baik! Biarkan semuanya beres di rumah juga! Biarkan segala sesuatu dalam hidup berjalan sesuai impian Anda, seperti jarum jam, dan biarkan kesedihan tidak pernah datang!

Kami ingin mengucapkan selamat kepada Anda hari ini
Selamat Hari Pekerja Perumahan dan Layanan Komunal!
Tentang pekerjaan Anda, itu perlu
Pada hari libur ini, ucapkan dalam syair,
Kami akan selalu berterima kasih kepada Anda
Untuk pekerjaan yang berat dan penting,
Karena Anda memberi kepada orang lain
Cahaya, kehangatan, kenyamanan dan kesenangan!

Puisi Hari Perumahan dan Pelayanan Komunal, ucapan selamat Hari Pekerja Perumahan dan Pelayanan Komunal

Bagi Anda para ahli perekonomian,
Layanan perumahan dan komunal,
Kepada para penguasa kerajaan sehari-hari -
Tidak tahu wajah sedihnya!

Bagaimanapun, hari ini adalah hari liburmu,
Tuang seratus gram,
Olivier memotong baskom -
Semoga keberuntungan menghampiri Anda!

Selamat dan harapan terbaik
Sukacita, kemakmuran.
Kami berjabat tangan dan berpelukan,
Biarkan semuanya baik-baik saja!

Pekerja utilitas
Untuk menerangi hidup Anda dengan kesuksesan,
Saya berharap Anda tidak bercinta di tempat kerja,
Dan suruh semua bajingan itu pergi ke neraka.
Biarkan wanita tua yang murung dan pemarah
Mereka tidak mengganggumu dengan rengekannya,
Dan pacar yang paling kacau,
Bila Anda menginginkannya, mereka dengan senang hati memberikannya kepada Anda.
Saya berharap uangnya mengalir,
Dan mereka menetes ke dompetku setiap hari,
Agar semua omong kosong itu hilang dan terlupakan,
Untuk menjadi bahagia - sungguh sial!

Sepanjang hari Anda khawatir tentang memastikan rumah bersih dan semuanya berfungsi dengan baik... Setiap musim membawa Anda masalah baru, dan dari atas, instruksi baru mengalir dari pihak berwenang, dan harapan baru dari penghuni... Tapi jangan Jangan berkecil hati, Anda bekerja dengan cahaya dan melakukan segalanya yang terbaik! Terima kasih! Selamat Hari Pekerja Perumahan dan Pelayanan Komunal!

Layanan perumahan dan komunal Anda adalah milik saya, layanan perumahan dan komunal!
Betapa pentingnya utilitas!
Negara ini sangat membutuhkan bisnis Anda,
Dan tanpamu hidup akan menjadi buruk.
Listrik, gas dan air
Karena perbuatanmu yang mulia
Di antara orang-orang di negara bebas
Rumah-rumah tidak akan pernah habis!
Kenyamanan tidak mungkin terjadi tanpamu
Dunia ini sungguh kasar.
Kabel, baterai dan pipa
Lagu kebangsaan dinyanyikan hari ini untuk menghormati Anda!

Hari ini kami mengucapkan selamat kepada karyawan kantor perumahan,
Teman-teman, kami dengan tulus mendoakan Anda:
Menjadi sehat berarti tidak sakit selama seratus tahun,
Anda tidak akan mengetahui masalah, tetapi Anda akan mendapatkan kemakmuran.
Semoga pekerjaan Anda memberi Anda kegembiraan,
Dan biarkan Dia memberi kita solusi atas masalah.
Anda tahu bahwa kami sangat menghargai dan mencintaimu,
Dan pada hari libur dan hari kerja biasa.

Utilitas
Merayakan liburan Anda!
Kami ingin mengucapkan selamat kepada ZHEKI
Di akhir pekan yang mulia ini!

Semoga Anda beruntung!
Ada lebih banyak kesederhanaan dalam kehidupan sehari-hari,
Bantuan dari pihak berwenang
Kesenangan, mimpi!

Penyewa yang berterima kasih!
Penduduk yang menawan
Bukan petarung yang tidak berjiwa,
Jangan kotor, dan jangan bodoh!

Wilayah - hanya wilayah yang bersih,
Dan tidak ada kecelakaan
Agar tukang ledeng tidur nyenyak,
Tukang gas itu senang!

Puisi Hari Perumahan dan Pelayanan Komunal, ucapan selamat Hari Pekerja Perumahan dan Pelayanan Komunal

Dengan perumahan dan layanan komunal, seperti yang diketahui semua orang,
Hidup ini sangat menarik:
Sebuah pipa pecah di suatu tempat,
Tidak ada cahaya di pintu masuk!
Di suatu tempat atapnya bocor
Ini tidak mengganggu kantor perumahan,
Kantor Perumahan hanya punya satu jawaban:
“Maaf, tidak ada uang!”
Kami warga, mengucapkan selamat kepada Anda,
Kami ingin melayani Anda
Bukan deuce, tapi lima,
Agar mereka bisa mempercayai Anda!

Kemuliaan, kemuliaan bagi perumahan dan layanan komunal,
Kemuliaan bagi Kantor Perumahan kami!
Semoga mereka beruntung dalam hidup
Orang-orang ini!
Biarkan konser terdengar untuk Anda,
Lagu dinyanyikan
Semoga hari-harimu penuh kemuliaan
Semua orang di dunia tahu!
Semoga Tuhan memberimu kesehatan,
Dan cinta dan kebahagiaan,
Biarkan mereka lewat
Berbagai cuaca buruk!

Pekerja perumahan dan layanan komunal!
Ya! Di hari libur nasional yang indah ini
Kami memuji pelukis, tukang ledeng, dan tukang kayu,
Orang-orang tak tergantikan lainnya juga sama!
Kami membuat syair untuk ahli semua karya,
Kami tidak mengalihkan pandangan dari pengrajin asli kami:
Anda membawa kehangatan dan cahaya kepada orang-orang -
Apa jadinya kami, warga negara, tanpa Anda?
Kami membayar Anda dengan kata-kata baik dan uang,
Kenyamanan di dalam rumah, ada gas, air...
Teman-teman! Jadi bersama kami
Sehat dan bijaksana selalu!

1. Format sekrup bukan teman.
Antivirus pertama dengan bangga diberi nama format.com.
Apa yang ditakuti oleh setiap pengguna rangkaian mikro yang dengan bangga disebut sebagai komputer? Tentu saja, memformat disk berharga Anda, yang berisi koleksi film, musik, permainan, dan foto telanjang Boris Moiseev yang sungguh tak ternilai harganya :). Oleh karena itu, untuk lelucon berikutnya, lebih baik dengan hati-hati “melupakan” beberapa tablet Validol di atas meja dan bersiap untuk memanggil orang baik berjas putih jika korban mengalami serangan jantung saat mempertimbangkan untuk memformat drive C:-nya. Tetapi Anda harus menulis sendiri emulator untuk pemformatan ini. Pertama, Anda perlu memperhatikan jendela pemformatan standar, dan kemudian memberikan tampilan yang persis sama pada formulir Anda di Delphi. Anda tidak harus membuatnya sangat mirip. Imajinasi musuh tidak akan membedakan detailnya. Untuk Windows XP, jendelanya mungkin terlihat seperti ini:
Saat membuat semua keindahan ini, Anda perlu menempatkan 4 elemen ComboBox, 4 elemen Label, 1 elemen GroupBox, 3 elemen Check-Box dan 1 Elemen tombol dari tab Standar, 1 elemen ProgressBar dari tab Win32, dan 1 elemen Timer dari tab Sistem pada palet komponen. Untuk membuat labelnya sendiri, gunakan bidang pemeriksa objek Caption untuk elemen Label, GroupBox, Button dan Check-Box dan bidang Teks untuk elemen Co-boBox (tentu saja, Anda perlu mengetahui semua informasi tentang disk yang "diformat" di muka). Untuk elemen ComboBox, saya sarankan menyetel bidang Diaktifkan ke False agar label Anda tidak dapat diubah. Kemudian klik dua kali pada Timer dan ubah kodenya:


mulai
progresBar1.Posisi:=bilah kemajuan1.Posisi+3;
akhir;

Semua. Kami memasukkan pintasan dari program yang dikompilasi ke dalam Startup dan pulang dengan hati nurani yang bersih, menunggu panggilan telepon dan jeritan menyayat hati tentang kegagalan mengerikan yang memformat semua disk dan penutupan jendela pemformatan secara heroik oleh peretas hebat Vasya Pupkin, yang menyelamatkan disknya (dan, tentu saja, seluruh dunia) dari virus jahat. Untuk mengantisipasi pertanyaan mengapa program dapat ditutup dengan begitu mudah, saya informasikan kepada Anda: ini adalah lelucon Saya melakukan ini beberapa kali, dan pengalaman menunjukkan bahwa seseorang, melihat bahwa jendela tidak menutup, menjadi sangat histeris, dan lelucon itu seharusnya tidak berbahaya, karena hanya dengan begitu tidak akan meninggalkan bekas yang berat pada jiwa korban dan pada hati nurani Anda.

2. Ada satu gaya nyata - gaya gravitasi.
Windows telah melacak pergerakan mouse Anda. Nyalakan ulang agar perubahan diterapkan.
Segala sesuatu di dunia yang penuh dosa ini mematuhi hukum alam. Semuanya kecuali kursor mouse kita, yang dengan berani terbang melintasi desktop dalam gravitasi nol, menentang gaya gravitasi. Baiklah, akan ada keadilan untuknya. Tempatkan elemen Timer dari tab Sistem pada palet komponen pada formulir. Di Object Inspector, atur timer Anda ke Interval=1; Untuk menyembunyikan jendela aplikasi, klik dua kali pada form dan ubah kode seperti yang ditunjukkan di bawah ini:


mulai
Aplikasi.ShowMainForm:= salah
akhir;

Untuk mengimplementasikan efek atraksi itu sendiri, klik dua kali pada komponen Timer dan tulis:

procedure TForm1.Timer1Timer(Pengirim: TObject);
var
p:Titik;
mulai
DapatkanCursorPos(p);
SetCursorPos(p.x,p.y+((Screen.height-p.y) div 30));
akhir;

Sekarang mari kita bicara tentang cara kerjanya. Untuk efeknya, fungsi GetCursorPos() digunakan, mengembalikan koordinat kursor mouse (p.x dan p.y) ke struktur p. Kemudian, dengan menggunakan prosedur SetCur-sorPos, kami menetapkan koordinat baru untuk memastikan bahwa koordinat X kursor dipertahankan dan koordinat Y-nya bertambah tergantung pada posisinya relatif terhadap nomor Layar. tinggi (resolusi vertikal layar Anda). Untuk menerapkan beberapa efek lainnya, Anda dapat sedikit memodifikasi prosedur SetCursorPos:
SetCursorPos(1,1);//kursor selalu berada di sudut kiri atas layar
SetCursorPos(hal.x-3,hal.y-3); //kursor terbang ke sudut atas layar
SetCursorPos(Layar.Lebar div 2, Layar.Tinggi div 2); //kursor selalu di tengah, dll.
Secara umum, itu sudah cukup untuk menangani sebagian besar hal prinsip-prinsip umum bagaimana prosedur ini bekerja, dan kemudian Anda dapat bercanda sesuai kebijaksanaan Anda sendiri.

3. Matrix memiliki Anda...
Menjual sumber Matrix. (c) Baru.
Nah, siapa yang belum menonton "The Matrix"? Semua penduduk negara kita yang luas mungkin tahu film ini. Oleh karena itu, tidak menyentuh topik ini merupakan kejahatan nyata. Tidak terlalu sulit untuk membayangkan wajah seseorang yang di depannya layar menjadi hitam dan tulisan "The Matrix has you..." mulai tercetak perlahan. Jadi, muat Delphi, tambahkan komponen Label dari tab Standar dan komponen Timer dari tab Sistem pada palet komponen ke formulir. Buka jendela kode (F12) dan cari baris Var. Kemudian kami mengaitkannya dengan semua yang di bawah ini:

Var
Formulir1: TForm1;
s:string="The Matrix memilikimu...";
saya: bilangan bulat = 1;
Klik dua kali pada formulir dan ubah kodenya:
prosedur TForm1.FormCreate(Pengirim: TObject);
mulai
(0)Label1.Keterangan:="";
(1)Bentuk1.Warna:=0;
(2)Form1.BorderStyle:=bsNone;
(3)Bentuk1.Kiri:=0;
(4)Bentuk1.Atas:=0;
(5)Bentuk1.Lebar:=Layar.Lebar;
(6)Bentuk1.Tinggi:=Layar.Tinggi;
(7)Tampilkan Kursor(salah);
(8)Label1.Font.Warna:=RGB(0,200,0);
(9)Label1.Font.Ukuran:=14;
akhir;

Kemudian, di Object Inspector, atur field Interval pada komponen Timer menjadi 300. Klik dua kali pada Timer dan tambahkan yang berikut ini:

prosedur TForm1.Timer1Timer(Pengirim: TObject);
mulai
jika saya<=length(s) then begin
Label1.Keterangan:=Label1.Keterangan+s[i];
inc(saya);
akhir;
akhir;

Nah, sekarang lebih lanjut tentang kodenya:
(0) me-reset teks komponen Label (menetapkannya sebagai string kosong)
(1) membuat seragam kita menjadi hitam
(2) menghilangkan judul dan batas formulir
(3)-(6) merentangkan formulir hingga memenuhi seluruh layar
(7) menyembunyikan kursor mouse
(8) mengatur warna tulisan kita (hijau)
(9) mengatur ukuran prasasti
Hasilnya, setelah kompilasi, saat Anda menjalankan program, gambar berikut akan terlihat.
Ada beberapa opsi di bawah ini. Anda cukup memasukkan pintasan program ke startup dan menunggu reboot berikutnya (untuk Win 9x Anda tidak perlu menunggu lama :)). Atau Anda dapat menggunakan program luar biasa seperti Penjadwal Tugas. Dia sendiri akan meluncurkan Matrix pada waktu yang tepat.

4. Bocor.
Tekan tombolnya dan Anda akan mendapat kejutan...
Ini masih merupakan lelucon yang luar biasa, yang telah memperoleh sejumlah janggut dan klon. Ini adalah jendela dengan tulisan "Apakah Anda puas dengan gaji Anda" (sebagai pilihan - "dekan Anda", "direktur Anda"). Lelucon inilah yang sekarang akan kami terapkan. Tempatkan dua elemen Tombol dari tab Standar pada palet komponen pada formulir dan klik dua kali pada formulir:

procedure TForm1.FormCreate(Pengirim: TObject);
mulai
Formulir1.BorderStyle:=bsDialog;
Form1.Caption:="Apakah Anda puas dengan gaji Anda";
Tombol1.Keterangan:="TIDAK";
Tombol2.Keterangan:="YA";
akhir;

Kemudian kita kembali ke formulir (F12), pilih tombol pertama kita dengan mouse dan buka tab Events di inspektur objek. Kami mencari bidang OnMouse Move di sana dan klik dua kali di seberangnya:

procedure TForm1.Button1Mouse Move(Pengirim: TObject; Shift: TShift State; X, Y: Integer);
mulai
Button1.Left:=Acak(Form1.Width-Button1.Width);
Button1.Top:=Acak(Bentuk1.Tinggi-Tombol1.Tinggi);
akhir;

Kode ini, ketika Anda mengarahkan mouse ke atas tombol, memindahkannya ke lokasi baru (tentu saja di dalam formulir). Yang tersisa hanyalah sedikit menekan musuh, yang pada akhirnya akan menekan tombol “YA”. Klik dua kali pada tombol kedua dan tulis di handler:

prosedur TForm1.Button2Click(Pengirim: TObject);
mulai
ShowMessage("Siapa yang meragukannya");
akhir;

Setelah kompilasi, Anda dapat menjalankan program di komputer korban dan memintanya untuk memilih salah satu opsi. Lalu sambil musuh mengejar tombol tersebut, kamu bisa minum kopi, mandi, dan lain-lain. tergantung pada imajinasi Anda.
Itu saja untuk saat ini. Tulis, sarankan, tanyakan, rekomendasikan. Semoga beruntung!

  • Sergei Savenkov

    semacam ulasan "pendek"... seolah-olah mereka sedang terburu-buru di suatu tempat