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?