Entwickler-Ecke :: Thema anzeigen - Label9Click(nil); geht nicht.

Coder - So 11.04.04 11:52
Titel: Label9Click(nil); geht nicht.

Hi
ich hab in kleines Problem und ich weis nicht wie ich es wegbekomme:
Wenn ich

Delphi-Quelltext

1:	Label9Click(nil);

benutze kommt immer die Fehlermeldung:
"Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

Moderiert von Udontknow: Verschoben.

Coder - So 11.04.04 12:38

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo8.Lines.LoadFromFile ('starts');
If Memo8.Text = Memo7.Text
then
    begin
      Label9Click(nil);
      Memo8.Caption := '0';
      Memo8.Lines.SaveToFile ('starts');
    end
else
    begin
      Memo8.Caption := IntToStr(StrToInt(Memo8.Caption) + 1);
      Memo8.Lines.SaveToFile ('starts');
    end;
end;

Da fällt mir gerade auf das ich es auch in eine while schleife hätte machen können. ...

bms hat folgendes geschrieben:

Gibt es überhaupt Label9Click?

Ja, ich hab ein Label wie einen Link aussehen lassen.

Self hat auch nicht funktioniert.

DaRkFiRe - So 11.04.04 13:41

Poste doch mal den Quellcode von Label9Click.

Ach ja - versuch's mal mit

Delphi-Quelltext

1:	Label9Click(Label9);

Denn nich umsonst heißt der der Click-Procedure übergebene Parameter des Typs TObject "Sender."

Udontknow - Di 13.04.04 11:17

Bekommst du das zur Laufzeit oder bereits beim Kompilieren (nennt es sich noch so?).

Ich glaube, es liegt daran, daß es in D8.NET nicht mehr möglich ist, ungültige Objektverweise zu übergeben. Bisschen merkwürdig ist es aber schon, zumindest NIL sollte doch weiterhin zu übergeben sein...

Ich verschiebe das mal in die .NET-Sparte.

Cu,
Udontknow

Delete - Di 13.04.04 12:40

Udontknow hat folgendes geschrieben:

Ich verschiebe das mal in die .NET-Sparte.

Ja, aber warum? Das hier

Coder hat folgendes geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo8.Lines.LoadFromFile ('starts');
If Memo8.Text = Memo7.Text
then
    begin
      Label9Click(nil);
      Memo8.Caption := '0';
      Memo8.Lines.SaveToFile ('starts');
    end
else
    begin
      Memo8.Caption := IntToStr(StrToInt(Memo8.Caption) + 1);
      Memo8.Lines.SaveToFile ('starts');
    end;
end;

sieht mir nicht nach .NET aus. Oder weißt du was, was ich nicht weiß?

Übrigens, eben mit Delphi 5 getestet:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShowMessage('Hallo, Welt!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.Label1Click(nil);
end;

Geht.

PS: Ah, ich sehe ... das Profil von Coder.

Zitat:

Coder

Microsoft Windows XP Home Edition Service Pack 1a
D8 .NET

Äh, @Coder, unter Delphi 8 gibt´s ein spezielles Link-Label. Da musst du gar nichts machen, das sieht schon von Natur wie ein Hyperlink aus. Habe ich bei den WinForms gesehen, sollte in der VCL.NET eigentlich auch verfügbar sein.

PPS: Obwohl es ja auch ein Delphi 7-Programm sein könnte. Das liegt ja auch in der Schachtel von D8 drin.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!