Fadenkreuz um Maus

[Oldy]

Zitat von NamenLozer:

Am einfachsten erzeugst du einfach 2 Formulare (BorderStyle: bsNone), das erste so hoch wie der Bildschirm und 1 Pixel breit, das zweite so Breit wie der Bildschirm und 1 Pixel hoch. Dann nimmst du einen Timer mit kleinem Intervall und änderst im OnTick die Positionen der Formulare, sodass sie die Cursorposition anzeigen. Die Formulare sollten außerdem Formstyle fsStayOnTop haben. Wenn du auch die kleine Lücke haben willst, um klicken zu können, kannst du ja stattdessen 4 Formulare nehmen. Oder du spielst ein bisschen mit Regions herum.

Die Cursorposition kriegst du über GetCursorPos() heraus, die Ausmaße des Bildschirm mit Screen.Width bzw Screen.Height.

Vielen Dank!!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
a : tpoint;
begin
GetCursorPos(a);
with form1 do begin
height:= 1;
formstyle:= fsStayOnTop;
left:=0;
top:= a.y;
width:= a.x-20;
end;
with form2 do begin
height:= 1;
formstyle:= fsStayOnTop;
visible:=true;
left:=a.x+20;
top:= a.y;
width:= Screen.Width - a.x+20;
end;
with form3 do begin
borderstyle:=bsnone;
visible:=true;
width:= 1;
formstyle:= fsStayOnTop;
top:=0;
left:= a.x;
height:= a.y-20;
end;
with form4 do begin
borderstyle:=bsnone;
width:= 1;
formstyle:= fsStayOnTop;
visible:=true;
top:=a.y+20;
left:= a.x;
height:= Screen.height - a.y+20;
end;
end;

end.

Ist nicht super Sortiert, aber es funktioniert
Man muss jetzt nurnoch die Timerzeit richtig einstellen und Fertig!
allerdings, ganz zufrieden bin ich nicht, es hinterlässt immer wieder lästige schwarze striche vom verschieben der Formen.
wie kann ichd as nun umgehen?