Zitat von
Sebastian815:
Eine Varianble vom Typ TForm zu übergeben, habe ich bereits versucht, bin aber dran gescheitert. Vielleicht kann ja jemand ein Stück Code posten, wie ich das aufbauen muss.
Delphi-Quellcode:
procedure MyEditProc(frm: TForm);
var
i: integer;
c: TComponent;
begin
for i:=1 to 2 do
begin
c := frm.FindComponent('Edit'+IntToStr(i));
if (c <> nil) and (c is TEdit) then
TEdit(c).Clear;
end;
end;
die
unit in der diese procedure drin steht mußte dann in die deiner forms einbinden
und dann rufste die einfach so auf
Delphi-Quellcode:
//in Form1
MyEditProc(Form1);
//in Form2
MyEditProc(Form2);