suipack enter!!

[ScRiPTeR]

s.a
arkadaslar suipackle yapilan formlarda edit kutucuklarini enter tusu ile gecmek istiyorum.
normal formlarda bunu yaparken suipack bileseninde yapamiyorum. bu konuda kod yazarsaniz veya gerekli bi ayar varsa soyelermisiniz.

iyi calismalar...

normal formda kullandigim kod:
if key=#13 then
begin
if activecontrol is TDBEdit then
begin
key:=#0;
perform(wm_nextdlgctl,0,0);
end;
end;
bu kodlari suipackli forma yazdigimda calismiyor. zaten suipackde keypress ozelligi yok.

[ScRiPTeR]

arkadaslar aradigim sey gozden kacan bir yer. buldum ve calisti.
if key=#13 then
begin
if activecontrol is TDBEdit then
begin
key:=#0;
perform(wm_nextdlgctl,0,0);

buradaki TDBedit olan kismi tedit olarak degistirdim. sorunum kalmadi.

iyi calismalar...