Klawiatura...

Jest forma a na niej panel. Na panelu są 2 edity.
W Edit1 jest text := 'adada';
Mam zmienną bledy (integer).
W drugim edicie ma być pisany przez usera 'adada',. Jak zrobic tak, że do edit2 wpisze się złą litere to bledy zwiększy sie o 1. i ten znak nie zostanie wpisany?

Może tak :
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
bledy : integer;
begin
If (key=VK_return) then
begin
If (not(Edit2.Text = 'adada')) then
begin
Edit2.Text := ('');
end;
end;
end;
end.

Może tak :
procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
bledy : integer;
begin
If (key=VK_return) then
begin
If (not(Edit2.Text = 'adada')) then
begin
Edit2.Text := ('');
end;
end;
end;
end.

Dzięki działa OK. [cya] [hurra]

P.S No i kolejne 70 postów do następnego stopna. :-) :-)

Player15 niemusiałeś cytować tej odpowiedzi, przecieŻ itak to była jedyna odpowiedź na twoje pytanie, co innego gdybyś chciał zacytować post który jest dwa posty wyżej :-)