Frame aus eigener Prozedur aufrufen

[nahpets]

Wie der Name des Frames ist, den Du der Prozedur übergibst, ist innerhalb der Prozedure "wurscht".
Alle übergebenen Frames werden innerhalb der Prozedure mit myFrame angesprochen.

Nehmen wir an, Du hast mehrere Frames, die da heißen:FrameA, FrameB, ..., FrameH alle kannst Du der Prozedure übergeben, eben mit:

Delphi-Quellcode:

CNCCommandBox(meineVariabel,FrameA);
CNCCommandBox(meineVariabel,FrameB);
...
CNCCommandBox(meineVariabel,FrameH);

In der Prozedure kannst Du sie alle über MyFrame ansprechen. Die Prozedure könntest Du z. B. so erweitern:

Delphi-Quellcode:

procedure CNCCommandBox(H:String;myFrame:TFrame);
begin
  if (H ='A') then begin
    myFrame.visible:=true;
    myFrame.Left:=1;
    myFrame.Top:=2;
  end else
  if (H ='B') then begin
    myFrame.visible:=false;
    myFrame.Left:=1;
    myFrame.Top:=2;
  end else
  if (H ='H') then begin
    myFrame.visible:=true;
    myFrame.Left:=192;
    myFrame.Top:=232;
  end;
end;