Discussion :

[b_boys150]

Bonjour,

PREMIERE FORMS :
Un bouton avec un popup menu

Deuxièmes FORMS
DEUX TEDIT
Un bouton pour ajouter du texte dans le fichier INI

Ce que je veux :
Mètre un TITRE au TEXT et le TEXT lol DANS LE INI
Ensuite j'aimerais que la Caption du menu de mon popumenu
Contienne le titre du texte qui va chercher dans le INI
il risque d'avoir plusieurs TITRE et TEXTE c'est pour cela que je veux les différenciés

Et que quand je clique sur le buttons mon sendmessage envoie le texte

MON FICHIER INI :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure T2Form.bouton1 Click(Sender: TObject);
begin
  ini := Tinifile.Create('C:\Users\b_boys150\Desktop\TEST.ini');   // Creation d'un fichier ini
 
    ini.WriteString('Raison','nom',Ajout.Text); // écrit une chaîne
 
    ini.WriteInteger('Raison','largeur',Screen.Width); // écrit un nombre
 
      ini.free; // on libère

MON SEND MESSAGE DU menu dans le POPUPMENU :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure T1form.SENDClick(Sender: TObject);
begin
 
  Send := SendMessage(ll, WM_GETTEXTLENGTH, 0, 0);
 
    Sendmessage( ll, WM_SETTEXT, 0, integer(Pchar('ICI LE TEXT QUE JE RECUPERE))); // envoie un message texte dans la saisie de texte
 
      SendMessage(mm,WM_LBUTTONDOWN,0,0);  // simule le clic gauche en appui
 
        SendMessage(mm,WM_LBUTTONUP, 0, 0);    // simule le clic gauche en relache
 
end;

merci pour votre aide je ne sais pas si j'ai réussi a me faire comprendre

[khaled-benloucif]

sault


j'ai buggé ici:

Mètre un TITRE au TEXT et le TEXT lol DANS LE INI

essaye S.T.P d'éclaircir la question

[b_boys150]

Salut merci de ta réponse

Et bien cela est simple

Je veux un titre dans l'ini

Et à coter le texte qui sera envoyé dans le send message

GENRE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
[PREMIER TEXT]
 
MONTITRE=MONTEXT
 
[DEUXIEME TEXTE]
 
MONTIRE=MONTEXT

De façons à pouvoir récupérer Mon Titre et le mètre dans la CATION du menu pop-up

Par contre, quand je vais cliquer sur le menu du pop-up il m'enverra le texte

Je ne sais pas si c'est compréhensible j'ai un peu de mal j'avoue lol

[khaled-benloucif]

Bon, pour générer le fichier ini, voici un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button_genIniFileClick(Sender: TObject);
var IniFile: TIniFile;
		I: Integer;
begin
 with TIniFile.Create(ExtractFilePath(ParamStr(0))+'test.ini') do
	try
	 for I := 0 to 9 do
		WriteString('PopupMenu_Item'+IntToStr(I), 'Caption', 'valeur'+inttostr(I))
  finally
	 Free
  end
end;

avant d'avancer, je veux que tu m'explique pourquoi tu emploi le SendMessage?

procedure T1form.SENDClick(Sender: TObject);
begin

Send := SendMessage(ll, WM_GETTEXTLENGTH, 0, 0);

Sendmessage( ll, WM_SETTEXT, 0, integer(Pchar('ICI LE TEXT QUE JE RECUPERE))); // envoie un message texte dans la saisie de texte

SendMessage(mm,WM_LBUTTONDOWN,0,0); // simule le clic gauche en appui

SendMessage(mm,WM_LBUTTONUP, 0, 0); // simule le clic gauche en relache

end;

Le popupMenu existe il déjà ou tu va le créer dynamiquement?

[khaled-benloucif]

j'ai pas compris on entend quoi par:

Par contre, quand je vais cliquer sur le menu du pop-up il m'enverra le texte

sous forme de Dialogue par exemple? et ce texte il représente quoi ?

[b_boys150]

Sur ma première form mon bouton se passe en deux événements

On click = Pop-up s'ouvre avec un Titre

On click sur le menu qui enverra le TEXTE qui se rapporte au titre

Et tout ça doit ce trouvé dans un fichier INI

GENRE en FINAL il enverra ça

TITRE1 DU POPUP je clique dessus et il envoie

LE TEXT EN DUR + MON TEXTE DE L'INI

Et donc pour ça je dois avoir une deuxièmes forme qui va me servir d'éditeur

[khaled-benloucif]

désolé j'arrive plus à te suivre