Panel - BringToFront - Consegui resolver!

Delphi

02/06/2006

[color=red:978cf4e504]Tópico bloqueado por Massuda Por favor, mantenha-se no tópico original...[/color:978cf4e504] http://forum.clubedelphi.net/viewtopic.php?t=77825

Consegui resolver!
Obrigado pessoal! :wink:

Pra quem ficou na curiosidade ai está:

[b:978cf4e504]var[/b:978cf4e504] i:Integer;
[b:978cf4e504]begin[/b:978cf4e504]
[b:978cf4e504]for [/b:978cf4e504]i := 0 [b:978cf4e504]to[/b:978cf4e504] pred(ComponentCount) [b:978cf4e504]do[/b:978cf4e504]
begin
[b:978cf4e504]if[/b:978cf4e504] Components[I] [b:978cf4e504]is[/b:978cf4e504] TWinControl [b:978cf4e504]then[/b:978cf4e504]
[b:978cf4e504]if[/b:978cf4e504] (Components[I] [b:978cf4e504]as[/b:978cf4e504] TWinControl).Focused [b:978cf4e504]then[/b:978cf4e504]
TPanel(TWinControl(Components[i]).Parent).BringToFront;
[b:978cf4e504]end[/b:978cf4e504];
[b:978cf4e504]end[/b:978cf4e504];
Se alguém tiver alguma idéia melhor estou ai pra ouvi-las

[]s e obrigado


Cristiano Alves

Cristiano Alves

Curtidas 0

Respostas

Rodc

Rodc

02/06/2006

Na próxima vêz não crie um novo tópico para responder um tópico já existente ([url]http://forum.clubedelphi.net/viewtopic.php?t=77825[/url]).

No TForm tem a propriedade ActiveControl que retorna o TWinControl que está ativo (no caso, selecionado).

Teste o seguinte:
ActiveControl.Parent.BringToFront();


GOSTEI 0
POSTAR