Edit zu TCaption

[Schilkschi]

Habe hier schon gesucht aber nichts gefunden...

SetCursorPos(Edit1.text));

Also ganz simpel denk ich mir mal aber wie wandle ich den String zu TCaption?

String wäre "111, 111"
Hab irgendwas mit Shellexecute gefunden ...

Ich bin noch nicht allzu gut, deshalb so eine Frage.
Also bitte Verständniss haben und langsam erklären ;)

[citybreaker]

IntToStr = Integer in einen String umwandeln
StrToInt = String in einen Integer Wert umwandeln

Beispiel:

Delphi-Quellcode:

var i: integer;
begin
  i := 40;
  Label1.Caption := IntToStr(i); 
end;

Oder bei SetCursorPos

Delphi-Quellcode:

SetCursorPos(StrToInt(Edit1.text));

[Schilkschi]

Na so dumm bin ich auch wieder nicht ;)

Also eine TCaption ist sowas: "KoordinateX, KoordinateY"
also kein Integer, sagt mir dann er könne die beiden nicht zusammenfügen, was ich verstehen kann denn da isssn Komma zwischen, also ein TCaption und kein Int.

[alanblack]

hI;

Vielleicht könnte uns ein stücksen code weiterhelfen!

mfg alan

[Schilkschi]

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var z :TPoint;
begin
SetCursorPos(1,1);         //Maus setzen
GetCursorPos(z);           //Posi holen
mouse_event(MOUSEEVENTF_LEFTDOWN,z.x,z.y,0,0);  //klicken
mouse_event(MOUSEEVENTF_LEFTUP,z.x,z.y,0,0);
// in Edit trägt User seine Koordinaten ein die er vorher lesen kann

das wars mehr ist nicht nötig für das was ich möchte ...


Leute kommt schon ich weiss sons nicht an wen ich mich wenden soll! Meine Informatik Lehrer habe ich schon seit der 5. mit meinen Fragen überfordert ^^

Also ich habe ein Edit
SetCursorPos(TEXT VON EDIT); <-- der soll da rein aber das issn String da muss aber TPoint oder TCaption rein

Wie kann ich also Edit1.text in Tpoint umwandeln? Der Text von Edit1 sieht so aus wie der von TPoint:
a.x, a.y
111, 111

SetCursorPos(1,1); mache ich das?
Gibt es nicht sowas wie strtoTPoint ???

[Schilkschi]

SRY Doppelpost

[Pseudemys Nelsoni]

keine doppelposts vor 24std, siehe DP rules.

[alcaeus]

Also, wenn der Beistrich und das Leerzeichen dazwischen sind, dann geht es doch ganz leicht, die TPoint-Variable zu füllen.

Delphi-Quellcode:

var
  MeinString: String;
  P: TPoint;
begin
  MeinString := Edit1.Text;
  P.x := StrToInt(Copy(MeinString,1,Pos(',',MeinString)-1));
  Delete(MeinString,1,Pos(',',MeinString)+1);
  P.y := StrToInt(MeinString);
end;

Der Code müsste so funktionieren.

Greetz
alcaeus

[Schilkschi]

Delphi-Quellcode:

var
  MeinString: String; 
  P: TPoint;
begin
  MeinString := Edit1.Text;
  P.x := StrToInt(Copy(MeinString,1,Pos(',',MeinString)));
  Delete(MeinString,1,Pos(',',MeinString)+1);
  P.y := StrToInt(MeinString);

GetCursorPos(p);
mouse_event(MOUSEEVENTF_LEFTDOWN,p.x,p.y,0,0);  //klicken
mouse_event(MOUSEEVENTF_LEFTUP,p.x,p.y,0,0);
// in Edit trägt User seine Koordinaten ein die er vorher lesen kann

So also? Klappt aber nicht kommt ne Meldung:
EConvertError with MEssage "572 <--- Koord, is not a valid Integer. Process stoped bla bla

[alcaeus]

Na sag mal was in dem Edit1 was für ein Text drinnenstand?
Außerdem habe ich durch Zufall bei einer Zeile etwas wichtiges vergessen:

Delphi-Quellcode:

P.x := StrToInt(Copy(MeinString,1,Pos(',',MeinString)));

wird zu

Delphi-Quellcode:

P.x := StrToInt(Copy(MeinString,1,Pos(',',MeinString)-1));

Vielleicht behebt das das Problem, aber die Daten müssen so im Edit drinnenstehen:
#, #
Wobei # für eine beliebig lange Zahl steht.