Pointer auf Richedit und Fontänderung

[der-C]

Hallo
ich habe ein Popupmenu welches in der Tag Property ein Pointer auf ein richedit hat.
nun will ich die Font(color,...) ändern aber es kommt bei der zuweisung immer eine AV

Delphi-Quellcode:

var
temprich:^trichedit;
begin
  TempRich := Pointer(Popupmenu1.Tag);
  if Fontdialog1.Execute then
  begin
    temprich.SelAttributes.Name := fontdialog1.Font.Name; // <--- Hier tritt die AV auf
  end;
end;

Was könnte das sein?

[alcaeus]

Hi der-C,

ist mit dem FontDialog alles ok? Bei mir hat der Code funktioniert, allerdings habe ich direkt was zugewiesen, und nicht über den Fontdialog.

Greetz
alcaeus

[der-C]

ja das habe ich auch ausprobiert das geht auch bei mir aber mit Fontdialog kommt AV,
das kann ich mir nicht erklären
wenn ich aber einem Richedit direkt ändere (also statt ^Trichedit nur TRichedit) dann gehts auch
vieleicht liegts ja an der addresse

[jim_raynor]

Dein Fehler liegt hier:

temprich:^trichedit;

TRichEdit ist bereits ein Pointer.

Bei der Zuweisung zur Tag Eigenschaft musst du nur sowas machen:

Popup.Tag:=Integer(RichEdit1);

Beim Auslesen reicht es dann wenn du

TRichEdit(Popup.Tag) schreibst. Die Variable temprich muss dann auch als

temprich: TRichEdit

definiert sein.

[alcaeus]

Hi der-C,

wird der FontDialog vllt. dynamisch erstellt? Und wie speicherst du die Adresse des Richedit ins Tag?
@jim-Raynor: dein Weg funktioniert leider nicht. Wenn die Adresse abgespeichert wird, dann musst du auch wieder mit einem Pointer drauf zugreifen. Du musst ihn aber nicht dereferenzieren.

Greetz
alcaeus

[jim_raynor]

Warum sollte es nicht funktionieren? TRichEdit ist doch quasi ein Pointer. Nur wird es von Delphi geschickt versteckt, da keinerlei Referenzierung notwendig sind.

Du kannst ohne Probleme:

temprich:=TRichEdit(Popup.Tag) machen (zumindest war es in Delphi 5 noch so).

[alcaeus]

Hi jim_raynor,

also folgender Code funktioniert bei mir (D7) nicht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Tag := Integer(@RichEdit1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var temprich: TRichEdit;
begin
  temprich := TRichEdit(Form1.Tag);
  FontDialog1.Execute;
  temprich.SelAttributes.Name := FontDialog1.Font.Name;
end;

Greetz
alcaeus

[add]
Ich sehe gerade, es funktioniert wenn ich Form1.Tag := Integer(RichEdit); schreibe.
[/add]

[der-C]

es funktioniert so wie es jim_raynor gesagt hat
danke
sind alle von TWinControl abgeleitete Datendypen Pointer, woran erkenne ich was Pointer ist und was nicht?

[jim_raynor]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Tag := Integer(@RichEdit1);
end;

Das ist ja auch schon mal Falsch. Durch das @ bekommst du die Adresse der Variable RichEdit1 raus. Nicht die Adresse des Richedit.


Schreibst du:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Tag := Integer(RichEdit1);
end;

(ohne das @) funktioniert es auch in Delphi 7 ohne Probleme!

[edit]Alle Objekte werden als Pointer behandelt!!![/edit]