TMemo OnChange

Kode 

Memo1 := TMemo.Create(ATabsheet);
with Memo1 do
begin
Visible := true;
Font.Name := 'Courier New';
Font.Size := 10;
Height := 521;
Width := 849;
WantTabs := true;
Parent := ATabsheet;
OnChange := TForm1.Memo1Change;
end;

Jeg får følgende fejl:
[Error] Unit1.pas(84): Incompatible types: 'TNotifyEvent' and 'Procedure'
[Fatal Error] ProjectX.dpr(5): Could not compile used unit 'Unit1.pas'

Problemet ligger ved OnChange.. jeg har også prøvet at undlade TForm1 - altså bare OnChange := Memo1Change; Men der får jeg undeclared blabla....
Nogen der har en løsning på dette?

Såvidt jeg ved han du ikke referere direkte til en objekttype(TForm1). Du skal istedet bruge Form1

MH.

The-Freak

Livet er for kort til at kede sig.

Du behøver ikke oprette en pointer til Memoen. Den sendes med eventen (som TObject), så det du skal gøre er at typecaste den v.hj.a as-operatoren:

procedure TForm1.Memo1Change(Sender: TObject);
var
  Lines, Chars: integer;
begin
  Lines := (Sender as TMemo).CaretPos.Y+1;
  Chars := (Sender as TMemo).CaretPos.X+1;
  StatusBar1.Panels[0].Text := Format('Ln: %d', [Lines]);
  StatusBar1.Panels[1].Text := Format('Col: %d', [Chars]);
end;

mvh
hsv

Kode 

Memo1 := TMemo.Create(ATabsheet);
with Memo1 do
begin
Visible := true;
Font.Name := 'Courier New';
Font.Size := 10;
Height := 521;
Width := 849;
WantTabs := true;
Parent := ATabsheet;
OnChange := TForm1.Memo1Change;
end;

Jeg får følgende fejl:
[Error] Unit1.pas(84): Incompatible types: 'TNotifyEvent' and 'Procedure'
[Fatal Error] ProjectX.dpr(5): Could not compile used unit 'Unit1.pas'

Problemet ligger ved OnChange.. jeg har også prøvet at undlade TForm1 - altså bare OnChange := Memo1Change; Men der får jeg undeclared blabla....
Nogen der har en løsning på dette?

Såvidt jeg ved han du ikke referere direkte til en objekttype(TForm1). Du skal istedet bruge Form1

MH.

The-Freak

Livet er for kort til at kede sig.

Ja det hjalp lidt, tak .. Nu får jeg ingen fejl under compiling. Men funktionen virker ikke:

procedure TForm1.Memo1Change(Sender: TObject);
var
Lines,Chars: integer;
begin
Lines := Memo1.CaretPos.Y+1;
Chars := Memo1.CaretPos.X+1;
StatusBar1.Panels[0].Text := Format('Ln: %d', [Lines]);
StatusBar1.Panels[1].Text := Format('Col: %d', [Chars]);
end;

Meningen er at den skal hente linie nummer osv. Fra Memo1 i den aktive tab. Hvordan kan jeg så bruge CaretPos på PageControl1's Memo ? Håber i forstår hvad jeg mener..

For at løse dette bliver du nød til at oprette en variabel med en pointer eller lign til den memo du har på din tab. Du kan så bruge denne Pointer til at ændre i memoen,

MH.

The-Freak

Livet er for kort til at kede sig.

Jeg er desværre ikke lige den skarpe kniv eller saks i skuffen til TPageControl..
Jeg har prøvet med f.eks

Lines := PageControl1.ActivePage.Memo1.CaretPos.Y+1;
men der får jeg
[Error] Unit1.pas(105): Undeclared identifier: 'Memo1'
[Error] Unit1.pas(105): Missing operator or semicolon
[Fatal Error] ProjectX.dpr(5): Could not compile used unit 'Unit1.pas'

Jeg har ikke lige nogen idé til hvordan jeg kan pege hen på Memo1.. Nogen der ved det?
På forhånd tak..