Kann nicht in edit schreiben

[Executor]

Hi all, hab da nur n kleines Problem, was ich noch nie hatte, und deshalb auch nicht lösen kann -.-

Ich hab da son edit, wenn ich da rein schreiben will, wird jeder alte Buchstabe durch einen neuen erstetzt (also steht immer nur ein Buchtsabe drin

Hoffe ihr könnt mir helfen

Executor

[mkinzler]

Was für einen Wert hat .MaxLength?

[faux]

Zitat von mkinzler:

Was für einen Wert hat .MaxLength?

Dann würde IMHO nur ein *ding* kommen, aber nichts ersetzt werden.
Ich tippe mal darauf, dass Ins/Einfg aktiviert ist. Sonst poste mal den OnEdit- oder OnKeyDown/Press-Code, falls es einen gibt.

Grüße
Faux

[mkinzler]

Es könnte auch an .AutoSelect liegen.

[Executor]

Also .MaxLength ist auf 0.

Delphi-Quellcode:

procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin

  if key = #13 then SendClick(Self);
  edit2.Text:='';

end;

und:

Delphi-Quellcode:

procedure TForm1.SendClick(Sender: TObject);
var Text:string;
    i:integer;
begin

  BroadCast('System',edit2.Text);

end;

sry Broadast ist folgende

Delphi-Quellcode:

procedure TForm1.Broadcast(const Name, Text: String);
begin

  memo1.Lines.Add(Name+': '+Text);
  ClientSend('Said'+#13+Name+#13+Text+#13);

end;

Die Procedure ClientSend kann ich auf Anfrage auch posten^^
Aber das mit dem edit kapier ich einfach net

[Matze]

Hi

Zitat von Executor:

Aber das mit dem edit kapier ich einfach net

Aber ich.

Du hast (ich formatiere es einmal um) das hier:

Delphi-Quellcode:

procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    SendClick(Self);

  Edit2.Text := '';
end;

Du leerst das Edit also im OnKeyPress. Um mehrere Bedingungen einer if-Abfrage zuordnen zu können, müssen diese in einen begin-end-Block eingefasst werden:

Delphi-Quellcode:

procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    SendClick(Self);
    Edit2.Text := '';
  end;
end;

[Executor]

Die Procedure hat ja funktioniert, aber danke, ich werde sie ausbessern.

Also das mit dem Edit is so:

Ich schreibe meinetwegen ein "a", wenn ich jetzt ein "b" schreiben will, wird das "a" durch das "b" ersetzt -> ergo kann ich nur ein zeichen in das edit eintippen.
Wieso?
Hoffe ihr könnt mir helfen
bis dann
Executor

[NecroWurst]

Hi!

Die Prozedur hat sicher bei dem Drücken der Enter-Taste perfekt funktioniert. Nur wenn du einen Beitrag weiter oben liest, siehst du auch den Fehler:

Dein Originalcode

Delphi-Quellcode:

procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then  // Wenn die Taste Enter gedrückt wurde
    SendClick(Self); // Dann soll er SendClick() ausführen

  Edit2.Text := '';  // Da diese Zeile nicht im If-Block steht
                     // wird diese Anweisung immer im OnKeyPress ausgelöst, bei jeder Taste
end;

Und da natürlich dein 'a' im Edit schon drinne stand, wird das Edit geleert und dein 'b' nun reingeschrieben. Korrektur findest du im Beitrag von Matze!

[Executor]

Hey Cool!
Es geht!
Da wär ich nie drauf gekommen...

Danke danke =)

Man sieht sich

Executor