hi Delpifans

ist es in Tedit möglich ein prefix reinzuschreiben das man nicht löschen kann also z.b.
sowas: C:\> (und hier ist dann irgendein text)

hoffe ihr versteht was ich meine und könnt mir helfen :o


Moderiert von Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mo 22.01.2007 um 18:45

Also, mir fällt nur folgende Bastelei ein:
Ein Panel der passenden Größe nehmen mit (im OI einstellen):
Alignment: taLeftJustify
Bevelinner: bvLowered
BevelOuter: bvNone
Color: clWhite
evtl. noch BevelWidth: 2

Darin ein Edit-Feld so positionieren, daß links noch Platz für "C:\>" (Panel.Caption) ist.
BorderStyle: bsNone setzen.
Mit "Top" noch die vertikale SchriftPos justieren.

Wenn Du nur ein oder wenige Edits hast, ist das noch tragbar.

Hi kronoide,

nicht schön aber funktioniert einigermaßen:



Gruß

Saubäär

Das wird nich klappen, da man erst den Anfang löscht.
Meine Idee wäre, ab einer Bestimmten Cursorposition die Lösch-Taste zu verbieten (key:=#0)

jakobwenzel hat folgendes geschrieben:

Das wird nich klappen, da man erst den Anfang löscht. Meine Idee wäre, ab einer Bestimmten Cursorposition die Lösch-Taste zu verbieten (key:=#0)

War auch meine Idee. PRoblem daran ist allerdings, dass man damit immer noch Einfügen, Alles markieren und löschen, übers Kontextmenü löschen und so weiter könnte.

gruss

aim65 hat folgendes geschrieben:

Also, mir fällt nur folgende Bastelei ein: Ein Panel der passenden Größe nehmen mit (im OI einstellen): Alignment: taLeftJustify Bevelinner: bvLowered BevelOuter: bvNone Color: clWhite evtl. noch BevelWidth: 2 Darin ein Edit-Feld so positionieren, daß links noch Platz für "C:\>" (Panel.Caption) ist. BorderStyle: bsNone setzen. Mit "Top" noch die vertikale SchriftPos justieren. Wenn Du nur ein oder wenige Edits hast, ist das noch tragbar.

naja das ist eine möglichkeit aber nicht genau das was ich möchte,
ist das also nicht möglich oder habt ihr vielleicht eine edit komponente für delphi 7 die diese option hat??

Saubäär hat folgendes geschrieben:

Hi kronoide, nicht schön aber funktioniert einigermaßen: markieren Delphi-Quelltext     1: 2: 3: 4: 5: 6: 7: 8: 9: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var s: String; begin  if COPY(Edit1.Text, 0, 4) <> 'C:\>' then begin   INSERT('C:\>', s, 0);   Edit1.Text := s;   Edit1.SelStart := 4;   end; end; Gruß Saubäär

das geht schon in die richtige richtung aber man muss wie schon gesagt wurde den anfang zuerst löschen

Also ... nur so ne Idee :

sollt so vll. gehen

Fighter#1

Moderiert von matze: Code- durch Delphi-Tags ersetzt

Fighter#1 hat folgendes geschrieben:

Also ... nur so ne Idee : markieren Quelltext     1: 2: 3: If Key=(vk_Delete) Then    If Length(edit1.Text) <= 4 Then      Key:=0; sollt so vll. gehen Fighter#1

naja wenn ich es versuche zu kompilieren gibt er mir diese fehlermeldung

[Error] Unit1.pas(36): Incompatible types: 'Char' and 'Integer'

Erstens hab ichs nur so grad hier im FOrum geschrieben und zweitens tus mal ins OnKeyDown rein und nicht ins OnKeyPress

Und dann markier mal alles und drück auf "zurück"...

//edit: dein Beispiel funktioniert überhaupt nicht ^^

hab den code etwas modifiziert funktioniert super
danke

Ja gut. .. hab mich wohln bissel vertan
Also es müsste vk_Back heißen und ich muss noch n bissel erweitern ...

ACh ... das macht die Sache nur kompliziert. Warum stellst du nicht einfach ein Label davor?
Dann hast du keine Sorgen mehr!

Damit wär'n wir wieder am Anfang... hihihi.

Mein Vorschlag ist schnell umgesetzt und hätte den Vorteil, dass man das Ding auf der Form verschieben kann, ohne zu justieren. Außerdem sieht man nicht, daß es aus zwei Einheiten besteht. Bin halt Anhänger der Steinzeit und des KISS-Prinzips.

Alternativ könnte man ja vielleicht eine Komponente a la MaskEdit schreiben.
MfG Horst

www.tmssoftware.com

Dort mal nach TAdvEdit gucken. Wenn dein Projekt nur für dich privat ist kannst du die Komponenten sogar kostenlos benutzen.

Man kann auch ein Richedit nehmen und nur so gross machen, wie noetig. Dort ist es moeglich,
Text zu "dissabel"n:
Auswählen mit seltext und sellength und dann die Eigenschaft dissabled auf false setzen.

Du könntest vieleicht mal sagen für was das gut sein soll, wenn Du das Programm weitergeben willst wird Dir ein fester Pfad sowieso nichts nützen.