Formulare/Komponenten stören sich gegenseitig

[alfold]

Schöner effekt
Spass beiseite, was mir auffällt ist die unterschiedlich Schriftgrösse!
Sollte aber normalerweise kein Grund sein den Cursor falsch zu platzieren, aber wer weiss?

kann aber erstmal nichts machen(in mein delphi7 anzupassen) muss weg leider.
erst 2300 zurück

Edit:
Hab mal was gemacht und ich hab mit meiner simplen Lösung kein Problem!
Hier mal Code wie ich von Grid zu Richedit es umgesetzt habe

Delphi-Quellcode:

//------- dies habe ich in frmText mal eingwefügt
procedure TfrmText.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to WantLines -1 do
   rceText.Lines.Add ('Zeile '+ inttostr(i+1));//<---hier hab ich mal +1 gemacht!
end
//-------- so setzt Du den Cursor--------
procedure TfrmText.SetRichLine(aRich: TRichEdit; aRichLine: Integer);
begin
    aRich.SelStart:= SendMessage(aRich.Handle, EM_LINEINDEX, aRichLine-1, 0);
end;
//----so kannst Du umgekehrt die Zeile im Richedit auslesen!
procedure TfrmText.GetRichLine(aRich: TRichEdit);
begin
    gridline := SendMessage (aRich.Handle, EM_LINEFROMCHAR, aRich.SelStart, 0);
end;

//zum test mal ein Timer eingesetzt
procedure TfrmText.Timer1Timer(Sender: TObject);
begin
    SetRichLine(rceText, myline);
end;
//-------------------------------------//


//------dies in frmgrid-------------
procedure TfrmGrid.grdCodeClick(Sender: TObject);
begin
    myline:= grdCode.Row;
end;
//--------------------------------------//

myline <---ist Ausnahmsweise mal ne globale Variable in der Mainform

Wie gesagt so funct es bei mir ohne probleme!

gruss alfold

[CarstenB]

Danke für deine Mühen , aber das löst leider nicht das Problem.

Es ist nicht das Ziel bei Klick auf eine Zeile im Debugger die entsprechende Quellcode-Zeile im RichEdit anzuspringen. Das ist ausserhalb dieses Testprogramms ohnehin nicht so einfach, da in AWL i.d.R. diverse andere Dateien mit eingebunden werden. Da geht die Ermittlung von Quelldatei und -zeile über Querverweislisten, etc.

Die Frage ist für mich einfach, warum es überhaupt eine Auswirkung auf das TRichEdit, TSynEdit oder sonstwas hat, wenn ich bei gleichzeitig sichtbarem StringGrid auf einem anderen Formular dort hineinklicke. Das dürfte m.E. einfach nicht passieren.

[CarstenB]

Ich bin beruhigt, dass ich wohl nicht der Einzige mit diesem Problem bin.

QualityCentral

Werde den Workaround mal ausprobieren. Die Abfrage auf self.Focused einzubauen scheint mir Sinn zu ergeben.

Edit: Klappt jetzt.

[alfold]

Ach so, ich konnte aber in D7 WinXP SP3, diesen effekt als solches nicht nachempfinden.
Hat man in D2007 die Routine etwas verändert und schon funct es nicht

Aber der Link von @CarstenB scheint dies ja zu beheben

Gruss alfold

[CarstenB]

Ja, es scheint so als ob die Macke mit der Version 2007 eingeführt wurde. Ein möglicher Workaround in der QC war ja auch die Grids.pas von der 2005er Version zu verwenden, also war diese wohl auch noch OK.