Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Вниз

Почему не работает ??   Найти похожие ветки 

← →
smok_red   (2005-03-15 08:08) [0]

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

---

← →
begin...end ©   (2005-03-15 08:13) [1]

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

---

← →
smok_red   (2005-03-15 08:14) [2]

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

---

← →
begin...end ©   (2005-03-15 08:18) [3]

> smok_red   (15.03.05 8:14) [2]

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

---

← →
smok_red   (2005-03-15 08:23) [4]

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

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

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

---

← →
begin...end ©   (2005-03-15 08:25) [5]

> smok_red   (15.03.05 8:23) [4]

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

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

---

← →
smok_red   (2005-03-15 08:27) [6]

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

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

---

← →
begin...end ©   (2005-03-15 08:29) [7]

> 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:31) [8]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.037 c