Bạn biết những hộp Windows mà bạn chỉ có thể làm một việc?

Hãy đưa nó lên cấp độ tiếp theo!

Thử thách

Tạo một hộp thoại với một nút theo con trỏ của bạn ở khắp mọi nơi!

Thông số kỹ thuật

Không có đầu vào có thể được thực hiện. Có thể có đầu ra cho STDOUT hoặc STDERR. Bạn phải mở một cửa sổ bằng một nút (không cần văn bản, nhưng văn bản có thể được chứa trong tiêu đề cửa sổ, hộp thoại hoặc nút). Nút phải có thể nhấp và phải luôn theo dõi dưới con trỏ của bạn để bạn chỉ có thể nhấp vào nút đó. Khi nhấp vào, nó có thể làm bất cứ điều gì bạn muốn, nhưng vui lòng không làm cho máy tính bị sập vì tôi sẽ kiểm tra điều này ... Hộp thoại phải mở miễn là nút không được nhấn, nhưng không cần phải nhấn đóng khi nút được đóng lại.

Giả định mà bạn có thể thực hiện

• Bạn có thể giả định rằng con trỏ sẽ ở trong khung vẽ.
• Bạn có thể cho rằng cửa sổ sẽ nằm trong tiêu cự, nhưng bạn không được đặt cửa sổ ra khỏi tiêu cự miễn là không nhấn nút.

Mã giả ví dụ

Dưới đây là một số ví dụ mã giả:

Open Dialog Box
Add Button to Dialog Box at position X, Y
WHILE True:
    SET Dialog Box to CursorX - X, CursorY - Y

Các trường hợp thử nghiệm không thể được cung cấp cho thử thách này

Đây là một thử thách chơi gôn, vì vậy bài nộp hợp lệ ngắn nhất trước ngày 14 tháng 3 (Ngày số Pi) sẽ thắng!

MATLAB, 86 63 byte

set(warndlg,'WindowButtonM',@(s,e)movegui(get(0,'Po')-[99,20]))

Giải pháp này tận dụng khả năng (thường gây khó chịu) của MATLAB để sử dụng tên thuộc tính một phần miễn là phần được cung cấp là duy nhất chỉ thuộc tính quan tâm.

Giải pháp này sử dụng nội dung dựng sẵn warndlgđể tạo hộp thoại cảnh báo bằng nút "OK". Hàm này trả về một thẻ figuređiều khiển mà sau đó chúng ta có thể sử dụng để đặt WindowButtonMotionFcngọi lại (sử dụng tên ngắn 'WindowButtonM').

Cuộc gọi lại được đánh giá bất cứ khi nào con trỏ được di chuyển trong cửa sổ sẽ nhận được vị trí hiện tại của con trỏ (sử dụng thuộc PointerLocationtính của đối tượng đồ họa gốc , sử dụng tên ngắn của nó 'Po'). Sau đó, chúng tôi cập nhật Positionsố liệu bằng cách sử dụng moveguivà chỉ định vị trí mới của hình sau khi áp dụng độ lệch [99, 20]để con trỏ được đặt trên nút.

Khi nút cuối cùng được nhấp, hình sẽ bị xóa và tất cả các cuộc gọi lại sẽ tự động được giải phóng.

C # (Ứng dụng biểu mẫu Windows), 200 114 byte

void F(){var p=Cursor.Position;MouseMove+=(r,t)=>{Controls.Add(new Button());Location=new Point(p.X-30,p.Y-40);};}

Không chơi gôn

void F()
{
     Controls.Add(new Button());

     MouseMove += (r, t) =>
     {
        var p = Cursor.Position;
        Location = new Point(p.X - 30, p.Y - 40);
     };
}

Giải pháp 200 byte cũ:

public void F(){var t=this;var b=new Button();b.Click+=delegate{t.Close();};t.Controls.Add(b);t.Show();for(;;){Application.DoEvents();t.Location=new Point(Cursor.Position.X-30,Cursor.Position.Y-40);}}

Không chơi gôn

    public void F()
    {
        var t = this;
        var b = new Button();

        b.Click += delegate
        {
            t.Close();
        };

        t.Controls.Add(b);
        t.Show();

        for (;;)
        {
            Application.DoEvents();
            t.Location = new Point(Cursor.Position.X - 30, Cursor.Position.Y - 40);
        }
    }

AutoHotkey, 122 115 byte

MsgBox
WinWait,%A_ScriptName%
Loop{
MouseGetPos,x,y
WinGetPos,a,b
ControlGetPos,c,d,,,Button1
WinMove,x+a-c,y+b-d
}

