Forum: Sonstige Fragen zu Delphi
by humbuck,
30. Nov 2014
Hier noch ein "kleines" Beispiel:
function GetActiveWord(rch : TRichedit;x,y: integer): string;
var pos : Integer;
poin : TPoint;
start_pos : Integer;
end_pos : Integer;
c : Char;
txt : string;
txtlen : Integer;
Forum: Sonstige Fragen zu Delphi
by humbuck,
30. Nov 2014
Das ist sicherlich nicht das gleiche...
Ich bin jetzt zu faul zum Schreiben, deshalb eine kopierter Ausblick auf die Mühe mit Sendmessage...
const
MY_MESSAGE = WM_USER + 4242;
type
TForm1 = class(TForm)
Forum: Sonstige Fragen zu Delphi
by humbuck,
30. Nov 2014
Das ist jetzt aber schon ein ganz anderes Thema...
...und leider auch etwas unbegreiflich...
Es wäre sehr hilfreich, wenn du etwas umfangreicher beschreiben würdest, wo dich dein Weg hinführen soll...
Forum: Sonstige Fragen zu Delphi
by humbuck,
30. Nov 2014
Wenn per tab-taste weiter willst, musst den Wert taborder berücksichtigen...
Forum: Sonstige Fragen zu Delphi
by humbuck,
30. Nov 2014
Er will nach Beendigung der Eingabe dann automatisch zum nächsten TEdit springen...
In die onkeypress des vorherigen TEdit eintragen schreiben
case key of
#13 : begin
key := #0
edit2.SetFocus;
end;
end;
Forum: Sonstige Fragen zu Delphi
by humbuck,
30. Nov 2014
Ja, es wär hilfreich, wenn du mal etwas genauer beschreiben würdest, was du machen willst.
Ich vermute jedoch, willst die Ereignisprozeduren erneut aufrufen oder modifizieren:
Das ginge dann so:
>>ProzedureName(Self)<<
z.B. Edit1Change(self)