Toon posts:

Delphi: frame op een panel plaatsen??

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb een formulier met daarop een panel.
Tevens heb ik een frame gemaakt.
Dat frame wil ik in het formulier (liefst op het panel) laden.
Ik krijg het echter niet voor elkaar.

Ik heb hetvolgende geprobeerd:

Uses blahblah, frame1;

var
blaat : TFrame1;

in formcreate;

blaat.create(Panel1);

hierop krijg ik echter een error, terwijl ik denk dat de parent nu juist panel1 wordt.

Op google en in de borland help heb ik niets nuttigs kunnen vinden

  • Delpix
  • Registratie: September 2001
  • Laatst online: 27-11-2021

Delpix

Alanis Fan

Delphi:
1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TBlaat.Create(Panel1) do
  begin
    Parent := Panel1;
   // enz enz
  end;
end;

...beter bekend als AMFan


  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Voor de volledigheid:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TFormMain.ShowFrame(InstanceClass: TCustomFrameClass);
var
  Frame: TFrame;
begin
  if PanelFrame.ComponentCount > 0 then
  begin
    if TComponent(PanelFrame.Components[0]).ClassType = InstanceClass then
      //Het frame dat zou worden gemaakt is al aanwezig in de panel
      Exit
    else
    begin
      //Frame is een andere als in de panel, vorige vrijgeven
      TObject(PanelFrame.Components[0]).Free;
    end;
  end;

  Frame := TFrame(InstanceClass.NewInstance).Create(PanelFrame);
  LockWindowUpdate(Handle);
  try
    Frame.DisableAlign;
    Frame.Parent := PanelFrame;
    Frame.Align := alClient;
    Frame.EnableAlign;
  finally
    LockWindowUpdate(0);
  end;
end;

"The shell stopped unexpectedly and Explorer.exe was restarted."