memo klik

sådan selecter du en linie

procedure TfrmMain.Memo1Click(Sender: TObject);
var
  Line: Integer;
begin
  with (Sender as TMemo) do
  begin
    Line      := Perform(EM_LINEFROMCHAR, SelStart, 0);
    SelStart  := Perform(EM_LINEINDEX, Line, 0);
    SelLength := Length(Lines[Line]);
  end;
end;

det var nu ikke helt sådan jeg ville have det, men jeg har rettet lidt i det, så jeg næsten har det jeg vil have:

procedure TForm1.Memo1Click(Sender: TObject);
var
  Line: Integer;
begin
  with (Sender as TMemo) do
  begin
    Line      := Perform(EM_LINEFROMCHAR, SelStart, 0);
    memo2.Lines[line]:='hej';
    //SelStart  := Perform(EM_LINEINDEX, Line, 0);
    //SelLength := Length(Lines[Line]);
  end;
end;

hvordan gør jeg nu sådan, at når jeg trykker et sted i memo1, så begynder skrivemarkøren ikke at blinke?

men tak foreløbigt

øhh??

skal du skrive i memo'en?

så har jeg misforstået dig, sorry

Her er et eks. på hvordan man skjuler markøren i en TMemo:
http://delphi.about.com/cs/adptips2003/a/bltip0703_5.htm

nej, jeg skal netop ikke skrive, og derfor gider jeg ikke se på skrivemarkøren blinke. Jeg skal have en memo med nogle linjer, og så skal jeg kunne trykke på en linje, hvorefter der kommer noget frem i en anden memo, men uden at skrivemarkøren er aktiv i første memo.

Der må da være sådan en indstilling i Object inspector.

jeg har prøvet eksemplet, men det virker altså ikke!

Det virker fint her i min Delphi 7.

i denne procedure:
procedure TForm1.MemoChange(Sender: TObject) ;
begin
  CreateCaret(Memo1.handle,0,0,0) ;
end;

skal der vel stå memo1change, ikke?

jow, det er en tryk fejl.

så forstår jeg det ikke, fordi det er det eneste, jeg ændrer i koden.

Hvordan virker det ikke, kommer der en fejl eller hvad? Bliver koden i de enkelte procedurer kaldt?

det ved jeg ikke. kan jeg se det med debuggeren? hvordan gør jeg i så fald det?

Du bør læse om hvad du kan med debuggeren for den er til stor hjælp. Men hvis du vil se om en kode bliver udført kan du gøre det enkelt ved at klikke ude til høje (helt ude til højre) for linien således at linien bliver rød, du har nu indsat et break point.

Og når jeg skriver højre så mener jeg venstre :-)

ok det vil jeg gøre.

Jeg har helt glemt at bede vallemanden lægge et svar. Du er velkommen, vallemanden :)

vallemanden, du er stadig velkommen.

jeg giver point i morgen, vallemanden