Как очистить все окошки редактирования на форме?
01.01.2007
procedure ClearEdits;
var i : Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := '';
end;
01.01.2007
procedure ClearEdits;
var i : Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := '';
end;
|
Previous page:
Изменить вид каретки TEdit |
Top: DRKB |
Next page: Как заставить TEdit не пикать при нажатии недопустимых клавиш? |