Form zur Laufzeit, FormShow

[Sharky]

Hai LoL,

Zitat von LoL:

Code:

procedure Tfrm_meinForm.FormShow(Sender: TObject);
begin
  tc_graphen.Height := [color=red]frm_meinForm[/color].Height - 40; 
end;

wo kommt denn frm_meinForm her?

Wenn tc_graphen so hoch wie die Form sein soll auf der dies liegt kannst Du es so mache:

Delphi-Quellcode:

procedure Tfrm_meinForm.FormShow(Sender: TObject);
begin
  tc_graphen.Height := self.Height - 40; 
end;