Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Dec 2002
    Messaggi
    1,311

    [delphi] creare toolbar con relativi pulsanti a runtime

    Ciao a tutti.

    ho inserito un componente PageControl nel mio programma e in fase di runtime creo in questo componente n sheet (a secondo del risultato di una query).

    adesso, sempre a runtime, in ogni di questa sheet avrei bisogno di inserire una toolbar e nella toolbar n pulsanti.

    non sono riuscito a capire come fare....

    le sheet le creo cosi:

    codice:
       DM.IBQueryTMP.First;
       while not DM.IBQueryTMP.Eof do
         with TcxTabSheet.Create(Self) do
         begin
          PageControl := cxPageControl1;
          Caption := DM.IBQueryTMP.FieldByName('item').AsString;
          DM.IBQueryTMP.Next;
         end;
    mi date un aiuto?

    grazie

  2. #2
    Utente di HTML.it
    Registrato dal
    Apr 2003
    Messaggi
    46
    private
    { Private declarations }
    ToolBar: TToolBar;
    ToolButton: TToolButton;
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    // creai toolbar
    ToolBar := TToolBar.Create(Nil);
    TabSheet1.InsertControl(ToolBar);

    // crei un pulsante dentro la toolbar
    ToolButton := TToolButton.Create(ToolBar);
    ToolButton.Parent := ToolBar;
    end;

  3. #3
    Utente di HTML.it
    Registrato dal
    Dec 2002
    Messaggi
    1,311
    grazie

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.