Znaki '

Co zrobić żeby po wpiasaniu ''

sprawdz kod klawisza '&lt" (ascii)
a potem w onkeydown jakiegoś memo wpisz:
if key=#283098(kod ascii &gt){(albo if key=Pchar('&lt')????)} then
memo1.add('&gt')--Spin
Delphi - Lets make Windows better....

Jesli ma byc Key = #243 to powinno to byc w OnKeyPress, i nie ma takie procedury jak Memo.Add :)

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#60 then
memo1.Text := Memo1.Text + '&gt';
end;--Pozdrawiam {hello}
Tomasz K.

No takowej Memo.Add nie ma ale jest Memo.Lines.Add(''); :-)

LeWy napisał:
No takowej Memo.Add nie ma ale jest Memo.Lines.Add(''); :-)

zjadłem to lines {wstyd} {wstyd} --Spin
Delphi - Lets make Windows better....

w komponentach Memo, Edit itp. itd. w procedurze OnKeyPress piszemy:

if Key = '';

i to wystarcza :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Ale takie rozwiązanie chyba wstawi tylko '&gt' zamiast '&lt&gt'?---------------------------
Delphi 6

Pozdrówka

moze zle zrozumialem :)
okaze sie jak przyjdzie pan daro ---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Wpisz w onkeypress:

if key=#60 then
begin

memo.seltext:='&gt';
memo.selstart:=memo.selstart-1;

end;

i to wszystko----
pozdrowienia wmms