Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor
(é só uma sugestão). Se não for isso, me diga...
// implementação
procedure TForm1.ShowForm(Form: TForm);
var
F: TForm;
begin
F:= TForm.Create(Application);
F.ShowModal;
F.Release;
end;
// chamando o método
--- Em [EMAIL PROTECTED], valmsrj [EMAIL PROTECTED] escreveu
Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor
(é só uma sugestão). Se não for isso, me diga...
// implementação
procedure TForm1.ShowForm(Form: TForm);
var
F: TForm;
begin
F:=
Por favor desculpe minha msg anterior, eu fiz de cabeça em testei...
mudei algumas coisas...
procedure TForm1.ShowForm(Form: TForm);
begin
Form.ShowModal;
Form.Release;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowForm(TForm2.Create(application));
end;
Por favor
:
Assunto: [delphi-br] Re: Ajuda em
Procedure
02/12/2004
15:24
]
---
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, December 02, 2004 3:50 PM
Subject: Re: [delphi-br] Re: Ajuda em Procedure
Valmir, é tipo assim: eu quero criar uma procedure pra disparar sempre pra
poder abrir meus formulários...nessa procedure
assim não funciona ???
procedure ShowForm(Sender: TForm; v_NomeForm : String);
var v_ClasseForm: String;
begin
v_ClasseForm := 'T'+ v_NomeForm;
if Sender = NIL then
begin
if DM_FDM2.Q_Permissoes.Locate('DSC_ID', v_NomeForm,
[loCaseInsensitive]) then
begin
6 matches
Mail list logo