Tryk på enter

Tags:    delphi

hvordan kan jeg lave det så når et edit felt er aktivt kan jeg trykke på enter og proceduren til en knap bliver aktiveret?



6 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
if (key = #13) then
begin
//kode her
end;



Windows er verdens beste trojan!



hvordan kan jeg lave det så når et edit felt er aktivt kan jeg trykke på enter og proceduren til en knap bliver aktiveret?


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
ShowMessage('Hei! - ' + Edit1.Text + ' - !ieH');
Key := #0;
end;
end;

Mvh
DiZpel



Ment som svar!

[Redigeret d. 03/03-04 20:22:09 af Jonas (Decko)]



Godt svaret!!!

Men er den første af den øverste eks. ikke fin nok i stedet for den lidt større Di.... har forslået

[Redigeret d. 03/03-04 21:01:34 af Theis]



Bruk Key := #0; for å hindre et "beep" hvis du ikke visste det. :)

Mvh
DiZpel



Godt svaret!!!

Men er den første af den øverste eks. ikke fin nok i stedet for den lidt større Di.... har forslået

[Redigeret d. 03/03-04 21:01:34 af Theis]

Øhh.. :S? Dizpel giver bare et helt kode eksempel på hvordan det laves. Øverste indlæg giver "nøgle" linjen, så jeg vil ikke sige at Dizpel's er større! Det eneste han har tilføjet er den linje, som gør at man undgå biip! :)
Hilsen CHadi
Mit lykketal er 2959



t