Form mit Komponenten wärend laufzeit erzeugen.

[dazar_t]

hallo

Ich schreibe ein chat programm indem es der user möglich ist beim flüstern ein seperates chat fenster zu öffnen.

Also eine form ist ja kein problem zu erzeugen

Delphi-Quellcode:

var
Förm: Tform;
begin
Förm := Tform.Create(Application);
with Förm do 
 begin
 Caption:= 'Flüster Fentser'
[..] //usw
 end;
Förm.Show;
end;

Nur müssten ja auch Koponenten (Lables, memos usw) auf dem Form zu sehen sein und daran scheitere ich ich habe es so versucht

Delphi-Quellcode:

var
Förm: Tform;
Label: TLabel;
begin
Förm := Tform.Create(Application);
with Förm do 
 begin
 Caption:= 'Flüster Fentser'
[..] //usw
 end;
Label := TLabel.Create(Förm);
Label.Caption:='Hallo';
Förm.Show;
Label.Show
end;

Doch dies funktioniere leider nicht.

[DeddyH]

Du musst noch den Parent setzen.

Delphi-Quellcode:

Label.Parent := Förm;

[dazar_t]

Dankeschön das wars ^^

Doch ein frage bleibt wie setzte ich nun eine preozedur dort rein (OnButton1.Click z.B.)

[SirThornberry]

wobei es leichter ist wenn du das Form einfach wie normal designst aber nicht automatisch erzeugen lässt.

[dazar_t]

Aber dann wäre das Problem das es ja 10000e solcher fenster im verlauf geben könnte wenn man z.B mit 1000 leuten Flüstert

Aber nur eins parat steht.

[DeddyH]

Du brauchst eine aufrufkompatible Methode. Diese kannst Du dann zuweisen.

[dazar_t]

Zitat:

Zitat von DeddyH

Du brauchst eine aufrufkompatible Methode. Diese kannst Du dann zuweisen.

Ohh dies verstehe ich jetzt leider nicht :shock:

[omata]

Zitat:

Zitat von SirThornberry

wobei es leichter ist wenn du das Form einfach wie normal designst aber nicht automatisch erzeugen lässt.

und da du es nicht automatisch erzeugst kannst du dir davon soviele Instanzen erzeugen wie du möchtest.

Gruss
Thorsten

[DeddyH]

Auch wenn ich den anderen beiden Recht gebe, hier noch mal etwas ausführlicher, was ich meinte:

Delphi-Quellcode:

type
  TFormBla = class(TForm)
  ...
  procedure TuWas(Sender: TObject);
  ...
end;

...

procedure TFormBla.TuWas(Sender: TObject);
begin
  if (Sender is TControl) then
    ShowMessage(TControl(Sender).Name);
end;

...

MeinButton.OnClick := TuWas;

[dazar_t]

Achsooo nun habe ich beide versionen verstanden danke an alle :D