inhalt aus edit feld kopieren

[E-Razor]

Hi leute
guckt euch bitte mal diese kleine projekt an.
Das problem ( vielmehr Phänomen ) ist: sobald ich die 5 in der kombobox auswähle erscheint das was erscheinen soll in der edit. Aber wenn ich dann auf kopieren klicke verändert sich der text der edit aufeinmal.
das passiert nicht wenn der text der kopiert werden soll klein geschrieben ist.
Woran liegt das???

[Christian Seehase]

Moin E-Razor,

das Du ein Problem hast, ist wohl als wahrscheinlich anzusehen, sonst hättest Du vermutlich keinen Thread eröffnet.
Ändere bitte umgehend den Titel Deines Threads in einen aussagekräftigen.
Danke.

[Nalincah]

Ich würd das so machen mit der auswahl:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: Edit1.text := 'WTQ2UBFFTVKB89' ;
    1: Edit1.text := 'fnl5m901q6sfj1' ;
    2: Edit1.text := 'fnpk3u01bho2h1' ;
    3: Edit1.text := 'fncfbh014z3jy1' ;
    4: Edit1.text := 'WN64UBFFVVZFO9' ;
  end
end;

Itemindex ist der ausgewählte eintrag, wobei zu beachten ist das der erste eintag den wert 0 hat
dann kannst du für jeden wert ein best. ereignis starten

[himitsu]

Die in deinem Edit angezeigten Zeichenfolgen sind länger als das Edit selbst.

Wenn vor dem kopieren alles markiert wird, verschiebt sich nur der angezeigte Bereich, so das der Cursor angezeigt wird. (Der ist nach dem markieren am Ende der Zeichenfolge.)
Und da vor dem markieren der Cursor am Anfang der Zeichenfolge war und daher auch der Anfang angezeigt wurde, sieht es so aus als wenn sich der Text ändert.

[Nalincah]

Frag mich bitte nicht warum aber so geht es:

Mach noch ein edit rein und stell Visible auf false
dann schreibst du anstatt

Delphi-Quellcode:

edit1.SelectAll;
edit1.CopyToClipboard;

das hier:

Delphi-Quellcode:

Edit2.Text := Edit1.Text;
edit2.SelectAll;
edit2.CopyToClipboard;

bei mir geht das

[Nalincah]

@himitsu: Genau das wollte ich grad auch schreiben...

[himitsu]

Ist doch klar.
siehe meine vorherige Antwort.
Da du hier nichts markierst, verschiebt sich auch nichts.

PS.
Wenn du jetzt noch General2003's Antwort einbaust, hast du noch einen Fehler weniger.
if combobox1.Text = '21' then ...
Oder ist dir noch nicht aufgefallen, das sich der 2. Eintrag ("2") nicht auswählen lässt.

@General2003 nicht traurig sein, du hasst ja den anderen Fehler behoben

[Christian Seehase]

Moin E-Razor,

funktioniert doch einwandfrei, so wie Du es hast.
Nur wie Himitsu schon schrieb, ist Dein Edit Feld zu kurz um den ganzen String direkt anzeigen zu können.

[E-Razor]

oh man is dat peinlich für mich.
klar jungs
jetzt wo ihr dat sagt seh ich auch das dat Edit Feld einfach nur zu klein ist*zooooooooooooot* *ärger*

Tut mir leid dass ich eure kostbare zeit geraubt hab. 8)

[himitsu]

Ein bissl Ablenkung tut gut.
Und die kleine Fehlersuche kam mir da gelegen.