Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   error con el parent window (https://www.clubdelphi.com/foros/showthread.php?t=36171)

antonio peña 04-10-2006 02:18:45

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.....

:(

Neftali [Germán.Estévez] 04-10-2006 10:18:50

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.


La franja horaria es GMT +2. Ahora son las 01:55:49.

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