tengo este codigo
Código Delphi
[-]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Edit1Exit(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '1' then
Edit2.Enabled := False
else
Edit2.Enabled := True;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
begin
key := #0;
close;
end;
if key = #13 then
begin
Perform(WM_NEXTDLGCTL,0,0);
key := #0;
end;
end;
end.
prueben darle enter a los campos...
el keypreview esta en true
se dan cuenta que cuando el primer edit es 1, el control no pasa al edit 3, tengo que darle 2 veces enter para que recien el edit 3 tenga el foco???
a alguien mas le sucede esto?
o estoy haciendo algo mal??
como se puede controlar los saltos dependiendo de el enabled de un campo?