Autor Beitrag
KeinePanik
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 131



BeitragVerfasst: Do 27.06.02 00:20 
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 344



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

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!
toms
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1099
Erhaltene Danke: 2



BeitragVerfasst: Do 27.06.02 02:20 
Hi,

Einfach den Key auf #0 im OnKeyPress setzen:
ausblenden Quelltext
1:
2:
3:
4:
procedure TForm1.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
   Key := #0;
end;


tom

Code-Tags hinzugefügt. Tino
KeinePanik Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 131



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1099
Erhaltene Danke: 2



BeitragVerfasst: 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 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 131



BeitragVerfasst: 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 !!!

_________________
Es gibt keine dummen Fragen ... Nur blöde Antworten !!!
toms
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1099
Erhaltene Danke: 2



BeitragVerfasst: Do 27.06.02 14:54 
Na, dann halt noch OnKeyDown behandeln:


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


tom
KeinePanik Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 131



BeitragVerfasst: Do 27.06.02 15:00 
ah ja !! ... jetzt :D (brauch ich doch nicht umzubauen *freu*)

Dank Dir !!!

_________________
Es gibt keine dummen Fragen ... Nur blöde Antworten !!!
KeinePanik Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 131



BeitragVerfasst: Fr 28.06.02 01:22 
Nur "OnKeyDown" reicht übrigens ...

_________________
Es gibt keine dummen Fragen ... Nur blöde Antworten !!!