Tekst til memo

Du kan bruge et af Memoens events (f.eks. OnClick) til at fange en brugerhandling og ud fra positionen i Memoen udføre din specielle handling.

procedure TForm1.Memo1Change(Sender: TObject);
begin
  If Memo1.Lines.IndexOf('test') > 0 Then
    Showmessage('daws');
end;

Du bør så nok lige smide en variabel ind som du sætter første gang i skal gøre det du nu skal gøre, så det ikke bliver udført hver gang der efterfølgende bliver trykket på en tast.

Snowball

Hvis jeg bare smider en memo ind på en tom form, kan jeg få det til at virke!!!
Men ikke i mit program!

Hov!
Det virker sgu' hvis jeg skriver det på tredje linje. Det går nok!!!

Den her burde virke over alt i dit memo

procedure TForm1.Memo1Change(Sender: TObject);
var
linenumber : integer;
begin
LineNumber := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,memo1.Selstart,0);
if memo1.Lines[linenumber] = 'test' then
showmessage('Bingo');

end;

Stoney