Suche in Memo (Selection)

retnyg · Verfasst: Fr 11.11.05 23:15

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:

markieren

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;

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

retnyg · Verfasst: Fr 11.11.05 23:39

ahja, noch ein setfocus, dann tuts.

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme