| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему не работает ?? [D6, D7, Win95/98, Win2k, WinXP]

smok_red ©   (2005-03-15 08:08:00) 

Здравствуйте!
Подскажите , Почему не работает ??
(Sender as TEdit).Clear;

---

Smok_red   (2005-03-15 08:31:00) [1]

Огромное спосибо!

---

begin...end   (2005-03-15 08:29:00) [2]

> smok_red   (15.03.05 8:27) [6]

> надо очистить все EDITы на форме

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
 C: TComponent;
begin
 for I := 0 to ComponentCount - 1 do
 begin
   C := Components[I];
   if C is TEdit then
     TEdit(C).Clear
 end
end

---

smok_red   (2005-03-15 08:27:00) [3]

надо очистить все EDITы на форме.

имена стандартные Edit1.....Edit10

---

begin...end   (2005-03-15 08:25:00) [4]

> smok_red   (15.03.05 8:23) [4]

Уточните: нужно очистить ВСЕ edit'ы, находящиеся на форме, или только 10?

Если второе - то какие у них имена?

---

smok_red   (2005-03-15 08:23:00) [5]

Может кто знает!

есть например 10 EDITов

как их все очистить???

---

begin...end   (2005-03-15 08:18:00) [6]

> smok_red   (15.03.05 8:14) [2]

А... Ну тогда потому, что внутри этого обработчика Sender - это нажатая кнопка.

---

smok_red   (2005-03-15 08:14:00) [7]

procedure TForm12.BtnDeleteClick(Sender: TObject);
begin
with Sender as TRzEdit do
begin
 Text := '&Ok';
end;
end;

---

begin...end   (2005-03-15 08:13:00) [8]

А куда Вы это вставили?

---

Наверх