Probleme mit SpinEdit

[alcaeus]

Also, ich lasse den Benutzer bei einem Onlinespiel den Port über ein Spinedit auswählen. Wenn ich jetzt aber den Wert im SpinEdit vorher setze, so wird dieser trotzdem nicht angenommen. Ich habe schon mehrere Lösungen probiert, aber leider hat gar nichts funktioniert. Code:

Delphi-Quellcode:

function Tf_Options.ShowForm(iPort: Integer; ...): Boolean;
begin
  ...
  se_Port.Value := iPort;
  ...
  ShowModal;
  ...
end;

Meiner Meinung nach müsste dieser Code funktionieren, oder?

[alcaeus]

Kennt niemand ganz zufällig eine Antwort auf mein Problem?

[kiar]

also ich habe mal etwas mit spinedit gemacht, was auch nur sporadisch geklappt hat. dann hat einer gesagt das spinedit nicht das wahre ist.seitdem nutze ich es nicht mehr.

ich schaue mal

raik

[Luckie]

Wo kommt bei deinem Code das SpinEdit ins Spiel?

Desweiteren ist es nicht erwünscht schon nach so kurzer Zeut seinen Thread zu "pushen".

[axelf98]

Liegts vielleicht an MinValue/MaxValue/Maxlength?

[Luckie]

Wenn se_port dein SpinEdit ist, weißt du ihm einen Wert zu. Schön und was klappt da nicht? In wie fern wird der Wert nicht angenommen?

[alcaeus]

@Luckie: Sorry für das Pushen.

MinValue = 0
MaxValue = 32767
MaxLength = 0

Wenn ich dem Spinedit einen Wert zuweise, so steht immer noch der Wert drinnen, der zur Entwurfszeit drinnen war. Dies sieht im Pseudo-code so aus:

Delphi-Quellcode:

//Form1 erstellt Form2
//se_Port.Value = 1, laut entwurf
se_port.Value := 10;
//Form2 anzeigen
//se_Port.Value = 1, immer noch, obwohl neu gesetzt
...

Ich hoffe diese Erklärung ist etwas genauer, falls nicht, dann weiß ich nicht was unklar ist.

[MrKnogge]

befindet sich das SpinEdit auf der Form2 ?

Falls ja, versuch mal
Form2.se_port.Value := 10;

[alcaeus]

Ja, es befindet sich auf Form2, wird aber auch in Form2 gesetzt...vielleicht diesmal genaueren Code:

Form1:

Delphi-Quellcode:

Application.CreateForm(Tf_Options,fOptions);
fOptions.ShowForm(iPort);
fOptions.Free;

Form2:

Delphi-Quellcode:

procedure Tf_Options.ShowForm(Port: Integer);
begin
  ...
  se_Port.Value := Port;
  ShowModal;
end;

Eigentlich müsste dieser Code passen,oder? Ich weiß wirklich nicht mehr weiter...

[alcaeus]

Also, das erste Problem hätte ich gelöst, doch wieso geht die Return-Taste nicht obwohl ein Button als Default gesetzt wurde? Weiß vielleicht jemand eine Lösung für das Problem?