Form aufrufen und anpassen

[DeddyH]

Wenn Du die Variable Form5 ansprichst, ist damit auch eine ganz bestimmte Instanz gemeint. Wie ist es so?

Delphi-Quellcode:

procedure TForm2.Button10Click(Sender: TObject);
var
  i: Integer;
begin
with TForm5.Create(Application.MainForm) do //self

begin
  for i := 1 to 1 do


  {Form5.}left:= Random(Screen.Width - Form5.Width);
  {Form5.}Top:= Random(Screen.Height - Form5.Height);
  {Form5.}caption:= Form2.Label22.caption;
  {Form5.}Name := Form2.Label22.caption;
  {Form5.}Show;

end;
end;

Oder besser unter Verzicht auf "With":

Delphi-Quellcode:

procedure TForm2.Button10Click(Sender: TObject);
var
  Frm: TForm5;
begin
  Frm := TForm5.Create(Application.MainForm);
  Frm.left:= Random(Screen.Width - Frm.Width);
  Frm.Top:= Random(Screen.Height - Frm.Height);
  Frm.caption:= Form2.Label22.caption;
  Frm.Name := Form2.Label22.caption;
  Frm.Show;
end;