Fórum o que há de errado nesse código? #262543
18/12/2004
0
With FRightPanel Do
Begin
Align := alRight;
Alignment := taCenter;
AutoSize := false;
BevelOuter := bvNone;
Parent := self;
Width:=1;
BorderWidth:=0;
ControlStyle := ControlStyle - [csAcceptsControls];
PanelPos:=xpRight;
{ WITH TSpeedButton.Create(FRightPanel) DO
BEGIN
Top := 1;
Left := 3;
Caption := ´X´;
Hint := ´Fechar´;
Font.Color := clred;
ShowHint := true;
Height := 20;
Width := 20;
END;}
End;eu coloquei o código e copila legal... porém não é criado o butão... pq ?
estou colocando o fonte em disposição no link.
http://geocities.yahoo.com.br/andeson_jesus/xp.zip
o mesmo é o componente do TranspearXP se alguém pode me ajudar a gradeço...
Ajmsistemas
Curtir tópico
+ 0Posts
18/12/2004
Massuda
Gostei + 0
18/12/2004
Massuda
O TSpeedButton que você está criando não tem Parent... defina o Parent dele.
Gostei + 0
18/12/2004
Ajmsistemas
O TSpeedButton que você está criando não tem Parent... defina o Parent dele.[/quote:b82d97a4f8]
é que sou novato com criação de componentes...
como faço isso?
ou me indique um site onde eu possa estudar sobre o assunto !... criação de componentes...
desde já agradeço...
Gostei + 0
18/12/2004
Marco Salles
entre Chaves , se foi proposital ou esquecimento :?: :?: :?: :?:
Mas de qualquer Forma Defina o Parent Com o Massuda disse:
Aproveitando o seu código
WITH TSpeedButton.Create(FRightPanel) DO
BEGIN
parent:=self; **** Defina aqui ***
Top := 1;
Left := 3;
Caption := ´X´;
Hint := ´Fechar´;
Font.Color := clred;
ShowHint := true;
Height := 20;
Width := 20;
END;P;S Não esqueça de tirar os Parentesis..
Gostei + 0
19/12/2004
Ajmsistemas
entre Chaves , se foi proposital ou esquecimento :?: :?: :?: :?:
Mas de qualquer Forma Defina o Parent Com o Massuda disse:
Aproveitando o seu código
WITH TSpeedButton.Create(FRightPanel) DO
BEGIN
parent:=self; **** Defina aqui ***
Top := 1;
Left := 3;
Caption := ´X´;
Hint := ´Fechar´;
Font.Color := clred;
ShowHint := true;
Height := 20;
Width := 20;
END;P;S Não esqueça de tirar os Parentesis..[/quote:02e445ded0]
Amigo foi eu quem pus os parentes.... rss
é que sou uniciante em criação de componentes e onde eu moro tem poucas fontes de pesquiza...
por isso tenho que postar minhas dúvidas em um bom forúm que tem pessoas legais como você para nos ajudar no nosso dia a dia..
agradeço por tudo.. e vou pertar mais atenção agora nos códigos.. e melhor vou procurar mais sobre o assunto.. criação de componentes e objetos..
valeu. :wink:
Gostei + 0
20/12/2004
Fknyght
With Panel1 Do
Begin
Align := alRight;
Alignment := taCenter;
AutoSize := false;
BevelOuter := bvNone;
Width := 20; // aqui voce tinha definido 1, mudei para o tamanho do botao
BorderWidth := 0;
ControlStyle := ControlStyle - [csAcceptsControls];
PanelPos := xpRight;
WITH TSpeedButton.Create(Self) DO
BEGIN
Parent := Panel1; // o speedbutton tem que ter um parent, coloquei o panel 1 :)
Top := 1;
Left := 3;
Caption := ´X´;
Hint := ´Fechar´;
Font.Color := clred;
ShowHint := true;
Height := 20;
Width := 20; // aqui voce definiu o tamanho 20 para o botão
END;
End;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)