TPanel/fi
From Lazarus wiki
Jump to navigationJump to search
│
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