Newsgroup: it.comp.lang.delphi
Titolo: AAA cercasi bottone

Stavo cercando in D7 un bottone particolare. In sostanza deve essere un
bottoncino con una icona cliccabile che lancia una certa azione, ma che di
fianco ci sia una freccettina che mi permetta di scegliere tra altre
possibili azioni in alternativa.
Esempio:
devo fare tre tipi di stampe:
- stampa di immagine
- stampa di testo
- stampa di testo + immagine
di default (ossia quando clicco sull'icona) deve partire la stampa della
sola immagine altrimenti per scegliere le altre due azioni devo cliccare
sulla freccettina a fianco dell'icona.
Spero di essere stato sufficientemente chiaro
Saluti

Ho visto un impiego simile ma non era un bottone, bensi' un componente di tipo
Menu'. Cambiando lo stile opportunamente, si otteneva il menu' tipo bottone da
schiacciare, in corrispondenza del quale si aprivano i sottomenu'.
Ciao
-- 
Morde. 
morde[at]programmer[.]net

 wrote:
forse qualcosa del genere:
Unit1.dfm
object Form1: TForm1
  Left = 192
  Top = 114
  Width = 870
  Height = 640
  HorzScrollBar.Tracking = True
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 862
    Height = 29
    Caption = 'ToolBar1'
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = 'ToolButton1'
      DropdownMenu = PopupMenu1
      Grouped = True
      ImageIndex = 0
      Style = tbsDropDown
      OnClick = ToolButton1Click
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 120
    Top = 152
    object stampadiimmagine1: TMenuItem
      Caption = 'stampa di immagine'
      OnClick = stampadiimmagine1Click
    end
    object stampaditesto1: TMenuItem
      Caption = 'stampa di testo'
      OnClick = stampaditesto1Click
    end
    object stampaditestoimmagine1: TMenuItem
      Caption = 'stampa di testo + immagine'
      OnClick = stampaditestoimmagine1Click
    end
  end
end
 
Unit1.pas:
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  ComCtrls, ToolWin, Menus;
type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    PopupMenu1: TPopupMenu;
    stampadiimmagine1: TMenuItem;
    stampaditesto1: TMenuItem;
    stampaditestoimmagine1: TMenuItem;
    procedure ToolButton1Click(Sender: TObject);
    procedure stampadiimmagine1Click(Sender: TObject);
    procedure stampaditesto1Click(Sender: TObject);
    procedure stampaditestoimmagine1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  showmessage ( 'stampa di immagine' );
end;
procedure TForm1.stampadiimmagine1Click(Sender: TObject);
begin
  showmessage ( 'stampa di immagine' );
end;
procedure TForm1.stampaditesto1Click(Sender: TObject);
begin
  showmessage ( 'stampa di testo' );
end;
procedure TForm1.stampaditestoimmagine1Click(Sender: TObject);
begin
  showmessage ( 'stampa di testo+immagine' );
end;
end.
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 ha scritto nel messaggio
news:b71c1...@razziatore.no-ip.com...


 ha scritto nel messaggio
news:b71c1...@razziatore.no-ip.com...


 Saluti
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red

 Dove trovo l'oggetto ToolButton
Il componente ToolButton accetta (o fatto un pò di prove ed in più l'Help di
delphi 6 mi conferma)
di essere posizionato (tramite la sua proprietà parent) solo su una TToolbar
sta (in Delphi 6) nella palette
Win32 per applicazioni VCL mentre appare nella palette "common control" per
CLX
diversamente non puoi (credo) usare il TToolButton
tra l'altro la toolBar ha, a disign time, un menù contestuale
con voci relative proprio alla creazione dei vari toolButton
a Run Time ho provato a creare dei tToolButton ma riasco
ad assegnarli (parent) solo ad una TToolBar
se li assegno ad un altro TComponent come un TForm od un TPanel
non mi genera eccezzioni ma non lo visualizza
ciao Max

inserito sulla toolbar? 
Sinceramente ho dovuto penare un po' per trovarlo non mi ricordavo il
componete ma mi ricordavo di averlo usato in un ide java che avevo
fatto per l'esame di maturita percui sapevo che eisteva... 
dopo un po di tentativi mi sono ricordato che era il ToolButton che
semplicemente si inserisce nella toolbar usando il mouse ( ma no ) 
e cliccando sul menu contestuale alla voce ( nattimo che apro delphi,
non lo conosco ancora a memoria per fortua ma poco ci manca) 
 
anzi... parto da una form bianca cosi ti dico tutti i passi... perke
si deve fare qualke legero settagio che forse non avrai visto...
allora form bianca ( o dovrei dire clBtnFace? ) dalla pagina  "Win32"
del PegeControl dei componeti c'č il componente "ToolBar" cliccate due
volte e apparia sulla form ( magia? ) ora dopo aver ridimenzionato (
se c'č ne la nessecita click destro ( sul toolbar appena creato ) per
far apparire il menu contestuale e cliccare sulla voce "New Button" e
sempre per magia apparira un bottone... ma orrore e uno squalido
"SpeedButton" ( menu Additional ) niente paura si rimedia subito
cambiando la proprieta "Style" del bottone da "tbsButton" a
"tbsDropDown" a questo punto creiamo un "popupmenu" ( pagina
"Standard" ) e likiamoli ( :D ) selezionado il menu appena creato dal
menu a tendina della proprieta "Dropdownmenu" del bottone
ora basta creare il menu ( doppio click sul "popupmenu" definendo i
singoli item ) e creare 4 ( o + ma a te ne servono solo 4 ) action
ancora una volta basta cliccare con insistenza sulle voci del menu
appena creato e sul bottone
