Почему не работает ??

← →
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

> 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]

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

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