Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Blackheart,
14. Jul 2009
Hier ein Beispiel wie du wörter unter dem Cursor erkennen kannst, vieleicht hilft dir das ja schon etwas weiter.
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var pt:tpoint;
i,iAnfang,iEnde:integer;
s:string;
begin
pt:= point(x,y);
//wo steht der Cursor im memo?
i := RichEdit1.Selstart;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Blackheart,
13. Jul 2009
Vieleicht solltest du dein Problem noch einmal besser schildern.
Wenn du einen Chat aufbaust und jetzt jemand schreibt oder antwortet wird zum Anfang der Name gesetzt den du ganz einfach mit Pos, Copy etc. herrausfinden kannst ist ja der erste String in der Zeile.