Detecting Entry of Text

[gforrest]

Hi,

I have a form with several edit boxes on it. The first box will always appear with text in it. The rest will be used for input. Is there a simple way to detect whether or not someone has entered text into an edit box and moreover, which edit box?

Thanks.
Glenn

 

[Otto]

Hi!
I hope, this little code will help you...

function ...Form.CheckEdits(var FirstFilled: TEdit): Boolean;
var
I: SmallInt;
begin
Result:= False;
FirtFilled:= nil;
{ go throught on all components of the form }
for I:=0 to ComponentCount-1 do
{ checks the component is TEdit? }
if Components is TEdit then
{ if TEdit, checks the Text property }
if TEdit(Components).Text<>'' then begin
FirstFilled:= TEdit(Components);
Result:= True;
break;
end;
end;


Otto

 

[wodonnell]

Or, have a change event for each edit box.

Eg, in properties of edit2, doubleclick OnChange event.

Should create

Procedure TForm1.Edit2Change(...);
Begin

End;

Insert your processing in the procedure:

Procedure TForm1.Edit2Change(...);
Begin
ShowMessage('Edit2 changed');
End;

Repeat for all edit boxes. You could set a variable in each and then call another procedure or function to process depending on which box was used.