Enter-Taste bei SpinEdit

[alcaeus]

Hi! Ich habe in einer Formular ein Spinedit und einen Button, welcher als Default gesetzt wurde. Wenn ich jetzt im SpinEdit die Enter-Taste drücke, so wird nicht auf den Button reagiert. Ich habe probeweise ein Edit-Feld mit ins Formular gegeben, dort hat es anstandslos funktioniert. Weiß jemand worauf das Problem zurückzuführen ist?

[toms]

Zitat:

Weiß jemand worauf das Problem zurückzuführen ist?

Das liegt daran, dass das TSpinedit den Style ES_MULTILINE hat.

[alcaeus]

Toms, ich weiß nicht wo du diese Eigenschaft beim Spinedit gefunden hast, aber bei meinem D7 Ent gibs die irgendwie nicht...

[toms]

Dazu musst du schon im Source Code von TSpinEdit nachschauen.

---> TSpinEdit.CreateParams

Delphi-Quellcode:

procedure TSpinEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or ES_MULTILINE or WS_CLIPCHILDREN;
end;

[alcaeus]

Achso, danke. Kann ich das Multiline irgendwie auch abschalten?

[Xeno-Sebi]

hm...das ist zwar nicht eine antwort auf deine frage, aber vielleicht kannst du bei einem onKeyUp ereignis des spinedits sagen:

Delphi-Quellcode:

if(Key=13)then
  Button1.Click();

damit umgehst du das prob

[alcaeus]

:wall: :wall: :wall: Darn hätte ich eigentlich auch denken können...naja, auch Profis machen Fehler ;)

[toms]

Zitat:

Kann ich das Multiline irgendwie auch abschalten?

Würde ich lieber nicht, sonst verändert das TSpinEdit etwas sein Aussehen (Hab's eben ausprobiert)
Mach's lieber so, wie's Xeno-Sebi vorgeschlagen hat.

[alcaeus]

Die Lösung von Xeno-Sebi funktioniert eigentlich gut, doch da gibt es gleich wieder ein Folgeproblem: In der Click-Routine des Buttons überprüfe ich den Wert des Edits. Wenn ich die evtl. aufkommende Fehlermeldung mit der Enter-Taste bestätige, so erscheint das Fehlerfenster wieder. Hat jemand auch dagegen ein Heilrezept oder ist wieder ein neuer Thread fällig?

[Xeno-Sebi]

Was für ne Fehlermeldung ist das denn? Schon mal mit try...except probiert?
also ich hab mal ein simples prog nachgebaut:
1 edit; 1 spinedit; 1 button(default)

Delphi-Quellcode:

procedure TForm1.SpinEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if(Key=13)then
 Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(Edit1.Text+IntToStr(SpinEdit1.Value));
end;

da gabs keine fehler, deshalb glaube ich nciht, das der fehler aus der keyup methode, sondern aus deiner weiterverarbeitung kommt... ansonsten kannst du vor dem button1.click mal button1.setfocus machen, dann ist es identisch mit nem echten mausklick

[alcaeus]

nö, eine selpst generierte Fehlermeldung. Ich geb bei einem ungültigen Port (kleiner als 1 etc.) eine Fehlermeldung mit MessageDlg aus. Ich hab mich vielleicht vorher nicht deutlich genug ausgedrückt...

[Xeno-Sebi]

Zitat:

Zitat von alcaeus

Ich hab mich vielleicht vorher nicht deutlich genug ausgedrückt...

yo stimmt. wie wärs, wenn du mal den code postest?

[alcaeus]

Logo, hier:

Delphi-Quellcode:

procedure Tf_PokerServer.b_StartServerClick(Sender: TObject);
begin
//DONE:Handle start listening
  if (se_Port.Value >= se_Port.MinValue) and (se_Port.Value <= se_Port.MaxValue) then
  begin
//....
  end //if (se_Port.Value >= se_Port.MinValue) and (se_Port.Value <= se_Port.MaxValue)
  else
    MessageDlg('Invalid port',mtError,[mbOk],0);
end; //procedure Tf_PokerServer.b_StartServerClick

procedure Tf_PokerServer.se_PortKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
//DONE: React to RETURN-Key
  if (Key = 13) then
    b_StarServerClick(Sender);
end; //procedure Tf_PokerServer.se_PortKeyUp

Ich hoffe der erklärt sich von selbst

[Xeno-Sebi]

ahja ist logisch:
wenn du mit space die meldung schließt kommt sie nciht nochmal, oda???
das liegt daran, dass das(oder der???) spinedit imma noch markiert ist. Der dialog wird mit keydown geschlossen. Aber "Tf_PokerServer.se_PortKeyUp" ist keyup! also reicht eine taste für beides. also musst du das so machen:

Delphi-Quellcode:

if(Key=13)then
begin
Button1.setfocus;
b_StarServerClick(Sender);
end;
end;

dadurch wird das spinedit feld verlassen, und onkeyUP funzt nicht mehr, wenn es ncith markiert ist
logisch?

P.S.: statt Button1 kannste auch ein xbelibiges anderes objekt nehmen, welches nciht auf keyup reagiert^^

[alcaeus]

Ok, das werde ich gleichmal probieren, danke einmal