Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.09.2011, 23:08   #1
denskop
 
Регистрация: 07.02.2011
Сообщений: 7
Вопрос Написать функцию для обращения к однотипным объектам

Всем привет! У меня вопрос: как написать функцию для изменения свойств однотипных объектов?
Например: Создать функцию для изменения ширины любой формы на 10. Т.е. вызываем функцию , передаем ей имя формы, и она изменяет ширину этой формы.
denskop вне форума Ответить с цитированием
Старый 07.09.2011, 23:52   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
procedure ChangeWidth(f:TForm);
begin
 f.Width:=f.Width+10;
end;
вызываем:
ChangeWidth(Form1);
ChangeWidth(Self);//в методах формы)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 07.09.2011, 23:52   #3
fate
Форумчанин
 
Аватар для fate
 
Регистрация: 17.03.2009
Сообщений: 318
По умолчанию

если речь идет о чужих формах то
Код:
procedure ChangeWidth(const name:string);
var hw:HWND;
begin
hw:=FindWindow(nil,Pchar(name));
if hw<>0 then
SetWindowPos(hw,0,0,0,100,0,SWP_NOMOVE or SWP_NOOWNERZORDER);

end;
fate вне форума Ответить с цитированием
Старый 08.09.2011, 13:54   #4
denskop
 
Регистрация: 07.02.2011
Сообщений: 7
По умолчанию

Спасибо огромное!
denskop вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать функцию для перевода числа из десятичной системы в восьмиричную (Delphi) BLADIMIR Помощь студентам 32 06.09.2011 00:57
Сумма ряда с точностью Е=10-4, Сформировать обномерный массив, написать функцию для удаления строки... Dasha M Паскаль, Turbo Pascal, PascalABC.NET 1 06.05.2011 18:33
Как написать булеву функцию ? для radiobutton Droid Общие вопросы .NET 4 27.01.2011 09:21
Написать функцию arccos x и для заданных вещественных чисел x и y подсчитать (x/1+|x|)+arccos y/sqr(y)-1. "Chika bomb" Паскаль, Turbo Pascal, PascalABC.NET 3 14.12.2010 16:03
можно ли написать функцию для формул? Misha Pitersky Microsoft Office Excel 1 02.11.2006 09:48