Also, wie man meinem Projekt im Freewareforum (GaGaEditor) entnehmen kann,
arbeite ich dran, dass wenn man den Cursor z.B. irgentwo zwischen
(nicht ) hat, ein PopUpMenu mit allen dazu
gültigen Attributen erscheint.
Ich dachte ich könnt es so lösen:
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject); // 2000 MS
var
aTag: String;
begin
while aTag <> '<a' do // nur ein tippfehler .. hat nix mit dem code zu tun =)
begin
aTag := Copy(SynMemo1.Text, CurPosition-1, 2);
// CurPos.-1 = zurück gehen bis <a kommt und dann eine Teilstring von einer länge
// von 2 zeichen kopieren
Caption := aTag; // zum anlure, ob alles richtig ist (erstmal) als Caption ausgeben
end;
end;
So.. Ich kann nicht sagen obs klappt (denke aber schon, müsste)
wenn da nicht ein Problem wäre:
Mein Programm HÄNGT wenn dieser Timer an ist ?!