Всем привет!

В ф-ю нужно передать объект любого типа (TEdit, integer, real, TForm и т.д)
1) Какого типа должени быть вх.параметр ?

2) В функции как-то нужно отделить тип от класса, т.е запрограммировать такую логику
IF (вх.параметр от TWinControl) then
действие0
else if (вх.параметр - обычная переменная, напр-р integer или string) then
begin
// Определяем тип этой переменной, например через VarType
if тип=1 then действие1
if тип=2 then действие3
...
if тип=N then действиеN
end;

=С уважением, AlexV.

procedure my_procedure(sender : tobject);
begin
if sender is TWinControl then showmessage(inttostr(Sender as Twincontrol).top));
if sender is TEdit then showmessage((Sender as TEdit).text);
end;

Лажа какая-то, уж извените Зачем передовать TForm как параметр? Параметры передаются для того, что бы процедура или функция могла выполнить заложенные в нее действия или расчеты, другими словами параметры - это данные необходимые для выполнения программой заложенных в нее расчетов. Как можно использовать саму форму или едит? Если тебе нужны данные передовай, а integer или real не важно, а если тебе как параметр надо передать имя Sender'а то передовай как строку

Цитата

Лажа какая-то, уж извените  Зачем передовать TForm как параметр? Параметры передаются для того, что бы процедура или функция могла выполнить заложенные в нее действия или расчеты, другими словами параметры - это данные необходимые для выполнения программой заложенных в нее расчетов. Как можно использовать саму форму или едит? Если тебе нужны данные передовай, а integer или real не важно, а если тебе как параметр надо передать имя Sender'а то передовай как строку

Вот тебе пример из жизни, точнее из моей библиотеки:

Код

procedure En (x :array of TComponent; Enable :Boolean; ChangeColor :Boolean =False); // Устанавливает значение свойства Enabled у списка компонент. Если // ChangeColor равно True то компонентам будет еще установлен и цвет, //  clWindow при Enable True и clBtnFace при Enable False. const ca :array [boolean] of tColor = (clBtnFace, clWindow);  procedure EnComp(C : TComponent; Enable : Boolean);  begin    if      C is TControl  then begin      TControl(C).Enabled := Enable;      if ChangeColor then  tHackWinControl(C).Color := ca[Enable];      end    else if C is TMenuItem then      TMenuItem(C).Enabled := Enable    else if C is TAction then      TAction(C).Enabled := Enable     ;  end; var i : Integer; begin   for i := 0 to High(X) do EnComp(X[i],Enable); end;

TForm здесь не присутствует, однако, бывают случаи, когда требуются и универсальные манипуляции и с TForm.

Cashey самый жизненный пример Sender:TObject. Было бы весело, если бы передавалось имя сендера (это вообще не всегда возможно!). :-D

Можно попробовать использовать перегрузку:

Цитата

procedure abc (p : TForm); overload; begin   p.Caption := 'Testing...'; end; procedure abc (p : TEdit); overload; begin   p.Text := 'Hello'; end; procedure abc (p : TWinControl); overload; begin   p.Hide; end; procedure abc (p : real); overload; begin   ... end; procedure abc (p : integer); overload; begin   ... end;

Например, если сделать вызов abc(StringGrid1), то вызовется вариант abc(p : TWinControl);

Перегрузка катит только когда тип компонента известен уже на этапе компиляции.