Re: [delphi-br] Form com BorderIcon s = biHelp executar alguma ação
Eu tenho um componente que manipula isso, e vem com um DEMO. Vou mandar para seu e-mail. Blz. Leandro escreveu: Pessoal, Alguém sabe como eu posso executar uma determinada ação ao clicar no botão de interrogação que aparece quando eu coloco BorderIcons = biHelp? Obrigado, Leandro [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form com BorderIcon s = 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 --
Re: [delphi-br] Form com BorderIcon s = 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 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]
Re: [delphi-br] Form com BorderIcon s = 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]
