TStringGrid in Delphi7 und XE

[jan001]

Ohne Instanz ist OK. Das ist nur als Beispiel. Ich brauche aber mit Instanz - Anruf von anderer Unit.

[DeddyH]

Stimmt die Instanz? Ist dort auch die korrekte Zelle markiert? Sollte man nicht lieber Logik und Darstellung trennen?

[Daniela.S]

Zitat:

Ohne Instanz ist OK. Das ist nur als Beispiel. Ich brauche aber mit Instanz - Anruf von anderer Unit.

Unabhängig von dem Problem jetzt... dafür solltest du besser eine Public-Funktion machen, die du dann in der anderen Unit aufrufst. Ansonsten erzeugst du sehr viele Abhängigkeiten.

[jan001]

In richtigem Programm habe ich public function gemacht, aber das Problem bleibt.

[Klaus01]

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
  Label2.Caption:= Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row];
end;

Woher bekommst Du denn hier die Spalten- und Zeilekoordianten her?
Solltest Du die X,Y Werte nicht in GridKoordinaten umwandeln und dann benutzen?

Grüße
Klaus

[jan001]

Das braucht man nicht.
Es geht nur um Form1.StringGrid1.Cells und StringGrid1.Cells

[DeddyH]

Hast Du meine Nachfragen aus #5 schon geprüft?

[jaenicke]

Hast du vielleicht ein Testprojekt, das du hier anhängen kannst? Denn ohne zu wissen welche Formulare da erstellt werden, sprich ob Form1 überhaupt stimmt usw. lässt sich da nicht viel zu sagen.

[jan001]

Hier ist link zu Projekt im D7 und XE5.
http://www.a101.de/test/D7.ZIP
http://www.a101.de/test/XE5.ZIP

[baumina]

Delphi-Quellcode:

program Project1;

uses
  Vcl.Forms,
  Unit1 in '..\test7\Unit1.pas' {Form1}; // ist das wirklich die richtige unit?????

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1); // warum eigentlich 2mal?????
  Application.CreateForm(TForm1, Form1); // warum eigentlich 2mal?????
  Application.Run;
end.