Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-10-2006
antonio peña antonio peña is offline
Miembro
 
Registrado: sep 2006
Posts: 14
Poder: 0
antonio peña Va por buen camino
Exclamation error con el parent window

buenas buenas,

tengo una aplicacion que quiero que arranque desde el un boton "mio" que sustituye al de inicio de la barra de tareas y deseo que al darle click en el boton este abra mi aplicacion.

encontre un hilo en el club pero me marca error

h := FindWindow('Shell_TrayWnd', nil);
b := TButton.Create(nil);
b.ParentWindow := h; <--- aqui marca el erro, que no esta declarado
b.Caption := 'Inicio';
b.Width := 60;
b.font.style := [fsbold];


alguien me puede auxiliar, o me puede dar otro ejemplo mas claro, pues creo el hilo que abri (de donde saque el codigo) como que esta incompleto, de antemano gracias

p.d. espero y sea el ultimo hilo publicado en el dia,

esperare aqui pacientemente sus respuesta, cualquier idea o comentario es bienvenido.....

Responder Con Cita
  #2  
Antiguo 04-10-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
A ver esá hecho en 2 minutos, pero si creas un DPR con lo siguiente funciona perfectamente y hace lo que necesitas...

Código Delphi [-]
program Project1;

uses
  Forms,
  Dialogs, Windows, StdCtrls, Graphics, Buttons;

{$R *.res}

var
  h:Integer;
  b:TButton;
begin

  Application.Initialize;
  MessageDlg('Activar el botón', mtInformation, [mbOK], 0);

  h := FindWindow('Shell_TrayWnd', nil);
  b := TButton.Create(nil);
  b.ParentWindow := h;
  b.Caption := 'Inicio';
  b.Width := 60;
  b.Height := 22;
  b.font.style := [fsbold];
  b.BringToFront;

  Application.Run;

  // Espera
  While True do begin
    sleep(100);
    Application.ProcessMessages;
  end;

end.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Error en window.setTimeOut() Diavlo HTML, Javascript y otros 6 12-06-2006 19:14:36
QReport has no parent window david duarte Impresión 1 19-01-2006 16:06:07
Ayuda: Control Has No Parent Window pelaorb68 Varios 10 20-12-2005 21:36:26
TreeView parent Caro OOP 4 09-11-2005 18:37:45
error : has no parent windows jorodgar Varios 5 23-05-2005 22:49:48


La franja horaria es GMT +2. Ahora son las 20:50:03.


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