Foro: Varios
21-05-2012
|
|
Respuestas: 34
Visitas: 8.503
Yo compartiría el evento OnKeyPress de los 6...
Yo compartiría el evento OnKeyPress de los 6 edit, para evitar las comprobaciones.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9','+','-']) then
...
|
|
Foro: Lazarus, FreePascal, Kylix, etc.
20-05-2012
|
|
Respuestas: 1
Visitas: 1.659
|
|
Foro: SQL
20-05-2012
|
|
Respuestas: 9
Visitas: 8.456
|
|
Foro: Varios
20-05-2012
|
|
Respuestas: 3
Visitas: 3.901
A falta de ver el código exacto que te da el...
A falta de ver el código exacto que te da el error, lo que te está marcando es que has terminado una línea con un punto, cuando en Pascal el indicativo de fin es punto y coma ;
Un Saludo.
|
|
Foro: La Taberna
19-05-2012
|
|
Respuestas: 11
Visitas: 6.065
|
|
Foro: La Taberna
19-05-2012
|
|
Respuestas: 27
Visitas: 11.242
|
|
Foro: La Taberna
19-05-2012
|
|
Respuestas: 21
Visitas: 10.005
|
|
Foro: La Taberna
18-05-2012
|
|
Respuestas: 42
Visitas: 15.506
|
|
Foro: Impresión
18-05-2012
|
|
Respuestas: 7
Visitas: 12.661
|
|
Foro: Varios
17-05-2012
|
|
Respuestas: 4
Visitas: 3.697
unit Unit1;
interface
uses
Windows, Messages,...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
|
|
Foro: Debates
16-05-2012
|
|
Respuestas: 5
Visitas: 1.459
|
|
Foro: La Taberna
15-05-2012
|
|
Respuestas: 10
Visitas: 5.765
|
|
Foro: Varios
15-05-2012
|
|
Respuestas: 4
Visitas: 4.532
|
|
Foro: Varios
14-05-2012
|
|
Respuestas: 4
Visitas: 4.532
|
|
Foro: Varios
11-05-2012
|
|
Respuestas: 7
Visitas: 4.806
Yo utilizo StringReplace:
procedure...
Yo utilizo StringReplace:
procedure TfrBuscaFacturas.edImporteExit(Sender: TObject);
begin
Try
nCant:=StrToFloat(edImporte.text);
sCant:=StringReplace(EdImporte.Text,',','.',[rfReplaceAll]);
...
|
|
Foro: OOP
11-05-2012
|
|
Respuestas: 20
Visitas: 5.003
Símplemente era una prueba, lógicamente tienes...
Símplemente era una prueba, lógicamente tienes que modificar el edit1 para que funcione. La idea final con la que hice la prueba era ver si enviándole un TAB al componente edit1 funcionaba Edit2, el...
|
|
Foro: La Taberna
11-05-2012
|
|
Respuestas: 11
Visitas: 5.268
|
|
Foro: OOP
10-05-2012
|
|
Respuestas: 20
Visitas: 5.003
También funciona saliendo con Enter, con...
También funciona saliendo con Enter, con KeyPreview activado y el siguiente código para habilitar Enter por Tab.
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If (key = #13)...
|
|
Foro: OOP
10-05-2012
|
|
Respuestas: 20
Visitas: 5.003
Curiosamente, con este código de prueba en el...
Curiosamente, con este código de prueba en el evento OnChange funciona si éste último se produce.
procedure TForm1.Edit1Change(Sender: TObject);
begin
Keybd_Event(Vk_Tab,0,0,0);
end;
Un Saludo.
|
|
Foro: OOP
10-05-2012
|
|
Respuestas: 20
Visitas: 5.003
Si en el OnExit del Edit1 pones el código que...
Si en el OnExit del Edit1 pones el código que dices, por cierto Setfocus sobraría, te tiene que funcionar con el ratón y con la tecla TAb, por cierto acabo de hacer la prueba.
Revisa el código no...
|
|
Foro: La Taberna
08-05-2012
|
|
Respuestas: 16
Visitas: 8.048
|
|
Foro: La Taberna
06-05-2012
|
|
Respuestas: 8
Visitas: 4.799
|
|
Foro: La Taberna
05-05-2012
|
|
Respuestas: 2
Visitas: 6.267
|
|
Foro: Varios
04-05-2012
|
|
Respuestas: 5
Visitas: 2.157
|
|
Foro: Varios
04-05-2012
|
|
Respuestas: 4
Visitas: 4.312
|
