Ayuda a crear edit con sus propias politicas

[ecfisa]

Hola bigguntm.

Empezado por bigguntm

,.. y cierro el form en btnExit(KillTask), me da una funcion no deseada(error)! ...

Realmente no logro entender claramente la situación, he probado el código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with MaskEdit1 do
  begin
    EditMask  := 'LLL-00000-000;0; ';
    CharCase  := ecUpperCase;
    Text      := '';
    MaxLength := 12;
  end;
  btnCalculate.Enabled:= False;
end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
   with Sender as TMaskEdit do
    if SelStart < 13 then
      btnCalculate.Enabled:= (SelStart = 12) and (key <> #8);
end;

Parece funcionar correctamente y no recibo ningún mensaje de error al cerrar el form, ¿ A que componente corresponde el evento que mencionas y cuál es el código existente en btnExit ?

Empezado por bigguntm

...
pero necesito que solo se pueda escribir desde el comienzo del edit, cuando haga click
...

Para ese punto podes hacer:

Código Delphi [-]
procedure TForm1.MaskEdit1Click(Sender: TObject);
begin
  (Sender as TMaskEdit).SelStart:= 0
end;

Saludos.