Guden,
hab folgende Problemstellung:
Ich möchte unter
Delphi 7 eine Ubuntu-ähnliche Bildschurmlupe für Windows XP programmieren, da ich eine Funktastatur & Maus besitze und gerne vom Sofa aus noch alles lesen können würde, wärs Optimal wenn ihr mir ein wenig helfen könntet.
Die Ubuntulupe besteht aus einem Quadrat, in dem die Maus permanent den Mittelpunkt darstellt. Die Maus ist also praktisch mit dem Quadrat verschmolzen.
Hier der Code
Delphi-Quellcode:
unit Unit1;
interface
type
TForm1 =
class(TForm)
procedure Mouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
top,left: integer;
implementation
{$R *.dfm}
procedure TForm1.Mouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Form1.Left:= TMouse.create.cursorpos.X - (TMouse.Create.CursorPos.X
div 2) ;
Form1.Top:= TMouse.Create.CursorPos.Y - (TMouse.Create.CursorPos.Y
div 2) ;
end;
end.
Meine Fragen:
1. Mein Quadrat bewegt sich zwar schon mit der Maus mit, aber nicht als Einheit. Kennt Ihr vielleicht eine bessere Lösung?
2. Wie bringe ich es dar, dass TForm überhalb der Maus ist und wie vergrößere ich alles worüber sich TForm befindet (Cascade?!).