Pointer auf Richedit und Fontänderung

[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]