Focus vom Bild nehmen

[moperswings]

Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
        ailine: integer;
begin
        Image1.Picture.LoadFromFile(FileListBox1.FileName);
        JvRichEdit1.InsertGraphic(Image1.Picture.Graphic, false);
        JvRichEdit1.SelStart := SendMessage(JvRichEdit1.Handle, EM_LINEINDEX,ailine,0);
        SendMessage(JvRichEdit1.Handle,EM_scrollcaret,0,0);
        JvRichEdit1.SetFocus;

end;