o que há de errado nesse código?

Delphi

18/12/2004

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

Ajmsistemas

Curtidas 0

Respostas

Massuda

Massuda

18/12/2004

O TSpeedButton não tem Parent.


GOSTEI 0
Massuda

Massuda

18/12/2004

O TSpeedButton não tem Parent.


O TSpeedButton que você está criando não tem Parent... defina o Parent dele.


GOSTEI 0
Ajmsistemas

Ajmsistemas

18/12/2004

[quote:b82d97a4f8=´Massuda´]O TSpeedButton não tem Parent.


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
Marco Salles

Marco Salles

18/12/2004

amigo , eu não sei se voce colocou o código que cria o botão e o posiciona
entre Chaves , se foi proposital ou esquecimento :?: :?: :?: :?:

Mas de qualquer Forma Defina o Parent Com o Massuda disse:

O TSpeedButton que você está criando não tem Parent... defina o Parent dele.


como faço isso?


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
Ajmsistemas

Ajmsistemas

18/12/2004

[quote:02e445ded0=´Marco Salles´]amigo , eu não sei se voce colocou o código que cria o botão e o posiciona
entre Chaves , se foi proposital ou esquecimento :?: :?: :?: :?:

Mas de qualquer Forma Defina o Parent Com o Massuda disse:

O TSpeedButton que você está criando não tem Parent... defina o Parent dele.


como faço isso?


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
Fknyght

Fknyght

18/12/2004

Tipo assim, testei o seu codigo o fiz umas modificações, ve se funciona ai

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
POSTAR