Italian community of Lazarus and Free Pascal

Programmazione => LCL => Topic aperto da: lesar - Novembre 06, 2013, 11:58:41 am

Titolo: [RISOLTO]Rimuovere TToolButton a runtime
Inserito da: lesar - Novembre 06, 2013, 11:58:41 am

Salve dopo aver aggiunto a runtime dei pulsanti TToolButton a una TToolBar volevo anche rimuoverli ma incontro dei problemi.

Qualcuno ha la giusta porcedura sotto mano?

Lazarus 1.1.99pre-release
fpc 2.6.2
x86-64-linux-gtk 2

Titolo: Re:[RISOLTO]Rimuovere TToolButton a runtime
Inserito da: lesar - Novembre 06, 2013, 12:46:33 pm

procedure TWindowListFrame.CloseButton();
begin
  WindowList.ButtonList.Remove(FCurrentButton);
  WindowList.RemoveControl(FCurrentButton);
  FCurrentButton:=nil;
end;
dove WindowList: TToolBar;
FCurrentButton: TToolButton; creato dinamicamente e propieta di WindowList: TToolBar

In questo modo funziona e non è neppure necessario usare messaggi ma può essere eseguito direttamente in una azione collegata al bottone.

Saluti

Titolo: Re:[RISOLTO]Rimuovere TToolButton a runtime
Inserito da: xinyiman - Novembre 06, 2013, 02:26:48 pm

Grazie lesar per il tuo contributo  :)