Código Delphi [-] procedure TForm1.EditEnter(Sender: TObject); begin with TEdit(Sender) do ShowMessage(Name + #10#13 + Text + #10#13 + ClassName + #10#13 + IntToStr(Left) + #10#13 + // ... ); end;
procedure TForm1.EditEnter(Sender: TObject); begin with TEdit(Sender) do ShowMessage(Name + #10#13 + Text + #10#13 + ClassName + #10#13 + IntToStr(Left) + #10#13 + // ... ); end;