Erstellen eines transparenten Rechtecks

[Daniel B]

Kordinaten kannst Du zum Bleistift mit sowas abfragen:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('X=' + IntToStr(Mouse.CursorPos.X) + #13 + 'Y=' + IntToStr(Mouse.CursorPos.Y));
end;

Grüsse, Daniel