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:

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 :lol:

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 :roll:

[Matze]

Hi

Zitat:

Zitat von Executor

Aber das mit dem edit kapier ich einfach net :roll:

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? :wall:
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... :zwinker:

Danke danke =)

Man sieht sich :-D

Executor