Функция для обращения к однотипным объектам

Posted by Chas under Delphi, Пост-обзор

как написать функцию для изменения свойств однотипных объектов?
Например: Создать функцию для изменения ширины любой формы на 10. Т.е. вызываем функцию , передаем ей имя формы, и она изменяет ширину этой формы.

Пепел Феникса

procedure ChangeWidth(f:TForm);

begin

 f.Width:=f.Width+10;

end;

вызываем:
ChangeWidth(Form1);
ChangeWidth(Self);//в методах формы)

fate
если речь идет о чужих формах то

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;

тема на форуме

Похожие статьи

• Название функции как значение переменной
• Особенность функции animate (js)
• Смена текста при нажатии на кнопку
• Как узнать возвращается ли чему либо результат из функции?
• Функция с переменным количеством параметров
• Создать динамический массив внутри функции так, чтобы он потом не уничтожился
• Как функцией вернуть два значения?
• Передача массива в функцию и его измнение
• Как в php узнать время работы функции?
• Вызывать функцию через определённый промежуток времени