Delphi

Olá a todos.
to iniciando com delphi agora, to fazendo o meu 1° Launcher para servidores de MuOnline.
coloquei o layout no delphi, até ai tudo bem.
querendo dar um efeito a mais no meu projeto.
queria saber como fasso para usar o events, onClick, onDragOver em um Timage.

se alguem puder me ajuda, agredeço

esta querendo fazer rollover?

Qual IDE você está utilizando?

IDE = programa de desenvolvimento, por exemplo: RAD Studio, lazarus, etc

Citação:

---

Postado originalmente por YaHiKo [Only registered and activated users can see links. Click Here To Register...]

esta querendo fazer rollover?

---

Sim.

Citação:

---

Postado originalmente por Shiu [Only registered and activated users can see links. Click Here To Register...]

Qual IDE você está utilizando?

IDE = programa de desenvolvimento, por exemplo: RAD Studio, lazarus, etc

---

Não sei --'

Ele perguntou qual versão do Delphi você está usando para desenvolver seu Launcher...

Qual é IDE? se é Delphi7, Delphi 2007, Delphi 2010 ou Rad Studio, tipo DelphiXE, DelphiXE2, DelphiXE3, DelphiXE4

deu para entender qual IDE você tá usando?

Citação:

---

Postado originalmente por LaBaK [Only registered and activated users can see links. Click Here To Register...]

Ele perguntou qual versão do Delphi você está usando para desenvolver seu Launcher...

Qual é IDE? se é Delphi7, Delphi 2007, Delphi 2010 ou Rad Studio, tipo DelphiXE, DelphiXE2, DelphiXE3, DelphiXE4

deu para entender qual IDE você tá usando?

---

^^. SIM.
Delphi 7 Second Edition

Para adicionar eventos:

[Only registered and activated users can see links. Click Here To Register...]
Obs: imagem encontrada na internet

Basicamente a edição de eventos é igual pra quase todos (ou todos) as IDE's disponíveis para Delphi no momento.

1. Clique no componente que você quer adicionar o evento
2. No canto esquerdo, tem as propriedades do objeto, você só precisa clicar na aba eventos que você verá as opções
3. Encontre o evento que quer editar(OnClick, OnMouseEnter, OnMouseDown, etc) e dê 2 clicks no espaço em branco ao lado
4. Irá criar um código do evento automaticamente, basta colocar o seu código dentro

Como requisitado por MP, uma forma de criar um botão com 2 imagens seria a seguinte forma:

1. Coloque as 2 imagens na mesma posição
2. Na imagem de cima, adicione o evento OnMouseDown com o seguinte código dentro: botao_de_baixo.BringToFront;
3. Na imagem de baixo, adicione o evento OnMouseUp com o seguinte código dentro: botao_de_cima.BringToFront;

O código ficaria assim:

Código:

---

procedure TfrmMain.botao_de_baixoMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  botao_de_cima.BringToFront;
end;

procedure TfrmMain.botao_de_cimaMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  botao_de_baixo.BringToFront;
end;

---

Obs: o código gerado pela sua IDE pode ser um pouco diferente do meu, já que eu utilizo o RAD XE4. O que importa é o que está dentro do BEGIN e END.

Ainda existe a possibilidade de criar 3 estágios pro botão: normal, focado e pressionado. Você usaria a mesma técnica acima, mudando os eventos:

• no botão normal você usa o OnMouseEnter pra chamar o botão focado
• no botão focado o OnMouseDown para chamar o botão pressionado e o OnMouseLeave pra chamar o botão normal novamente
• no botão pressionado, somente o OnMouseUp pra chamar o botão focado

Fica como "lição de casa".