Border Icons do Form em componente ???
Colegas..
Como faço para retirar os ícones de borda do form de um componente?
Tentei fazer assim
form1.bordericons := [];
mas não dá certo..
Alguém sabe o pq?
Agradeço antecipadamente a todos.
Cabelo
Como faço para retirar os ícones de borda do form de um componente?
Tentei fazer assim
form1.bordericons := [];
mas não dá certo..
Alguém sabe o pq?
Agradeço antecipadamente a todos.
Cabelo
Cabelo
Curtidas 0
Respostas
Sandra
10/08/2004
cabelo,
* Se você quer retirar todos os ícones, o Minimizar, Maximizar e Fechar (inclusive o ícone do Projeto), manipule diretamente no Object Inspector, colocando as opções:
- biSystemMenu = False;
- biMinimize = False;
- biMaximize = False.
[b:d0b20be59c]Ou:[/b:d0b20be59c]
------------------------------
* Deixar só o botão Fechar (botões Minimizar e Maximizar invisíveis):
- biSystemMenu = False;
[b:d0b20be59c]Ou:[/b:d0b20be59c]
------------------------------
* Desabilitar o Minimizar:
- biMinimize = False;
------------------------------
* Desabilitar o Minimizar:
- biMinimize = False;
[b:d0b20be59c]Ou:[/b:d0b20be59c]
------------------------------
[b:d0b20be59c]Importante:[/b:d0b20be59c] O BorderStyle do form NÃO deve ser bsDialog ou bsNone.
Espero que ajude.
* Se você quer retirar todos os ícones, o Minimizar, Maximizar e Fechar (inclusive o ícone do Projeto), manipule diretamente no Object Inspector, colocando as opções:
- biSystemMenu = False;
- biMinimize = False;
- biMaximize = False.
[b:d0b20be59c]Ou:[/b:d0b20be59c]
BorderIcons := BorderIcons - [biSystemMenu] - [biMinimize] - [biMaximize];
* Deixar só o botão Fechar (botões Minimizar e Maximizar invisíveis):
- biSystemMenu = False;
[b:d0b20be59c]Ou:[/b:d0b20be59c]
BorderIcons := BorderIcons - [biSystemMenu];
* Desabilitar o Minimizar:
- biMinimize = False;
BorderIcons := BorderIcons - [biMinimize];
* Desabilitar o Minimizar:
- biMinimize = False;
[b:d0b20be59c]Ou:[/b:d0b20be59c]
BorderIcons := BorderIcons - [biMaximize];
[b:d0b20be59c]Importante:[/b:d0b20be59c] O BorderStyle do form NÃO deve ser bsDialog ou bsNone.
Espero que ajude.
GOSTEI 0
Cabelo
10/08/2004
Colega Sandra..
Obrigado pela dica, mas não deu certo do mesmo jeito..
Não tenho o ObjectInspector, já que este form é criado em RUN TIME, pq estou criando ele dentro de um componente que estou desenvolvendo. Colequei assim :
s_frm := TForm.Create(nil);
with s_frm do
begin
Name := l_form;
Width := 288;
Height := 217;
Position := poScreenCenter;
BorderStyle := fbsSizeable;
BorderIcons := BorderIcons - [biMinimize] - [biMaximize];
FormStyle := fsNormal;
Parent := F_Verifica_Form;
WindowState := wsNormal;
KeyPreview := false;
Caption := ´Login´;
P_Constraints(s_frmLogin, s_frmLogin.Height, s_frmLogin.Width);
Onshow := P_FormShowLogin;
OnClose := P_FormCloseLogin;
end;
mesmo assim não funcionou..
se tiver mais alguma sugestão..
Cabelo
Obrigado pela dica, mas não deu certo do mesmo jeito..
Não tenho o ObjectInspector, já que este form é criado em RUN TIME, pq estou criando ele dentro de um componente que estou desenvolvendo. Colequei assim :
s_frm := TForm.Create(nil);
with s_frm do
begin
Name := l_form;
Width := 288;
Height := 217;
Position := poScreenCenter;
BorderStyle := fbsSizeable;
BorderIcons := BorderIcons - [biMinimize] - [biMaximize];
FormStyle := fsNormal;
Parent := F_Verifica_Form;
WindowState := wsNormal;
KeyPreview := false;
Caption := ´Login´;
P_Constraints(s_frmLogin, s_frmLogin.Height, s_frmLogin.Width);
Onshow := P_FormShowLogin;
OnClose := P_FormCloseLogin;
end;
mesmo assim não funcionou..
se tiver mais alguma sugestão..
Cabelo
GOSTEI 0
Sandra
10/08/2004
Na compilação, aparece em qual linha ocorre o erro?
O BorderStyle não pode ser bsDialog?
PS:
Esse ´f´ no fbsSizeable é erro de digitação, certo? :D
O BorderStyle não pode ser bsDialog?
PS:
BorderStyle := [b:bc2c541dae]f[/b:bc2c541dae]bsSizeable;
Esse ´f´ no fbsSizeable é erro de digitação, certo? :D
GOSTEI 0
Cabelo
10/08/2004
Não Sandra..
Na verdade eu estou desenvolvendo em .Clx, e esta classe utiliza o f na frente...
Não ocorre erro nenhum, simplesmente não consigo remover os ícones..
Compilo normalmente, coloco o componente em uma aplicação, e quando ativo meu componente, na hora de criar o meu form principal do componente, lá estão os 3 ícones..
como fazer??
Cabelo
Na verdade eu estou desenvolvendo em .Clx, e esta classe utiliza o f na frente...
Não ocorre erro nenhum, simplesmente não consigo remover os ícones..
Compilo normalmente, coloco o componente em uma aplicação, e quando ativo meu componente, na hora de criar o meu form principal do componente, lá estão os 3 ícones..
como fazer??
Cabelo
GOSTEI 0
Cabelo
10/08/2004
sobe..
GOSTEI 0
Cabelo
10/08/2004
Ainda não consegui fazer desaparecer os ícones, o que está me trazendo alguns problemas..
Utilizo uma função que inibe as teclas de atalho do windows e o ctrl+alt+del no windows XP, e quando minimizo a tela, ela fica inacessível, devido a esta função..
preciso retirar os ícones para q não seja possível minimizar a janela..
Como fazer..?
Agradeço antecipadamente..
Cabelo
Utilizo uma função que inibe as teclas de atalho do windows e o ctrl+alt+del no windows XP, e quando minimizo a tela, ela fica inacessível, devido a esta função..
preciso retirar os ícones para q não seja possível minimizar a janela..
Como fazer..?
Agradeço antecipadamente..
Cabelo
GOSTEI 0
Cabelo
10/08/2004
Colegas..
Depois de 2 anos e meio..
Retorno ao mesmo problema que postei anteriormente..
Preciso de qualquer jeito que seja retirar os ícones de minimizar e maximizar o form, pois estou tendo problemas com meu cliente...
Tentei de diversas formas.. e nada..
Só lembrando..
Compilo em .CLX, Delphi 7, e estou crinado o form em RUN - TIME, dentro de um componente.. que herda da classe TComponent..
obrigado a todos antecipadamente..
Depois de 2 anos e meio..
Retorno ao mesmo problema que postei anteriormente..
Preciso de qualquer jeito que seja retirar os ícones de minimizar e maximizar o form, pois estou tendo problemas com meu cliente...
Tentei de diversas formas.. e nada..
Só lembrando..
Compilo em .CLX, Delphi 7, e estou crinado o form em RUN - TIME, dentro de um componente.. que herda da classe TComponent..
obrigado a todos antecipadamente..
GOSTEI 0
Cabelo
10/08/2004
Sobe...
GOSTEI 0
Adriano Santos
10/08/2004
Caramba, parece novela ou filme ´2 anos depois´....
Meu, postai o código completo do componente é possível?
Meu, postai o código completo do componente é possível?
GOSTEI 0
Cabelo
10/08/2004
Segue o código que uso para criar o form em RUN TIME
Uso delphi 7 .CLX
agradeço a atenção..
s_form_inicial := TForm.Create(self); with s_form_inicial do begin Name := l_form; BorderIcons := []; //aqui já tentei colocar BorderIcons - [biSystemMenu] por exemplo e não funcionou.. BorderStyle := fbsSizeable; FormStyle := fsNormal; Parent := F_Verifica_Form; WindowState := wsNormal; Position := poScreenCenter; P_Constraints(s_form_inicial, 80, 193); KeyPreview := false; Caption := ´Configurar Relatório´; OnClose := P_FormCloseInicial; OnShow := P_FormShowInicial; P_Centraliza_Form(s_form_inicial); end;
Uso delphi 7 .CLX
agradeço a atenção..
GOSTEI 0
Marco Bidoia
10/08/2004
Cara já faz tempo mais vamos lá:
é bem simples
é só add cada um dos botões que você quiser no seu form.
biSystemMenu = fechar
biMinimize = minimizar
biMaximize = maximizar
biHelp = ajuda
Antes tarde do que nunca...
é bem simples
SeuForm.BorderIcons := [biSystemMenu,biMinimize,biMaximize];
é só add cada um dos botões que você quiser no seu form.
biSystemMenu = fechar
biMinimize = minimizar
biMaximize = maximizar
biHelp = ajuda
Antes tarde do que nunca...
GOSTEI 0