extractfilepath et curseur sur un edit!!!

Question

slt tlm;
j'ai deux petites questions:

1) j'ai un nom de fichier executable sans le '.exe' à la fin, et je veux avoir son chemin dans le disque dur, j'ai éssayer avec la fonction : ExtractFilePath(Edit1.Text); mais ça n'a pas marché!!!
avez vous une autre idée???

2) j'ai une chaine de caractère écrite dans un TEdit, je veux placer le curseur clignotant (|) dans un emplacement bien défini au milieu de la chaine!!
connaissez vous une fonction qui fais ce truc???
merci infiniment!
ciao

cptpingu · Answer

1) La fonction ExtractFilePath traite une chaine de caractere, elle va pas trouver un fichier sur le disque dur pour toi. Il faut que tu utilise des fonctions du genre "findnext" et autre en partant recursivement de la racine.

2) SetCursosPos ?

Cirec · Answer

Salut,

Voici un petit exemple qui permet de définir et/ou récuperer la position du curseur dans un TEdit, TMemo ... etc

{Function qui récupère la position du Curseur} 
Function GetCaretPos(aHandle : THandle): TPoint;
Begin
  Result.X :=   LongRec(SendMessage(aHandle, EM_GETSEL, 0, 0)).Hi;
  Result.Y := SendMessage(aHandle, EM_LINEFROMCHAR, Result.X, 0);
  Result.X := Result.X - SendMessage(aHandle, EM_LINEINDEX, -1, 0);
 End ;

 {Procedure qui définit la position du Curseur}  
Procedure SetCaretPos(aHandle : THandle; Value: TPoint);
var
  CharIdx: Integer;
begin
  SetFocus(aHandle);
  CharIdx :  = SendMessage(aHandle, EM_LINEINDEX, Value.y, 0) + Value.x;
  SendMessage(aHandle, EM_SETSEL, CharIdx, CharIdx);
end;

{ Utilisation } 
procedure TForm1.btn_GetCaretPosClick(Sender: TObject);
Var Point : TPoint;
begin
  Point :=   GetCaretPos(Edit1.Handle);
  Label1.Caption := Format('X : %d, Y : %d', [Point.X, Point.Y]);
 end ;

procedure TForm1.btn_SetCaretPosClick(Sender: TObject);
var
  Value : TPoint;
begin
  Value.x : = 2;  Value.y :0;  // dans un Edit il n'y a qu'une ligne ... donc Y 0  
  SetCaretPos(Edit1.Handle, Value);
 end ;

 
@+
Cirec

<hr size  ="2" />

cs_othland · Answer

slt tlm;


pour la position du curseur dans le TEdit, je viens de trouver ça :
///////////////////////////


Edit1.SetFocus;


Edit1.SelStart := 2; //le curseur se positionne aprés la deuxièmme letre de ce qui est 
                               //écrit dans le champ edit!!
///////////////////////
ciao

Extractfilepath et curseur sur un edit!!!

3 réponses

Votre réponse

Discussions similaires