TPanel/fi

│ Deutsch (de) │ English (en) │ suomi (fi) │ français (fr) │ 日本語 (ja) │ русский (ru) │

TPanel on komponentti, joka luo paneelin lomakkeelle. TPanel on TWinControlin jälkeläinen ja on saatavana komponenttipaletin Standard-välilehdeltä. TPanel voi toimia näkyvänä säiliönä muille komponenteille.

Esimerkki

Eräs tapa käyttää paneeleja on, kun kaikki siinä olevat komponentit näytetään tai piilotetaan. Yksittäisten komponenttien näyttämisen tai piilottamisen sijaan voit piilottaa ja näyttää paneelin ja kaikki siinä olevat komponentit yhdellä komennolla. Tässä esimerkissä käytetään seuraavia komponentteja: TButton ja TShape

Koodin ohjelmointi

• Luo uusi tyhjä GUI-sovellus lomakkeelle TForm1
• Luo lomakkeelle OnCreate-tapahtumakäsittelijä napsauttamalla lomaketta, käyttämällä komponenttimuokkaimen tapahtumat-välilehteä, valitsemalla OnCreate-tapahtuma ja napsauttamalla painiketta [...] tai kaksoisnapsauttamalla lomakkeen painiketta.
• Lisää seuraava ohjelmakoodi (Täydennä puuttuvat osat):

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    aPanel:TPanel;
    procedure aButtonClick(Sender: TObject);
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  aButton:TButton;

  aShape1,aShape2:TShape;
begin
  Caption :='Panel demo';
  aButton:=TButton.Create(Self);
  aButton.Parent:=Self;
  aButton.Caption:= 'Show/Hide';
  aPanel:=TPanel.Create(Self);
  aPanel.Parent:=Self;
  aPanel.Caption:='';
  aShape1:=TShape.Create(aPanel);
  aShape1.Parent:=aPanel;
  aShape1.Shape:=stStar;
  aShape1.Top := 5;
  aShape2:=TShape.Create(aPanel);
  aShape2.Parent:=aPanel;
  aShape2.Shape:=stStar;
  aShape2.Top := 5;
  aShape2.Left:=aShape1.Width+10;
  aPanel.Height:=aShape1.Height+10;
  aButton.Top:=aPanel.Height+10;
  aButton.OnClick:=@aButtonClick;
  Height := aButton.Top+aButton.Height+10;
end;

procedure TForm1.aButtonClick(Sender: TObject);  //the event handler for the button
begin
  if (Sender is TButton)
    then begin
      if aPanel.Visible then aPanel.Visible := false else aPanel.Visible := true;
    end;
end;
end.

Katso myös

• TPanel doc
• TBevel
• TFrame
• TFlowPanel