Fórum OnShow em uma Unit #389360
26/10/2010
0
Tenho uma unit com várias funções.
Gostaria de executar o Onshow nessa Unit toda vez que fosse executar uma função.
Será que tem jeito?
Dirceu Morais
Curtir tópico
+ 0Posts
26/10/2010
Wilson Junior
Gostei + 0
26/10/2010
Dirceu Morais
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.
Gostei + 0
26/10/2010
Rodrigo Mattos
Gostei + 0
26/10/2010
Wilson Junior
Diga o que você pretende fazer, pois lhe sugerimos soluções para ela.
Gostei + 0
26/10/2010
Anderson
Abraços,
Anderson:.
Gostei + 0
26/10/2010
Marcelo Diniz
Gostei + 0
27/10/2010
Dirceu Morais
Abraços,
Anderson:.
Anderson é isso mesmo que estou procurando.
Vou pesquisar então...
Obrigado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)