Memo.CaretPos in Pixeln ?

[lizardking]

Moin ;-)

Meine Delphi-Hilfe (D7) sagt mir Folgendes:

Zitat:

Use CaretPos to determine the coordinates of the cursor. CaretPos defines a pixel location onscreen, with the origin in the top left corner of the memo.

Keine Ahnung warum, aber bei liefert die Property ganz klar Zeile und Spalte, an der der Cursor steht, aber definitiv keine Position in Pixeln. Ich moechte auf eine bestimmte Tastenkombination eine Combo-Box an der aktuellen Cursorposition erscheinen lassen. Aber wie berechne ich die genauen Koordinaten ?

Wo liegt mein Denkfehler ?

Gruesse,

Lizzy

[marabu]

Moin Lizzy,

deine Delphi Hilfe lügt - soviel zur Qualitätskontrolle bei Hilfe-Dateien. Hier ein Stück Code aus einem Demo-Projekt, in welchem ich allerdings eine ListBox verwende:

Delphi-Quellcode:

procedure TDemoForm.MemoKeyPress(Sender: TObject; var Key: Char);
var
  pt: TPoint;
begin
  if Key <> '.' then
    Exit;
  GetCaretPos(pt);
  with Sender as TMemo do
    pt := ClientToParent(pt);
  with ListBox do
  begin
    Left := pt.X + 6;
    Top := pt.Y - Memo.Font.Height * 6 div 5;
    ItemIndex := 0;
    Visible := true;
    SetFocus;
  end;
end;

Grüße vom marabu

[lizardking]

Zitat von marabu:

Moin Lizzy,
deine Delphi Hilfe lügt - soviel zur Qualitätskontrolle bei Hilfe-Dateien. Hier ein Stück Code aus einem Demo-Projekt, in welchem ich allerdings eine ListBox verwende:
...

Urgh.. Danke ! :) So funkioniert es. Da haette ich ja ewig suchen koennen.

Dankende Gruesse,

Lizzy

P.S.: Ich wollte die Frage jetzt irgendwie als beantwortet markieren. Aber wie mach ich das ? *schaem*