Markierter Text in TField

[se0man]

Hoi,

nach ewigem Searchen :wall:
entschied ich mich nun doch dafür,
eine hoffentlich nicht allzu blöde Frage
als Neues Thema zu 'eröffnen':

Wie kann ich auf den markierten Text
der in meinem DBGrid befindlichen
TField-Komponente zugreifen?

DBGrid.SelectedField.AsString &
DBGrid.SelectedField.Text
liefern mir unbefriedigenderweise
den gesamten Text des Feldes.

Thanx,

- se0man

[fkerber]

Hi!

Gibt es da sowas wie Seltext?

Ciao fkerber

[se0man]

Ne, leider nicht.

- se0man

[se0man]

Es kann doch nicht sein,
dass das nicht möglich ist !?
:gruebel:
Hat denn niemand eine Idee?

[se0man]

Wow!
Bin ich da also schon an die Grenzen von Delphi gestoßen...
:-D

[se0man]

So,
jetzt bin ich am Punkt meines Programmes angelangt,
an dem ich ohne die Lösung dieses Problems,
nicht weiter komme.
:shock: Habt ihr wirklich keine Hilfen??

:wall: Alles was ich will,
ist es auf den markierten Text meines DBGrids
(während sich die Zelle im Edit-Modus befindet)
zugreifen.

Das muss doch irgendwie zu bewerkstelligen sein.

Stellt euch vor, ihr steht vor diesem Problem.
Was würdet ihr machen?? :gruebel:

Dankbar für jede Idee
-se0man

[se0man]

Habe in DF ne Antwort bekommen:

Code:

function GetStringGridOrDBGridSelText(Grid : TWinControl) : String;
var
  Wnd       : Cardinal;
  Buf       : String;
  SelStart  : Cardinal;
  SelEnd    : Cardinal;
begin
  Wnd:=GetWindow(Grid.Handle,GW_CHILD);
  SendMessage(Wnd,EM_GETSEL,Integer(@SelStart),Integer(@SelEnd));
  SetLength(Buf,SendMessage(Wnd,WM_GETTEXTLENGTH,0,0)+1);
  SendMessage(Wnd,WM_GETTEXT,Length(Buf),Integer(@Buf[1]));
  Result:=Copy(Buf,SelStart+1,SelEnd-SelStart);
end;

Zitat:

Kannst ja mal die Delphi Hilfe zum Typ "Cardinal" aufrufen. Dann bekommst du eine Auflistung aller Typen und deren Gültigkeitsgrenzen.

Das Windows Betriebssystem stellt allen Win32 Programmen die sogenannte WinAPI zur Verfügung. Die WinAPI ist nichts anderes als eine riesige Sammlung von Befehlen (gepackt in verschiedene DLL Dateien).

Die Funktionalität der TMemo Komponente ist z.B. keine Erfindung von Borland. TMemo erlaubt den vereinfachten Zugriff auf das EditBox Feature der WinAPI. Wenn du also ein Memo in dein Programm einbaust, dann gehört das weisse Memo Feld eigentlich nicht dir oder Delphi sondern Windows. Das Fenster ist sozusagen nur geborgt. Deshalb kannst du darauf auch direkt zugreifen, ohne über das TMemo Interface von Delphi zu gehen. Die meisten solchen Komponenten haben ein "Handle" Property, welches du für den Zugriff über die WinAPI brauchst. Meistens geschieht der Zugriff über sogenannte Fensternachrichten (Window Messages) mit der SendMessage Funktion.

Um dein Problem zu lösen, habe ich zusert versucht, ein paar Messages wie WM_GETTEXT oder EM_GETSELTEXT an das DBGrid Control zu senden. Als das keinen Erfolg zeigte, hab ich das folgende Tool gestartet: http://kobik.videodot.net/spy_capture.asp

Es zeigt dir, aus welchen Controls ein Fenster aufgebaut ist und wie die Klassennamen heissen. Diese Namen kann man dann bei den WinAPI Funktionen FindWindow und FindWindowEx verwenden. Da die StringGrid und DBGrid Controls nur ein Child Window besitzen, gings auch ohne Klassennamen über GetWindow(Wnd,GW_CHILD).

Wenn du die Enterprise Version von Delphi hast, kannst du im Quelltext nachgucken, wie die Delphi Komponenten aufgebaut sind. Die StringGrid Komponente benutzt zum Editieren ein TInPlaceEdit Objekt was von TCustomMaskEdit abgeleitet ist welches wiederum von TCustomEdit abgeleitet ist. So sieht man auch schnell, welche Window Messages unterstützt werden.

