msoin
Messages postés10Date d'inscriptionjeudi 25 septembre 2003StatutMembreDernière intervention26 octobre 2003
-
25 sept. 2003 à 19:36
Snowboarder69
Messages postés41Date d'inscriptionvendredi 7 février 2003StatutMembreDernière intervention23 juin 2007
-
28 sept. 2003 à 14:47
Salut tous !
Alors je suis begginer et g un probleme existentiel :
J'apprend à programmer sur delphi7 avec un boukin sur delphi2 et il y a bien sur quelques differences.
Mon probleme est simple, pour que mon prog soit moin lourd dans la mem vive, j'évite de creer toutes les fiches dès l'ouverture. Pour ce faire je v dans "projet/option" et je met quelques une des fiches qui se creeent automatiquement dans la colone de droite, où elle sont "available".
Tout ça c'est bien beau mais je n'arrive plus à les appeller suite à une routine ! (routine c bien par exemple le code qui fait qu'une fenetre s'ouvre quand je clque sur un bouton ?)
msoin
Messages postés10Date d'inscriptionjeudi 25 septembre 2003StatutMembreDernière intervention26 octobre 2003 26 sept. 2003 à 14:05
Alors g la ligne mais maintenant c la ligne suivante qui cloche :(
en fait g mis ça : (ma fenetre à creer s'appelle"view")
procedure TMain.ouvrir2Click(Sender: TObject);
begin
if Opendialog1.Execute then begin
Application.CreateForm(Tform, View);
view.Caption:=opendialog1.Files
end;
end;
il reproche au 1er "end;" incompatible types:'String' and 'Tstrings'
Et puis avec le code marqué est-ce que la fenetre s'ouvre ou se cree juste sans s'afficher ? merci encore :)
msoin
Messages postés10Date d'inscriptionjeudi 25 septembre 2003StatutMembreDernière intervention26 octobre 2003 26 sept. 2003 à 20:56
Je pense que g mal du expliquer ce que je voudrai faire.
pour appeller ma fenetre g fait comme tu m'as dit mais elle viens vierge au lieu d'avoir les propriétés que je lui avait definies ( 2 panels par ex qui ne sont pas dans la fenetre)
J'ai une application qui tourne avec pls fenetres.
Certaines se chargent automatiquement et d'autres non ( au moment de l'ouverture).
Je les definies par "projet/option" en les classant dans "auto create forms" ou "availables forms"
Je n'arrive pas à faire apparaitre celles dans "availables forms"
Prenon l'exemple d'une fenetre s'appellant "view"
pour ce, dans mon vieux boukin on me dit de faire par le code suivant:
procedure TMain.ouvrir1click(sender: Object);
var
View:Tview;
begin
if opendialog1.execute then begin
View:=Tview.create(application)
View.filename:=opendialog1.filename;
View.open;
end;
end;
Snowboarder69
Messages postés41Date d'inscriptionvendredi 7 février 2003StatutMembreDernière intervention23 juin 2007 28 sept. 2003 à 14:47
Essaye ceci:
procedure TMain.ouvrir1click(sender: Object);
begin
if opendialog1.execute then begin
Application.CreateForm(TView, View);
View.filename:=opendialog1.filename;
View.Show; // ou View.ShowModal (regarde l'aide)
end;
end;