Memolines readonly ?

[150gozilla]

Hallo,

ich habe ein Memo mit 28 Lines.

So nun möchte ich das Line 1 und Line 9 nicht mehr verändert werden können, aber der rest schon.

Ich bin am verzweifeln.

Könnt ihr mir helfen ?

[Zacherl]

Du könntest im OnSelection Change Ereigniss die aktuelle Zeile herausfinden und dann die RadOnly Eigenschaft entsprechend setzen. Dazu findest du hier sicher Code.

Florian

[150gozilla]

:wiejetzt: <-- finde den geil :D, ich suche seid 2 stunden, und finde nix passendes.

mit dem onselect hatte ich es auch probiert, aber klappte nicht, oder ich habe was falls gemacht.

[Zacherl]

Mal angenommen, du kennst den Code zum Herausfinden der aktuellen Zeile (Ich kenne ihn nicht, dürfte es aber in der DP geben), dann sollte dein OnSelectionChange Ereigniss in etwa so aussehen:

Delphi-Quellcode:

if (GetLine = 0) or (GetLine = 1) or (GetLine = 2) ... then//GetLine ist die Procedure zum herausfinden der Zeile und Zeile 0 ist die 1. Zeile
begin
  Memo1.ReadOnly := true
end
  else
begin
  Memo1.ReadOnly := false;
end;

Florian

[Sharky]

Wo findet man in einem Memo denn das OnSelectionChange? :such:

Eine nicht schöne aber funktionierende Möglichkeit:

Delphi-Quellcode:

procedure TForm1.memo_TestChange(Sender: TObject);
var
  mycaretpas: TPoint;
begin
  with (Sender as TMemo) do
  begin
    mycaretpas := CaretPos;
    if (mycaretpas.Y < 9) then // Wenn der Caret in den Zeilen 0 bis 9 ist
    begin
      SendMessage(Handle, WM_UNDO, 0, 0); // Mache die Änderung rückgänig
      SelLength := 0;
      Perform(EM_EMPTYUNDOBUFFER, 0, 0);  // und lösche den Undo-Buffer
    end;
  end;
end;

[Zacherl]

Zitat:

Wo findet man in einem Memo denn das OnSelectionChange?

Ups :oops: die gibt's ja nur bei RichEdits ...

Florian

[lizardking]

Zitat:

Zitat von Florian Bernd

Zitat:

Wo findet man in einem Memo denn das OnSelectionChange?

Ups :oops: die gibt's ja nur bei RichEdits ...

Florian

*g*

Funzt aber, wenn man beim Memo einfach OnKeyDown und OnMouseDown benutzt und dort die Abfrage nach der Zeile macht :

Delphi-Quellcode:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Memo1.CaretPos.Y = 0) or (Memo1.CaretPos.Y = 8) then
    Memo1.ReadOnly := true
  else
    Memo1.ReadOnly := false;
end;

Selbiges dann eben nochmal fuer OnMOuseDown :)

[Sharky]

Zitat:

Zitat von lizardking

... Funzt aber, wenn man beim Memo einfach OnKeyDown und OnMouseDown benutzt und dort die Abfrage nach der Zeile macht :

Hai lizardking,

funktioniert dein Code auch wenn ich mit der Mause in eine Zeile klicke und dann über ein Kontextmenü eine Einfüge/Überschreiben Funktion aufrufe?

[150gozilla]

Zitat:

Zitat von Sharky

Zitat:

Zitat von lizardking

... Funzt aber, wenn man beim Memo einfach OnKeyDown und OnMouseDown benutzt und dort die Abfrage nach der Zeile macht :

Hai lizardking,

funktioniert dein Code auch wenn ich mit der Mause in eine Zeile klicke und dann über ein Kontextmenü eine Einfüge/Überschreiben Funktion aufrufe?

Man kann ja dem Memofeld, ein leeres PopUp Menü zuweißen, somit kann man mit dem kontext menü in diese zeile nichts einfügen :stupid: