TMemo: wenn Pfeil in der letzten Zeile -> wie Tab

[hoika]

Hallo #,

ich erweitere gerade ein Form.
Dort waren 3 Edits.
Wenn man im Edit "Pfeil nach unten" geklickt hatte,
wurde der nächste Editor markiert.

Delphi-Quellcode:

  if Key=VK_Down then theForm.Perform(WM_NEXTDLGCTL, 0, 0);

Jetzt wird einer der Edits durch ein TMemo ersetzt.
Wenn der Cursor in der letzten Zeile ist und der Nutzer vk_down drückt,
soll zum nächsten Edit springen.

EM_LINEFROMCHAR, EM_LINEINDEX habe ich schon rausgesucht,
aber so richtig keinen Plan, wie weiter.
Ich brauche sowas wie "CursorIsInLastLine".

Hat jemand sowas programmiert ?

Danke

Heiko

[chrisw]

im OnKeyDown oder OnKeyUp des MemoFeldes

Delphi-Quellcode:

if (Key = VK_Down) and (Memo1.SelStart = Length(Memo1.Text))  then theForm.Perform(WM_NEXTDLGCTL, 0, 0);

[hoika]

Hallo chrisw,

Danke, ich habe das inzwischen selbst herausgefunden.
Das Problem ist, der Code wird zwar ausgeführt, aber das nächste
Edit wird NICHT fokussiert.
In das Perform springt er aber.

Edit_Text ist vom Typ TMemo.
Ich hatte nur keine Lust, alle Verweise zu ändern.

Mit Tab geht es,
die folgenden Editoren werden auch brav angesprungen,
wenn vorher auch ein Editor fokussiert war.

Woran kann das liegen ?


Edit:
Key:= 0; war die Lösung


Heiko

Delphi-Quellcode:

procedure TForm_Terminal_IdText.Edit_TextKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
  iCurLine : Integer;
  iMaxLines : Integer;
begin
 { starts with zero }
  iCurLine:= SendMessage(Edit_Text.Handle, EM_LINEFROMCHAR,
    Edit_Text.SelStart, 0)+1;
  iMaxLines:= SendMessage(Edit_Text.Handle, EM_GETLINECOUNT, 0, 0);

  if (Key=VK_UP) and
     (iCurLine=1) then
  begin
    Self.Perform(WM_NEXTDLGCTL, 1, 0);

   // ohne das klappt es nicht
    Key:= 0;
  end;

  if (Key=VK_DOWN) and
     (iCurLine=iMaxLines) then
  begin
    Self.Perform(WM_NEXTDLGCTL, 0, 0);

   // ohne das klappt es nicht
    Key:= 0;
  end;
end;

[marabu]

Hallo Heiko,

kennst du schon TMemo.CaretPos.Y?

Grüße vom marabu

[hoika]

Hallo marabu,

jetzt ja ;)

aber wozu ?
Das sind Bildschirmkoordinaten, keine Zeilen.

Aber egal, der Code oben läuft ja jetzt. :cheers:

Heiko

[marabu]

Zitat:

Zitat von hoika

Das sind Bildschirmkoordinaten, keine Zeilen.

Du darfst nicht alles glauben, was geschrieben steht.

Freundliche Grüße