valeu... pelo sofrimento... rsrsrs :)
t+
----- Original Message -----
From: Onjahyr - GMAIL
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 04, 2008 4:22 PM
Subject: Re: [delphi-br] Form com BorderIcons = biHelp executar alguma ação
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]
>
>
[As partes desta mensagem que não continham texto foram removidas]
