7 replies to this topic

[Blackbird]

Olá, estou a algum tempo desenvolvendo programas cientificos, e, ao programar um programa que calcula perímetro, lados, angulos e soma dos angulos de um triângulo por coordendas cartesianas, me dei conta que que eu necessitava de um botão com função OnClick de limpar os dados de uma verificação anterior para uma outra verificação. Segue anexado um ss de meu programa e ao lado do botão calcular, gostaria de implantar um botão Limpar para que esse limpasse todos os Edits para podermos elaborar um novo calculo sem ter que fechar o programa ou limpar todas os Edits.

Gostaria de aber como faço para riar um botão e ele ter essa função de limpeza.

Agradeço desde já a ajuda.

Abraços.

Attached Files

•  programa_triangulo.jpg   49.69KB   1 downloads

[Blackbird]

Bom galera, ninguém respondeu, então, por eu ter aprendido imaginei que alguns possuiam a mesma dúvida que eu, então resolvi compartilhar com vcs:

bom, supondo que o seu form tenha 3 edit e 1 memo, vc criara um botão e escreverá Limpar, deletar, ou algo to tipo e por a seguinte função no OnClick:

void_fastcall ..................
{
Memo1->Clear();
Edit1->Clear();
Edit2->Clear();
}


Assim vc fará com todos os elementos de seu form, e tamb'm, se apor a limpeza, vc qr que o ponteiro de escrita vá parar em deterinado edit, vc coloca antes da ulma chave:

Edit1->Setfocus();


Esse é o código.

E, aproveitando o embalo, se quiserem criar um botão com função de fechar seu programa, cria um botão com o caption Sair, Fechar, ou algo do gênero e em sua função OnClick, ponha:

void_fastcall...............
{
Form1->Close();
}


É isso aí galera espero que isso seja de bom uso a vocês.

Abraços.

[HaroNism]

Propecia Success Stories online pharmacy Buy Tadalafil Citrate Liquid Amoxicillin Dosage 875 Mg Viagra Apres Prostatectomie Propecia Kidney Damage cialis price Kamagra Oral Jelly How To Take
Acheter Du Baclofene cialis buy online Sourceofprednisone
Best Price Viagra 100mg Costco
Letrozole For Sale <a href=http://cialtobuy.com>cialis</a> Side Effects Long Term Propecia Finasteride

[RonsisM]

Buy Viagra Online Paypal Uk Propecia Hair Growth Propecia Calendario cheap levitra canada Como Comprar Levitra Sin Receta Zithromax Buy Cheap Propecia Grande

[HaroNism]

Zithromax Three Day Pack Amoxicillin Cause Gas generic levitra 40 mg Achat Cytotec Sur Internet
Viagra 24 Hours Delivery Amoxicillin For Canines Buy Cialis 20mg Europe levitra plus Buy Brand Viagra Us Viagra Comprare Line Cialis 5 Mg Doctissimo

[Miguceamma]

El Cialis Sin Receta Viagra For Sale In Canada Levitra Pills generic cialis Propecia Nioxin Treatment

[RonsisM]

Zithromax For Cough Discount cheapeast isotretinoin purchase in internet overseas pharmacy Finasteride On Line viagra Viagra Tipi
Buy Generic Orlistat 120mg Online Acheter Cialis Forum viagra Levitra Acheter En Baisse Comment Faire Pour Obtenir Priligy Cialis Soft Tabs De
Il Viagra Femminile Provoca Sonnolenza Surdosage Cheap Cialis Online Legit India vardenafil in osterreich erhaltlich Cialis Toulouse Cheter Baclofene En Ligne
Effets Secondaires Cialis 20 viagra Buy Valtrex Cheap Online Best Lisinopril No Prescription Canada
Where to buy generic isotretinoin isotrex shop Who Will Deliver Cialis Fast online pharmacy Propecia 1 4

[HaroNism]

Cialis Stripes Erfahrungen Priligy Forum 2010 cialis Buy Diflucan Online Cheap Mifepristone Acheter
Is Amoxicillin An Acid Or Base Stendra Priligy Zithromax Purchase cheap cialis Magasin Levitra 20mg
Valacyclovir Hcl 1 Gram Tablet Cheap Viagra Uk Next Day Delivery viagra Cealis India