Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -=IOI=-,
11. Dez 2008
Ich hab jetzt noch einiges weiter versucht und konnte das Problem nun endgültig lösen.
Es war ein Gedankenfehler in meiner FindMemo Funktion.
Trotzdem danke an alle, die sich an der Frage beteiligt haben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -=IOI=-,
10. Dez 2008
Das kann genausowenig funktionieren, da ich ja trotzdem auch .Controls zugreifen müsste, mein SynEdit dort aber garnicht drin ist.
In .Controls ist es jedoch auch nocht. Das hab ich schon probiert.
Eindeutige Namen vergeben wird schwierig, da ich eine variable Anzahl an TabSheets habe, von denen man auch jedes Löschen kann.
Weitere Komponenten sind nicht auf dem TabSheet.
Es muss doch...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -=IOI=-,
10. Dez 2008
Ok, also bei FreeAndNil meckert er wegen dem Parameter ( main.pas(984): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden)
Es gibt die Methode RemoveControl(), aber der Effekt ist derselbe wie bei .Destroy.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -=IOI=-,
10. Dez 2008
FreeAndNil() gibt es für ein RichEdit garnicht.
Aber das mit dem Index hatte ich mir auch schon gedacht un daran liegt es wohl auch. Denn der Fehler tritt genau in der ersten Zeile auf, in der ich auf dieses Element versuch zuzugreifen.
Könnte ich also irgendwie sicherstellen, dass mein SynEdit in der Komponentenliste bei 0 steht?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -=IOI=-,
10. Dez 2008
Fehlermeldung:
Zugriffsverletzung bei Adresse 0044654C in Modul 'DeskEdit.exe'. Lesen von Adresse 000001A0.
Ich hätte nur ungern Komponenten am Laufen, die ich garnicht benötige, aber im Notfall werde ich es wohl mit visible lösen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by -=IOI=-,
10. Dez 2008
Ich hab mal wieder ein Problem.
ich hab ein TabSheet, auf dem ein RichEdit ist. Über ein Popup Menu möchte ich nun zur Laufzeit, dieses RichEdit durch ein Synedit ersetzen und auch wieder umgekehrt.
Hier mal mein Quellcode für die beiden Fälle:
procedure TForm1.Quellcodemodus1Click(Sender: TObject);
var
NewSyn: TSynEdit;
begin
memo := FindMemo(ActiveControl); //aktives Tabsheet...