Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.01;
Скачать: CL | DM;

Вниз

передача компонента в функцию   Найти похожие ветки 

 
PlaZZma ©   (2003-08-16 02:12) [0]

Объясните, если можно, как мне вытворить вот такое безобразие:
У меня на форме есть несколько TEdit"ов. Нужно сделать процедуру, которая по-надобности будет исправлять в одном из них текст.
Как передать в неё какой-либо TEdit, чтобы получилось нечто вроде:
procedure TfmTask.EditText(var Prampam : TEdit {или как-то так, не знаю});
begin
Prampam.Text := "Здесь был Вася :)";
end;


 
Е-Моё имя ©   (2003-08-16 02:16) [1]

procedure TfmTask.EditText(Prampam : TEdit);
begin
Prampam.Text := "Здесь был Вася :)";
end;


 
Pindos ©   (2003-08-16 02:24) [2]

ну EditText(var Prampam : TEdit {или как-то так, не знаю});
var не обязателен,
а процедура так ибудет текст испралять, если её вызвать из какой то другой процедуры
Sample:
procedure TfnTask.button1Click(Sender:Tobject);
var i:integer;
begin
for i:=1 to 5 do
edittext(findcomponent("Edit"+inttostr(i)));
end;


 
PlaZZma ©   (2003-08-16 02:26) [3]

Осспасиба ребяты! помогли! Век не забуду!



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

Текущий архив: 2003.09.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-1373
Question
2003-08-16 18:03
2003.09.01
Указателю на динамический массив значения после GetMem


1-1482
gedd
2003-08-18 13:21
2003.09.01
Подскажите какой gauge лучше использовать?


14-1626
Layner
2003-08-13 14:11
2003.09.01
Кто защищался от W32.Blaster.Worm, и скачал заплату с сайта


14-1623
wl
2003-08-13 14:41
2003.09.01
Опять форум атаковали....


14-1556
Marser
2003-08-12 00:45
2003.09.01
Именинники 12 августа