Então usa o componente da JEDI que resolve teu problema. Aliás, vou logo te passar o código abaixo prá não prolongar teu sofrimento (hahahaha):
Aparecer uma mensagem ao clicar no botão Help do Form: *type* TForm1 = *class*(TForm) *private* *procedure* WMNCLBUTTONDOWN(*var* Msg: TWMNCLButtonDown) ; *message* WM_NCLBUTTONDOWN; *procedure* WMNCLBUTTONUP(*var* Msg: TWMNCLButtonUp) ; *message* WM_NCLBUTTONUP; *end*; *var* Form1: TForm; *implementation */{$R *.dfm}/ *procedure* TForm1.WMNCLBUTTONDOWN(*var* Msg: TWMNCLButtonDown) ; *begin* *if* Msg.HitTest = HTHELP *then* Msg.Result := 0 *else* *inherited*; *end*; *procedure* TForm1.WMNCLBUTTONUP(*var* Msg: TWMNCLButtonUp) ; *begin* *if* Msg.HitTest = HTHELP *then* *begin* Msg.Result := 0; ShowMessage('O botão Help foi clicado!') ; *end* *else* *inherited*; *end*; Pronto problema resolvido. Era para ter dito antes, mas enrolei para facilitar o teu lado. Blz Onjahyr Leandro escreveu: > > Onjahyr... > > O componente funcionou legal, mas não resolveu meu problema. Isso por > quê eu queria executar > uma determinada ação minha quando clicassem na "?", e não chamar o > help. Por exemplo, mostrar > uma mensagem para o usuário. > > De qualquer forma, vou dar uma estudada no código do componente. > Talvez eu consiga implementar > algo através dele. > > Muito obrigado, > > Leandro > > ----- Original Message ----- > From: Onjahyr - GMAIL > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Sent: Friday, July 04, 2008 10:10 AM > Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma > ação > > Acabei de enviar o componente para seu e-mail... Se funcionar para o que > deseja dê um retorno! > > Blz. > > Leandro escreveu: > > > > Valeu cara... > > > > Eu queria usar o do form mesmo, mas se não tiver jeito, vou dar uma > > olhada nesse do Jedi. > > > > Muito obrigado. > > > > Leandro > > > > ----- Original Message ----- > > From: Onjahyr - GMAIL > > To: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > Sent: Friday, July 04, 2008 9:19 AM > > Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma > > ação > > > > Tenho outra alternativa. > > > > Procurei e não achei, mas eu tenho pois já usei. > > > > Outra alternativa: > > > > Instale os componentes da JEDI, são 333 componentes. > > Após instalação, copie o texto abaixo e cole no seu form: > > > > object JvCaptionButton1: TJvCaptionButton > > Alignment = taCenter > > ButtonHeight = 18 > > ButtonLeft = -31 > > ButtonTop = -2 > > ButtonWidth = 25 > > ShowHint = True > > ParentShowHint = False > > Enabled = False > > Font.Charset = ANSI_CHARSET > > Font.Color = clBlack > > Font.Height = -11 > > Font.Name = 'Tahoma' > > Font.Style = [fsBold] > > ImageIndex = 2 > > Images = ImageList1 > > Margin = 0 > > Spacing = 0 > > Left = 5 > > Top = 258 > > end > > > > Se os componetes estiverem instalados aparecerá o componente no seu > form. > > São tantos componentes que não achei onde ele tava, então, copiando o > > texto acima dá no mesmo e é logo direto. Este componente cria um botão > > na barra e tem uma opção no Object Inspector que cria o de Help, fechar, > > minimizar, etc... e tem o customizado que você vai dizer no evento > > onClique o que ele vai fazer. > > > > Se mesmo assim vc quiser os componentes para capturar o do próprio > > Formulário me dê um tempo para procutrar na minha estufa. (me avise). > > > > Blz. > > > > Leandro escreveu: > > > > > > Ótimo... muito obrigado... fico aguardando. > > > > > > Leandro > > > > > > -- > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > [As partes desta mensagem que não continham texto foram removidas] > >