Olá Rodrigo.
Não sei se vou te ajudar, mas no sistema em que estou trabalhando para fazer
isso que vc quer criei no form que é chamado o seguinte;
Public
constructor Cria(Owner: Tcomponent; LNIX, LNIY: Integer); // Construtor do
form personalizado
constructor Tform2.Cria(Owner: Tcomponent; LNIX, LNIY: Integer);
begin
inherited Create(Owner);
Top := LNIX + 14; // + 14 para não ficar sobre o botão fo formulário
anterior
Left := LNIY + 18; // ídem
end;
E para chamar este formulário faço da seguinte forma.
procedure TForm1.sbConfirmaClick(Sender: TObject);
Var
FDesconto : Tform2;
begin
Try
// posição top do fomrulário + posição top do botão
// posição Left do formulário + posição Left do botão + Width do
botão
FDesconto := Tform2.Cria(Self, Self.Top + sbConfirma.Top ,
Self.Left + sbConfirma.Left + sbConfirma.Width );
FDesconto.ShowModal;
Finally
FreeAndNil( FDesconto);
End;
end;
Se precisar estarei disponível.
Att,
Ernesto R. P. dos Santos
Desenvolvimento - Strategies
http://www.strategies.inf.br
Tel.:47 221-4500/Fax:47 221-4599
----- Original Message -----
From: Rodrigo Izquierdo da Motta
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 13, 2005 2:06 PM
Subject: [delphi-br] Posicionar Form na Criacao!!!
Ola Lista!!!
Estou com uma duvida bem estranha.
Eu quero posicionar um form de acordo com a posicao do botao que chama ele,
assim:
Apos Istanciar o form....
form.top := btnCall.Top;
form.left := btnCall.left;
form.ShowModal;
Agora, por que isso naum funciona?
Se eu coloco na Propriedade Position = Designed, Default, ScreenCenter,
enfim, tudo, ele respeita, menos a minha posicao, que coloco na mao. Alguem
sabe me dizer por que isso naum da certo?
Tem alguma maneira de eu posicionar o Form na Hora de Criar, caso essa naum
seja a maneira correta?
Lembrando que estou usando o Kylix2!!!
Um Abraco e Obrigado a Todos!!!
--
/*=======================*
* Rodrigo Izquierdo da Motta *
*=======================*/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 13/06/2005 / Versão: 4.4.00 -
Dat 4512
Proteja o seu e-mail Terra: http://mail.terra.com.br/
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.6.9 - Release Date: 11/6/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
