Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Memo.CaretPos in Pixeln ?

  Alt 21. Mai 2006, 19:10
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
  Mit Zitat antworten Zitat