[Delphi] text po Enterze

0

Załóżmy, że masz komponent Edit i chciałbyś, aby po naciśnięciu klawisza Enter wykonała się jakaś procedura. Taki kod musisz wpisać w procedurze OnKeyPress:

if Key = #13 then
NazwaProcedury;
Key := #0;

tekst z poradnika Adama.

Wpisalem jak tzreba i wyskakuje blad ze [i]Not enough parameters[/i]
procedure TMainForm.RichEditKeyPress(Sender: TObject; var Key: Char);

begin
if Key = #13 then
DodajNrWiersza;
Key := #0;
end;

0

Przede wszystkim wez kod w blok begin i end:

if Key = #13 then
begin
{ cos tam }
Key := #0;
end;

I gdzie sie pojawia ten blad?

0

Może w procedurze DodajNrWiersza zadeklarowałeś jakieś parametry ??? - sprawdź :-)

0

if Key = #13 then
NazwaProcedury;
Key := #0;

if (Key = #13) then
NazwaProcedury;

0

nie sorry juz wszystko dorbze :(

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