Pq O Botão Ñ Aparece?

[Micheletti]

porque o botão não aparece???

onde tenho que alterar?

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Buttons, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

cancela:boolean;//

implementation

{$R *.DFM}

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

a,b,c:char;

begin

cancela:=false;

memo1.Lines.clear;

for a:='a' to 'z' do

begin

for b:='a' to 'z' do

begin

for c:='a' to 'z' do

begin

application.ProcessMessages;

if not cancela then

memo1.lines.add(a+b+c)//apenas mostra em um Memo

else

exit;

end;

end;

end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

cancela:=true;

application.ProcessMessages;

end;

end.

[jissa]

Parece tudo certo...

Da uma Olhada no Object Inspector.. se o Visible esta True.. o Flat... o Transparent.. da uma olhada nestas propriedades

Coloca uma imagem (Glyph)

mas o Codigo parece estar certo..

[Micheletti]

Sabes que não entendo muito!!!rs*

Que erro é esse?

[jissa]

Como voce colocou o SpeedButtom?? voce digitou o codigo ou adicionou pela guia de componentes?

Tenta fazer assim:

Salva o codigo que digitou..

apaga os dois botoes.. ou abra um form novo

coloca os sppedbuttom pela guia Additional (o raio)

ai clica duas vzs sobre o botao e cole o codigo que copiou..

[Micheletti]

Puts!!! não concigo de geito nenhum....vou comer alguma coisa...respirar um pouco...dpz tento e posto aqui...falow...brigado. :(

não tem geito, quando acerto uma linha de codigo da erro em outra...rs*

[Micheletti]

Aê posso te mandar a Unit p você da uma olhada?

[jissa]

pode mandar