Alle WinAPI Befehle sind auch in Delphi verwendbar, wenn die richtige Unit eingebunden ist. Die wichtigsten Befehle sind in der Unit "Windows" enthalten. Diese Befehle sind in der Delphi Help selber nicht enthalten, da sie nichts mit Borland zu tun haben, sondern von Microsoft kommen und in einer eigenen Help Datei beschrieben sind.

Bei meinem Delphi7 kann ich die WinAPI Help im Menu "Hilfe-Windows SDK" aufrufen.

Falls dein Kopf vor lauter obskuren Erklärungen schon etwas dröhnt, kannst du ja auch einfach etwas mit den WinAPI Befehlen herumspielen und mal gucken, was es denn so alles gibt. Nach einer Weile wird's dann viel klarer.

Das oben genannte Spy Programm ist sicher auch sehr hilfreich. Damit kann man auch Messages an andere Fenster abschicken, z.B. WM_DESTROY, WM_SHOW usw...

[se0man]

Meine Frage jetzt an alle Non-VCL Kids,
(auch an die anderen...): :mrgreen:

Wie schaffe ich es nun,
einen kopierten Text an der aktuellen Cursor-Position (im Field)
einzufügen? :pale:

EM_GETSEL gibt mir ja je nach Position (0,1,2,3,...)
die seltsamen Werte 0,10001,20002,30003,... aus.
Aber hilft mir das weiter?
Ich wüsste nicht wie...


ciao
-se0man

[Muetze1]

Moin!

Entweder ein WM_SETTEXT oder WM_SETSELTEXT senden...

MfG
Muetze1

[se0man]

thx, für die schnelle Antwort,

WM_SETSELTEXT existiert leider nicht,
und WM_SETTEXT ersetzt ja den ganzen Text.
Oder gibt es bei zweiterem etwa die Möglichkeit,
eine Startposition anzugeben?

thx
-se0man

[Muetze1]

Moin!

Sorry, die Nachricht heisst EM_REPLACESEL um die Selektion zu ersetzen. Nähere Info's dazu in der MSDN..

MfG
Muetze1

[se0man]

hey,
:thuimb:
thxxx !!

Genau das was ich benötigte!

...manche Probleme lösen sich ja fast von selbst :zwinker:

ciao
-se0man

[se0man]

:gruebel:
Jetzt noch eine kleine Frage:
Ist es nötig, den markierten Text mit '' zu ersetzen,
um ihn zu löschen, oder gibt es noch so etwas in der Richtung EM_DELETESEL,
(was es ja nicht gibt... :lol: )??


-se0man

[se0man]

Ich muss mich verbessern:

Es ist nämlich nicht nur 'nicht nötig',
sondern vielmehr 'nicht möglich' das mit EM_REPLACESEL
zu machen. Das verursacht eine AV. :wall:

Irgendwelche Ideen??

-se0man

[se0man]

OK, ich hab es:
Nennt sich WM_CLEAR.

thx, trotzdem.
-se0man

[se0man]

Nun, an dieser Stelle mach ich dann mal eine kleine Zusammenfassung,
dieses Threads, also Cut, Copy and Paste in einem Field.

Code:

procedure Tform1.Cut;
begin
  // markierten Text kopieren
  Clipboard.AsText := GetDBGridSelText;
  // markierten Text löschen
  SendMessage(GetWindow(DBGrid.Handle,GW_CHILD),WM_CLEAR,0,0);
end;

procedure Tform1.Copy;
begin
  // markierten Text kopieren
  Clipboard.AsText := GetDBGridSelText;
end;

procedure Tform1.Paste;
var
  cardinalClipbrdText: Cardinal;
begin
  // an aktueller Position einfügen
  cardinalClipbrdText := Cardinal(Clipboard.AsText); // kopierten Text als Cardinal in Variable
  SendMessage(GetWindow(DBGrid.Handle,GW_CHILD),EM_REPLACESEL,1,cardinalClipbrdText); // Text an aktueller Position ausgeben
end;

function Tform1.GetDBGridSelText: String;
var
  cardinalWnd,
  cardinalSelStart,
  cardinalSelEnd
    : Cardinal;
  strBuffer
    : String;
begin
  cardinalWnd := GetWindow(DBGrid.Handle,GW_CHILD);
  SendMessage(cardinalWnd,EM_GETSEL,Integer(@cardinalSelStart),Integer(@cardinalSelEnd));
  SetLength(strBuffer,SendMessage(cardinalWnd,WM_GETTEXTLENGTH,0,0)+1);
  SendMessage(cardinalWnd,WM_GETTEXT,Length(strBuffer),Integer(@strBuffer[1]));
  Result := Copy(strBuffer,cardinalSelStart+1,cardinalSelEnd-cardinalSelStart);
end;

thx
-se0man