Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - SpinEdit ...


KeinePanik - Do 27.06.02 00:20
Titel: SpinEdit ...
Ich will die Standartkomponente Spinnedit einsetzten, aber so, dass der User nur die Pfeile nutzen kann und NICHT selber einen Wert ! (also die Edit-Fläche sperren) ... Mit welcher Eigenschaft von TSpinEdit (Registrierkarte "Beispiele") setze ich das ausser Kraft ???


Arakis - Do 27.06.02 01:41
Titel: Basteln
Also ich würde mir da selbst was zusammenbasteln, mit einem Editfeld, das auf readonly steht und der Komponente "UpDown".

Bis dann
user defined image


toms - Do 27.06.02 02:20

Hi,

Einfach den Key auf #0 im OnKeyPress setzen:

Quelltext
1:
2:
3:
4:
procedure TForm1.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
   Key := #0;
end;


tom

Code-Tags hinzugefügt. Tino


KeinePanik - Do 27.06.02 14:23

@arakis:

Das hab ich mir auch schon überlegt ! Ich dachte aber, das geht auch irgendwie anders, da ich mehrere SpinEdit's nutze und jetzt alles wieder anpassen müsste ... Also muss ich es wohl oder Übel so machen :cry:

@toms:

Guter Ansatz ... funzt aber nicht, denn sobald ich den Wert über die "Pfeile" ändere, wird im Editfeld der Komponente der cursor angezeigt und ich kann den Wert dann im Edit bearbeiten ... Trotzdem Danke


toms - Do 27.06.02 14:26

denn
Zitat:
sobald ich den Wert über die "Pfeile" ändere, wird im Editfeld der Komponente der cursor angezeigt


Stimmt.


Zitat:
und ich kann den Wert dann im Edit bearbeiten


Wie? Mit den Tasten kannst du ja nichts bearbeiten.

toms


KeinePanik - Do 27.06.02 14:48

toms hat folgendes geschrieben:

Mit den Tasten kannst du ja nichts bearbeiten.


Mit den "normalen" Tasten sicher nicht ... aber mit der "Delete"-Taste !!!

Probiers mal aus !!!


toms - Do 27.06.02 14:54

Na, dann halt noch OnKeyDown behandeln:



Quelltext
1:
2:
3:
4:
5:
procedure TForm1.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Key := 0;
end;


tom


KeinePanik - Do 27.06.02 15:00

ah ja !! ... jetzt :D (brauch ich doch nicht umzubauen *freu*)

Dank Dir !!!


KeinePanik - Fr 28.06.02 01:22

Nur "OnKeyDown" reicht übrigens ...