Welches Ereignis muß ich tEdit verändern?

[zillee]

Ist doch das gleiche ... oder nicht?
Mit SendMessage(Self.Handle, ..., ..., ...) oder Perform(..., ..., ...) kann ich doch auch die Eingabefolge bestimmen.

[humbuck]

Das ist sicherlich nicht das gleiche...

Ich bin jetzt zu faul zum Schreiben, deshalb eine kopierter Ausblick auf die Mühe mit Sendmessage...

Delphi-Quellcode:

const
   MY_MESSAGE = WM_USER + 4242;
  
type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
     // Handler that receive the Message
     procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE;
   end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
   txt: string;
begin
   txt := 'Hello World';
   SendMessage(Form1.Handle, MY_MESSAGE, 0, DWORD(PChar(txt)));
end;

// To receive this custom Message that is addressed to form1.handle
 // you need a message handler.

procedure TForm1.MessageReceiver(var msg: TMessage);
var
   txt: PChar;
begin
   txt := PChar(msg.lParam);
   msg.Result := 1;
   ShowMessage(txt);
end;

Sollte dir nach kurzer Analyse vielleicht weiter helfen...

[humbuck]

Hier noch ein "kleines" Beispiel:

Delphi-Quellcode:

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;
begin
poin.x := x; poin.y := y;
pos := SendMessage(rch.handle, EM_CHARFROMPOS, 0, integer(@poin));
If pos <= 0 Then Exit;
txt := rch.Text;
while (pos > 0)and(txt[pos] in ['0'..'9','a'..'z','A'..'Z','_',
'ö','Ö','ü','Ü','ä','Ä']) do dec(pos);
start_pos := pos+1;
inc(pos);
while (pos < length(txt))and(txt[pos] in ['0'..'9','a'..'z','A'..'Z','_',
'ö','Ö','ü','Ü','ä','Ä']) do inc(pos);
end_pos := pos;
result := copy(txt,start_pos,end_pos-start_pos);
end;

Funktionsaufruf:

Delphi-Quellcode:

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
statusbar1.SimpleText := GetActiveWord(richedit1,x,y);
end;

Aber warum nicht einfach, wenn's auch umständlich geht...

Wie bereits erwähnt: Was hast du eigentlich vor? Willste nur z.B. bei einer Passworteingabe ins PW-Verifizierungsfeld springen???

[zillee]

Nein, das ist ein Organisationsprogramm.
Ich habe es:

procedure TriggerKeyOnPress(Sender: tObject; var key: char);
begin
...
...
if ord(key) = VK_RETURN then beginn
key := #0;
Perform(WM_NextDlgCrt, 0, 0);
end;
...
...
end;

Vielen Dank!!

[himitsu]

Crt?
WM_NEXTDLGCTL oder Form.FindNextControl

Aber was ist/war eigentlich so schwer daran einfach mal zu erklären was genau du wolltest?
Und Quellcode bitte in [DELPHI] :zwinker:

[DeddyH]

http://www.delphipraxis.net/125006-w...n-richtig.html

[p80286]

@zillee

If you prefer to use the english language, it would be better to do so.

greetings
K-H

[Perlsau]

Zitat:

Zitat von zillee (Beitrag 1281630)

Welches Ereignis muß ich tEdit verändern?
Ich habe nach den Ereignis gesucht, aber es nicht gefunden. Eigenschaften und Ereignisse, welche Klick?

Besten Dank!

CROSSPOST