Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-05-2007
majuub majuub is offline
Registrado
 
Registrado: may 2007
Posts: 5
Poder: 0
majuub Va por buen camino
una ayudita para un novato

hola soy un aficionado al delphi 5 con muy poco nivel y me gustaria saber si alguien me podria explicar que tendria que hacer para que al pulsar un boton delphi abriera una pagina de internet seleccionada como por ejemplo al pulsar el boton se abriera esta pagina. Si alguien me puedce explicar que codigo hay que poner y que objetos deberia añadir le estaria muy agradecido.
Gracias y saludos
Responder Con Cita
  #2  
Antiguo 14-05-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Por ejemplo:

Código Delphi [-]
uses
  ShellApi;

Código Delphi [-]
ShellExecute(Handle, 'open', 'http://www.clubdelphi.com', nil, nil, SW_SHOW);

// Saludos
Responder Con Cita
  #3  
Antiguo 14-05-2007
majuub majuub is offline
Registrado
 
Registrado: may 2007
Posts: 5
Poder: 0
majuub Va por buen camino
me da error en lo siguiente:
me parece que el uses no lo he puesto en lugar correcto
Responder Con Cita
  #4  
Antiguo 14-05-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
A me funciona bien:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', 'http://www.clubdelphi.com', nil, nil, SW_SHOW);
end;

end.

Como verás, en la parte de arriba esta la sección uses, tan sólo debes colocar la unidad ShellAPI. Pones un botón (al que yo por ejemplo denominé Visitar) y en su evento onClick puse lo que expone roman.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]

Última edición por dec fecha: 14-05-2007 a las 22:05:00.
Responder Con Cita
  #5  
Antiguo 14-05-2007
majuub majuub is offline
Registrado
 
Registrado: may 2007
Posts: 5
Poder: 0
majuub Va por buen camino
muchas gracias a los dos estoy haciendo un trabajo para el instituto si tengo alguna duda mas les preguntare a ustedes gracias y saludos
Responder Con Cita
  #6  
Antiguo 14-05-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
un poco más de ayuda...

majuub, como dices:
Cita:
Empezado por majuub
con muy poco nivel
a lo mejor te resulte de utilidad (si es que no lo conoces) descargar un buen libro de delphi: La Cara Oculta de Delphi 4. Es un buen libro (pdf) que explica desde lo básico hasta lo complicado. Yo uso D6 y ha decir verdad no tuve inconvenientes por lo de "Delphi 4", ya que poco ha cambiado desde la vesión 4 (hasta la 6. No se si 7 habrá mayores cambios).

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda con consulta SQL para un novato Stilgar SQL 10 03-05-2007 23:01:45
AYUDA para enlistar tablas en sql, soy novato ayreon SQL 2 16-04-2007 23:06:39
ayuda para novato Pensa2r MySQL 1 05-06-2006 19:04:21
novato, ayuda para usar aplicacion en otro ordenador zastilla Conexión con bases de datos 2 25-07-2005 12:41:47
Novato en Firebird y IB( Que sera mejor para agregar, Modificar, ect) IcebergDelphi Firebird e Interbase 2 04-06-2003 05:56:16


La franja horaria es GMT +2. Ahora son las 05:43:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi