Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Suche in Memo (Selection)
retnyg - Fr 11.11.05 23:15
Titel: Suche in Memo (Selection)
ich habe ein edit und möchte bei return den suchtext im memo markieren.
bislang springt er mir nur an die stelle, markiert aber nichts:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key = char(VK_RETURN) then begin
key := #0;
memo1.SelStart := pos(edit2.text,memo1.Text);
memo1.SelLength := length(edit2.text);
end; |
retnyg - Fr 11.11.05 23:39
ahja, noch ein setfocus, dann tuts.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!