Java 7, 294 289 286 264 220 byte

import java.awt.*;public class B extends java.applet.Applet{Button b;public B(){add(b=new Button());}public void paint(Graphics g){Point p=MouseInfo.getPointerInfo().getLocation();b.setLocation(p.x-9,p.y-65);repaint();}}

-22 byte nhờ MouseInfo (bị đánh cắp từ Zavada ) Tôi không thích các thư viện awt>.>

Tôi đã loại bỏ 44 byte bằng cách loại bỏ phương thức chính ở đây. Phương thức chính là không cần thiết nếu điều này được đưa ra như một applet. Điều này có thể đạt được thông qua "Run As Java Applet" của nhật thực hoặc bằng cách vô hiệu hóa trình quản lý bảo mật và sử dụng appletviewer , đi kèm với JDK (trừ khi bạn vẫn có thể xem các applet trong trình duyệt web. Tôi không nghĩ chrome cho phép điều này) .

Java, 172 199 235 byte

Chơi gôn

import java.awt.*;interface D{static void main(String[]z){new javax.swing.JDialog(){{setSize(9,99);setVisible(1>0);add(new Button());a();}void a(){for(Point p;;p=MouseInfo.getPointerInfo().getLocation(),setLocation(p.x-9,p.y-70));}};}}

Ung dung:

import java.awt.*;
interface D{
    static void main(String[]z){
        new javax.swing.JDialog(){
            {
                setSize(9,99);
                setVisible(1>0);
                add(new Button());
                a();
            }
            void a(){

                for(;;) {
                    Point p = MouseInfo.getPointerInfo().getLocation();
                    setLocation(p.x-9,p.y-70);
                }
            }
        };

    }
}

Giải thích: Tôi sử dụng khởi tạo cú đúp trong tuyên bố của tôi về một JDialog mới. Điều này đã lưu các byte bằng cách loại trừ phần mở rộng của JDialog (cho phép tôi lưu các byte loại trừ publickhỏi main). Bên trong lớp con ẩn danh của JDialog tôi làm cho nó hiển thị (sử dụng 1>0thay vì true) và gọi a(), điều này là cần thiết bởi vì bộ khởi động có lỗi thời gian biên dịch nếu vòng lặp được đặt trong đó. Tôi đã chọn sử dụng MouseInfo thay vì tất cả các mã thừa liên quan đến việc thêm trình nghe chuột.

Chỉnh sửa: Phải tăng số lượng lên 27 để thêm add(new java.awt.Button());. Tôi nghĩ rằng JDialogs có một nút ngụ ý bởi tính kỹ thuật, nhưng tôi dường như đã sai.

Chỉnh sửa 2: Phải thêm setSizevà bù vị trí chuột để làm cho nút có thể nhấp.

Xử lý sửa đổi Js 102 108 byte

draw=function(){background(0);rect(mouseX,mouseY,9,9);rect(mouseX,mouseY,4,4);if(mouseIsPressed){fill(9);}};

Hãy thử trực tuyến! Chỉ cần cập nhật liên kết của tôi!

Nó chỉ vẽ một hình chữ nhật theo con chuột của bạn và một hình chữ nhật nhỏ hơn bên trong nó mà bạn nhấp vào và nó chuyển sang màu đỏ. Nó hoạt động nhưng không tuyệt vời. Phiên bản này nếu rất nghiêm ngặt về niềng răng và tất cả những điều đó :(

Clojure, 525 byte

(ns d(:require[quil.core :as q][quil.middleware :as m]))(def w 500)(def h 200)(def t 30)(def n 200)(def m 100)(q/defsketch d :size[999 999]:setup(fn[](q/stroke 0 0 0)(q/text-font(q/create-font""(* t 1.3))){:x 0 :y 0}):draw(fn[{x :x y :y}](let[r q/rect f q/fill o(- x(/ w 2))p(- y (/ h 2))](q/background 99 99 99)(f 0 0 255)(r o p w h)(f 200 200 200)(r o(+ p t)w(- h t))(f 255 0 0)(r(-(+ o w)t)p t t)(f 255 255 255)(q/text"X"(- (+ o w) t)(+ p t))(r(- x(/ n 2))(- y (/ m 2))n m))):mouse-moved(fn[_ e]e):middleware[m/fun-mode])

Có không tạo ra một hộp thoại Windows chính hãng. Thay vào đó, nó xây dựng một cái giả và tạo ra một nút giả (không hoạt động) ở giữa.

Điều này đã được OP cho phép trong các ý kiến.

Sử dụng thư viện Quil .

(ns bits.golf.following-dialog
  (:require [quil.core :as q]
            [quil.middleware :as m]))

(def width 500)
(def height 200)

(def top-bar-height 30)

(def b-width 200)
(def b-height 100)

(defn -main []
  (q/defsketch d
    :size [999 999]
    :setup (fn []
             ; Set the border color
             (q/stroke 0 0 0)

             ; Set the font size
             (q/text-font (q/create-font "" (* top-bar-height 1.3)))

             ; The initial state
             {:x 0 :y 0})

    :draw (fn [{x :x y :y}]
            (let [r q/rect ; Shortcut functions for brevity
                  f q/fill

                  ; The top-left coordinates of the window
                  window-x  (- x (/ width 2))
                  window-y (- y (/ height 2))]

              ; Wipe the previous screen
              (q/background 99 99 99)

              ; Blue top bar
              (f 0 0 255)
              (r window-x
                 window-y
                 width height)

              ; Grey window background
              (f 200 200 200)
              (r window-x
                 (+ window-y top-bar-height)
                 width (- height top-bar-height))

              ; Red top right "button"
              (f 255 0 0)
              (r (- (+ window-x width)
                    top-bar-height)
                 window-y
                 top-bar-height top-bar-height)

              ; The X
              (f 255 255 255)
              (q/text "X" (- (+ window-x width) top-bar-height)
                          (+ window-y top-bar-height))

              ; The main "button"
              (r (- x (/ b-width 2))
                 (- y (/ b-height 2))
                 b-width
                 b-height)))

    ; When the mouse is moved, set the current state to the event object, which
    ;  conveniently has :x and :y properties
    :mouse-moved (fn [_ e] e)

    ; Needed for ease of state management. May try to factor out.
    :middleware [m/fun-mode]))

Pug / Slim + CSS / SCSS / LESS / Bút stylus + ES6 Javascript (98 byte)

Hãy thử trực tuyến!

Pug (10 UTF-8 byte)

button#a X

Bút stylus (18 UTF-8 byte)

#a{position:fixed}

JS (70 UTF-8 byte)

onmousemove=e=>{with(a.style){top=e.clientY+'px';left=e.clientX+'px'}}

Dịch ngược, Ungolfed và giải thích Snippet:

document.addEventListener('mousemove', function(e) {
  // Get element with an id of "id"
  var el = document.getElementById("id");
  // Set the vertical position
  el.style.top = e.clientY + 'px';
  // Set the horizontal position
  el.style.left = e.clientX + 'px';
})

/* Get element with an id of "id" */

#id {
  /* Position it relative to the viewport*/
  position: fixed;
}

<!-- A basic HTML button with an ID of "id" -->
<button id='id'>
  X
</button>

Toán học 226 byte

Vị trí chuột liên quan đến màn hình được theo dõi bởi mặt trước và vị trí cửa sổ của sổ ghi chép được di chuyển bất cứ khi nào chuột di chuyển. Khá đơn giản, nhưng các lệnh rất dài về mặt chữ cái, như thường thấy với Mathicala. Nhấp vào OK sẽ đóng hộp thoại.

{s,d,w}={SetOptions,Dynamic,WindowMargins->m};With[{p=d@MousePosition["ScreenAbsolute"]},
m=d@{{p[[1]]-50,0},{0,p[[2]]-35}}];s[$FrontEndSession,FrontEndEventActions->{"MouseMoved":>s[a,w]}];a=CreateDialog[{DefaultButton[]},w];

PS Khi bạn hoàn tất kiểm tra, hãy chạy tùy chọn này để xóa tùy chọn giao diện người dùng.

SetOptions[$FrontEndSession,FrontEndEventActions->None]

Javascript (ES6) + HTML + CSS, 139 byte

HTML:

<d id=d><button>X

CSS:

d{background:red;padding:9px;position:absolute

Javascript:

onmousemove=e=>{with(d.style){top=e.clientY-20+'px';left=e.clientX-20+'px'}}

Vì bạn không thể định vị các hộp thoại cảnh báo, tôi đã tạo hộp thoại siêu lạ mắt tùy chỉnh của mình trong HTML. Các javascript đăng ký một trình xử lý sự kiện trên đối tượng cửa sổ và đặt vị trí theo tọa độ của sự kiện.

Dùng thử trực tuyến: https://jsfiddle.net/1yohswje/