Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
24. Jun 2007
Ja die Hälfte des Textes ist danach blau hinterlegt.
Beim Windows Editor zumindest, könnte man ansonsten noch mit
var
SelStart, SelEnd : Integer;
begin
sleep(2000);
//lesen
SelStart:= 0;
SelEnd:= 0;
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
24. Jun 2007
Beim Editor von Windows funktioniert es bei mir auch, habe es mal eben noch an einen 2. PC getestet. Der Cursor befindet sich danach am Ende der zur Hälfte markierten Zeile.
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
24. Jun 2007
Hi,
eigentlich funktioniert es doch, zumindest wird Shift + End simuliert. Wenn ich zum Testen vorher ein Seep(2000) ausführe und innerhalb der 2 Sekunden den Cursor zum Beispiel in die Mitte einer Zeile im Editor setze, wird die Zeile von der Mitte bis zum Ende bei mir markiert.
procedure TForm1.Button1Click(Sender: TObject);
begin
sleep(2000);
Keybd_event(vk_Shift,0,0,0);
...