Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Focus vom Bild nehmen (https://www.delphipraxis.net/95341-focus-vom-bild-nehmen.html)

moperswings 5. Jul 2007 10:42


Focus vom Bild nehmen
 
Hallo,

ich füge Bilder in ein JvRichEdit ein. Das eingefügte Bild ist aber markiert. Wie nehme ich diese Markierung vom Foto und setze den Cursor ins JvRichEdit?
Hoffe, ihr könnt mir helfen!

mfg, moperswings

moperswings 5. Jul 2007 14:18

Re: Focus vom Bild nehmen
 
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;

Robert Marquardt 5. Jul 2007 14:21

Re: Focus vom Bild nehmen
 
Hast du schon versucht mit SelectionType herumzuspielen? Du fuegst ja eine Grafik ein, die danach ja natuerlich die aktuelle Selektion darstellt.

moperswings 5. Jul 2007 14:41

Re: Focus vom Bild nehmen
 
Wie benutze ich SelectionType?
Meine Delphi-Hilfe und die Forumssuche bringen keine Infos!

DGL-luke 5. Jul 2007 14:44

Re: Focus vom Bild nehmen
 
z.B., indem du das an deine prozedur noch dranhängst:

Delphi-Quellcode:
RichEdit1.SelStart := RichEdit.Selstart + 5; //+1 müsste eigentlich reichen. der cursor soll halt ans ende.
RichEdit1.SelLength := 0; //oder hieß es SelCount?

Robert Marquardt 5. Jul 2007 14:58

Re: Focus vom Bild nehmen
 
Ein JvRichEdit hat noch einen SelectionType. Da muss man halt in die Source schauen und doert nachsehen was der Typ der Property erlaubt.

moperswings 5. Jul 2007 15:06

Re: Focus vom Bild nehmen
 
@Luke
Danke, wenn ich an Deinen Vorschlag noch den SetFocus dran hänge, geht´s.
Ist einfacher, als mit SendMessage zu hantieren!

@Robert
Das muss ich mir erstmal in Ruhe anschauen


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz