Pointer til skærmen

pointer ved jeg ikke lige om man kan. Men du kan da tegne på desktop canvas. Og du kan også få fat i listboxen som bliver brugt på skrivebordet.

Men ellers må du da gerne sige lidt mere om hvad du mener...

procedure TfrmMain.btnSkrivClick(Sender: TObject);
var
  TxtWidth  : integer;
begin
  fCanvas.Handle := GetDC(0);
  try
    fCanvas.Font.Assign(fdFont.Font);

    TxtWidth := fCanvas.TextWidth(eText.Text);
    with seXPos do
      if Value + TxtWidth > MaxValue then // Truncate if larger than screen dim.
        Value := MaxValue - TxtWidth;

    fCanvas.TextOut(seXPos.Value,seYPos.value,eText.Text);
  finally
    ReleaseDC(0,fCanvas.Handle);
  end;
end;

Mange tak!

Det virker jo helt som jeg havde håbet!
Også er det jo ret let ;))

ZeroHero