OnShow em uma Unit

Se explique um pouco melhor, pois ficou meio confuso.

Deixa eu explicar melhor.

Tenho uma UNIT com várias funcoes, tipo assim:

[code]
unit uRotinas;

//*************************************** INTERFACE **************************************
interface

uses Forms, Windows, SysUtils, Controls, Printers, DBTables, SqlExpr, Variants,
  Classes, Graphics, Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, FMTBcd, DB,
  DBClient, Provider, Math;


type TControls = array of TControl;

//Procura por um valor de acordo com os parâmetros passados
function EncontraValor(TextoSql:WideString;Parametro:Variant):Variant;
// Executra uma Query como os paramentos passados
procedure ExecutaQuery(TextoSql:WideString;Parametro:Variant);
// Converte qualquer Variavel para string
function ConvString(const v: variant): string;
function ConvDecimal(Valor : String; Decimal : integer = 4) : String;
.....
[\code]

Gostaria que ao abrir a função executasse o onshow.


No Onshow teria uma opção +ou- assim:
MENSAGEm('Aguarde executando comando.....')

Não sei se fui claro. Estou postando pq nem sei como procurar.



 

cara ainda esta complicado de entender.

Mas uma UNIT não possui OnShow.
Diga o que você pretende fazer, pois lhe sugerimos soluções para ela.

O que me parece é que deseja colocar um indicador de processamento ou algo similar, para não ficar aquele silêncio na execução de uma tarefa. Se for isto, pesquise por  "progresso" no fórum.

Abraços,

Anderson:.

O que eu entendi que deseja mostrar uma mensagem ao usuário do sistema ao executar alguma função ou procedure nesta unit ?

Anderson é isso mesmo que estou procurando.

Vou pesquisar então...


Obrigado.