Jeg er desperat!!!

Tags:    delphi

User
Bruger #535 @ 19.09.02 16:07
Nu staser jeg mæsten det hele for jeg er mere eller mindre desperat. Jeg har problemmer med denne fejl:

Jeg har en mainform og en form3, på form3 har jeg en listview1, og en ok knap. På mainform har jeg en memo i en TMDI løsning, og jeg bruger så denne kode til at smide det valgte fra listview1 boxen over i min memo.

procedure TForm3.FlatButton1Click(Sender: TObject);
begin
Mainform.TMDI(ActiveMDIChild).edit.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\\skab\\'+ listview1.Selected.Caption + '.htm');
end;

Men den kommer med en fejl

Den kommer med denne fejl når jeg compiler:
[Error] Unit3.pas(38): Undeclared identifier: 'TMDI'
[Error] Unit3.pas(38): Missing operator or semicolon
[Error] Unit3.pas(38): Missing operator or semicolon
[Hint] Unit3.pas(17): Private symbol 'CreateMDIChild' declared but never used

Hvad skal jeg gøre?


Mvh
Jesper



5 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato

procedure TForm3.FlatButton1Click(Sender: TObject);
begin
Mainform.TMDI(ActiveMDIChild).edit.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\\skab\\'+ listview1.Selected.Caption + '.htm');
end;


Prøv med:

<pre>
uses
unit1, unit2;

procedure TForm3.Button1Click(Sender: TObject);
var
Form: TForm2;
begin
Form := TForm2(Form1.ActiveMDIChild);
Form.Memo1.Lines.Add(ListView1.Selected.Caption);
end;
</pre>

unit1 er den unit hvori din mainform er, unit2 er den unit hvori du har din MDI form og TForm2 er navnet på selve MDI formens klasse.





Nu staser jeg mæsten det hele for jeg er mere eller mindre desperat. Jeg har problemmer med denne fejl:

Jeg har en mainform og en form3, på form3 har jeg en listview1, og en ok knap. På mainform har jeg en memo i en TMDI løsning, og jeg bruger så denne kode til at smide det valgte fra listview1 boxen over i min memo.

procedure TForm3.FlatButton1Click(Sender: TObject);
begin
Mainform.TMDI(ActiveMDIChild).edit.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\\skab\\'+ listview1.Selected.Caption + '.htm');
end;

Men den kommer med en fejl

Den kommer med denne fejl når jeg compiler:
[Error] Unit3.pas(38): Undeclared identifier: 'TMDI'
[Error] Unit3.pas(38): Missing operator or semicolon
[Error] Unit3.pas(38): Missing operator or semicolon
[Hint] Unit3.pas(17): Private symbol 'CreateMDIChild' declared but never used

Hvad skal jeg gøre?


Mvh
Jesper

Jeg har selv skulle gøre det samme det jeg har gjort er at jeg har oprettet en procedure på mainformen som gør hvad det er man vil og så kalder den fra den anden form.

Mvh
Kaare



User
Bruger #535 @ 19.09.02 19:13
Det virker ikke, den kommer med den ene fejl efter den anden.


procedure TForm3.FlatButton1Click(Sender: TObject);
begin
Mainform.TMDI(ActiveMDIChild).edit.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\\skab\\'+ listview1.Selected.Caption + '.htm');
end;


Prøv med:

<pre>
uses
unit1, unit2;

procedure TForm3.Button1Click(Sender: TObject);
var
Form: TForm2;
begin
Form := TForm2(Form1.ActiveMDIChild);
Form.Memo1.Lines.Add(ListView1.Selected.Caption);
end;
</pre>

unit1 er den unit hvori din mainform er, unit2 er den unit hvori du har din MDI form og TForm2 er navnet på selve MDI formens klasse.


Mvh
Jesper



Det virker ikke, den kommer med den ene fejl efter den anden.


Kunne det tænkes du gad fortælle hvilke fejl det er den kommer med?


PS. Gider du ikke fjerne alt det overflødige når du svarer?



User
Bruger #535 @ 23.09.02 18:23

Jeg har fået en anden til at svare på det.

Mvh
Jesper



t