[Delphi] OnKeyDown w Memo

0

Zrobilem sobie obsluge wcisniecia klawisza Enter w TMemo i niby dziala ale nie do konca :). Warunek dziala dobrze, tylko nie podoba mi sie jedno - kursor i tak przeskakuje w dol :(. Kieeeeeeeedys pamietam ktos z forum mi zapodal dosc profesjonalnie wygladajacy kod do takiego zdarzenia w TEdit (eliminacja dzwieku bledu), ale to bylo dawno i nieprawda ;), a dokladnie to jeszcze na starym enginie forum i chyba tamte posty poszly sie kochac :).

0

if (Key = #13) AND (Ent.Checked = True) then begin
Key:=#0;
InitializeSuperFunction(str);
end;

;)

0

if (Key = #13) AND (Ent.Checked = True) then begin
Key:=#0;
InitializeSuperFunction(str);
end;

a mi to nie działa ;-(

np. Undeclared Identifier: InitializeSuperFunction

0

dzieki Squell [hurra]

a mi to nie działa ;-(

np. Undeclared Identifier: InitializeSuperFunction

to jakis zart? to ci nie moze dzialac, chyba ze sobie podpasisz nazwy. gadalismy na tlenie i zapodalem moj kod, ktorego czesc widzisz tutaj.

0

if (Key = #13) AND (Ent.Checked = True) then begin
Key:=#0;
InitializeSuperFunction(str);
end;

a mi to nie działa ;-(

np. Undeclared Identifier: InitializeSuperFunction

onKeyPress !!! ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1