Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Visualizar Caption en form minimizado (https://www.clubdelphi.com/foros/showthread.php?t=83072)

yevabas 08-05-2013 21:51:32

Visualizar Caption en form minimizado
 
Buenas tardes

Aquí de nuevo con una consulta, he buscado pero no he encontrado nada, perdón si ya lo trataron pero llevo dando vueltas hace varios días.

Tengo aplicación donde el caption del formulario varia, es un contador, lo que quiero es que al minimizar la aplicación en la barra de tareas de Windows el caption se visualice y siga contando, en realidad no se si eso sea posible.

espero haberme hecho entender y muchas gracias por su colaboración y tiempo.

ecfisa 08-05-2013 22:17:04

Hola yevabas.

Proba si este código realiza algo similar a lo que estas buscando:
Código Delphi [-]
uses ... , ShellApi;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FTitle: string;
    FMinimized: Boolean;
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
  end;
...

implementation

var
  Cont: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTitle         := Application.Title;
  FMinimized     := False;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(Cont);
  Caption := IntToStr(Cont);
  if FMinimized then
    Application.Title := IntToStr(Cont)
  else
    Application.Title := FTitle;
end;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  FMinimized := Msg.CmdType = SC_MINIMIZE;
  DefaultHandler(Msg)
end;

Saludos. :)

Edito: Modifiqué el título original de tu mensaje "Caption" por el actual, ya que el anterior no reflejaba el contenido de tu consulta.

yevabas 09-05-2013 16:25:08

Visualizar Caption en form minimizado
 
Hola ecfisa

Gracias por tu tiempo y colaboración.

Probé tu código y funciona al perfección, solo me gustaría saber una cosita mas y es que al minimizar la pantalla, esta queda al lado izquierdo inferior, no se si sea posible que quede el la barra de tareas de windows, como cuando uno minimiza word, excel, pero de todos modos lo que me diste me sirve muchísimo y así también lo puedo implementar muchas gracias, y como siempre ustedes sacándonos de apuros a los que no somos diestros en el manejo de delphi y otras cositas..:)

Casimiro Notevi 09-05-2013 16:46:09

Busca por "minimizar en trayicon". No mezcles temas distintos en el mismo hilo, gracias.


La franja horaria es GMT +2. Ahora son las 09:29:37.

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