bon jour
changer la langue du clavier
bon courage
bon jour
changer la langue du clavier
bon courage
bon jour
il faux métre aussi
application.ProcessMessages
dans les deux boucle
-enlever les deux ELSE dans votre code
(si la condition et true vous obtien une boucle infinie )
- mètre...
bonjour
const Max=10;
var
rdm: array [1..10] of integer;
occ:array [1..10] of integer;
i,j:integer;
begin
writeln ('=======tableau 1==========');
bon jour
je vous propose deux methode dans un seul programme
a+
bon jour
Cela peut vous aider ?
http://www.developpez.net/forums/d1397515/environnements-developpement/delphi/langage/remplacer-point-decimal-clavier-numerique-virgule/
a+
bon jour
j'ai pas bien comprie votre probleme mai je vous propose un autre programme qui est plus cour
Activation := False;
// If (Niveau = 0) Then
For I := 1 to (5 +...
bon jour
il faux deplacer dans la table
si vous travail avec les ADO
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOTable1.Next;
// table1.next // si vou travail avec...
bon jour
peux etre lutilisation de radiogroupe et plus pratique
charger le items de RadioGroup par choix1 , choix2 ,...
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin...
bon jour
trier un champ mémo :calim2:
pourquoi pas une autre table 'Activite' qui contient tous les activiter et le chams activite soit alphabetique c'est plus controlable
bon jour
si veux tu qu'il ne change pas de valeur
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
(sender as tCheckBox ).OnClick := nil;
(sender as tCheckBox ).Checked := not...
bon jour
juste une petite remarque
si je veux q'une fiche secondaire soit afficher directement apre le
Application.CreateForm(TForm2,Form2);
je mets la propriété visible de cette fiche a...
bon jour
dans paradox s'il on a un probleme d'ouverture de table c'est surement un probleme d'index il faux le supprimer et le recreé
try
form1.table1.Open;
except
// supression...
bon jour
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := currtostrf(strtocurr(edit1.Text),(ffCurrency),2 );
end;
CurrToStrF :Convertit une variable monétaire en...
bon jour
dans paradox utiliseez le filtre pour eviter tout ces teste
votre code sera comme ça
begin
table1.Filter := ' DATENAISS = ''0000*''' //affiché que les 'datenais' commencent...
bon jour
procedure TForm2.MonthCalendar1DblClick(Sender: TObject);
begin
Form1.Edit1.Text := DateToStr(Form8.MonthCalendar1.Date);
form8.Close;
end;
mai c'est pas trés pratique votre...
rebonjour
dans votre cas peux etre que TDBRadioGroup est plus pratique
A+
bon jour
faux miex Utilisez DBCheckBox
du help delphi 6
A+
exactement rayek c'est que je cherche merci:ccool:, merci aussi pour Pascal Fonteneau
bon jour
pour recuperer la version de mon application développer sous D6 j'utilise la fonction suivante
Function GetFileVersion(): string;
const
Flangid : string = '040C';
var ...
bon jour
attention! si vous chercher le DecimalSeparator peut etre qu'il soit . ou ,
il faut remplace le code precedent par :
procedure TForm1.Edit1KeyPress(Sender: TObject; var...
bon jour
peux étre que ce code vous aideras
bon jour
duble click sur cette option
en suite ecrivez le code
concessionnaire.showmodal;
bon jour
dans mon cas si votre probleme just l'affichage d'une forme vou pouvez utilisez form1.show avant la brocedure
begin
Application.Initialize;
Application.CreateForm(TForm1,...
bon jour
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
...
bon jour
par exemple faire un filtre a voter table avant
form.quickreport.preview
A+