Hola bigguntm.
Cita:
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 ?
Cita:
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.