Edit Keypress Hakkinda;

[Raskolnikov]

meraba;

ben edit uzerinde "space" tusuna bastigimda _ karakterinin eklenmesini istiyorum bunu soyle yapiyorum

Keypress event

Kod: Tümünü seç

if key=#20 then
edit1.text:=edit1.text+'_';

ama boyle olunca mousescroll en basa donuyor ve yazmaya devam ettigimde editin ilk hanesinden basliyor.ilk yazdigim kelime geriye dusuyor.bunu nasil cozebilirim.SendKeys kullanmak istemiyorum.ve birde bosluk vermemmesini istiyorum sadece "_" bunu eklesin.Yada acaba replace mi yapsam boslukları "_" la degistirsem ama yapamadim.

[varyemez]

Kod: Tümünü seç

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#32 then key:=#95;
end;

[G.Arkas]

Kod: Tümünü seç

s := StrUtils.AnsiReplaceStr(edit1.Text,' ','_');