Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Seltsamer Fehler (https://www.delphipraxis.net/117025-seltsamer-fehler.html)

Privateer3000 10. Jul 2008 08:32


Seltsamer Fehler
 
Hallöchen,

beim zuweisen eines OnClick-Ereignisses tritt folgender Fehler auf:
Delphi-Quellcode:
[Fehler] panelen.pas(132): Inkompatible Typen: 'TMouseEvent' und 'procedure, untyped pointer or untyped parameter'
Das witzige ist die gleichen bedingungen liegen auch in einer anderen Unit vor.
Und dort funktioniert das ganze.

Was kann man aus der Fehlermeldung erkennen?

Die Muhkuh 10. Jul 2008 08:34

Re: Seltsamer Fehler
 
Weist Du es über den OI zu oder per Quelltext?

Stimmen die Parameter nicht überein?

Privateer3000 10. Jul 2008 08:57

Re: Seltsamer Fehler
 
das OnClick wird einem Button zugewiesen
der erstellt wird.
während des Create-prozesses wird das ereignis zugewiesen.
Wie gesagt in einer anderen Form wird das gleiche gemacht
ohne Probleme...

mkinzler 10. Jul 2008 08:58

Re: Seltsamer Fehler
 
Du scheinst eine freie Prozedur/Funktion statt einer Methode verwendet zu haben

Privateer3000 10. Jul 2008 09:08

Re: Seltsamer Fehler
 
hat das was vllt. damit zu tun,
dass es sich um einen Frame handelt, auf dem der Button
erstellt wird.?
aber in der anderen Unit ist es genauso.
Es handelt sich IMHO aber um eine Methode:
Delphi-Quellcode:
procedure Tpans.artbutClick(Sender: TObject);
var sztag:Integer;
begin
if Sender is TXiButton then begin sztag:=TComponent(Sender).Tag; end;
with buttonquer do begin
Close; SQL.Clear;
SQL.Text:='SELECT * FROM buttons WHERE id=:TG1';
Prepared:=True;
Parameters.FindParam('TG1').Value:=sztag;
Open;
end;
end;

onClick:=artbutClick(Sender);

DeddyH 10. Jul 2008 09:13

Re: Seltsamer Fehler
 
Lass mal den Sender bei der Zuweisung weg.
Delphi-Quellcode:
onClick:=artbutClick;

sirius 10. Jul 2008 09:18

Re: Seltsamer Fehler
 
Delphi-Quellcode:
if Sender is TXiButton then {begin} sztag:=TComponent(Sender).Tag; {end;}
Hier kannst begin..end weglassen. Ist ja nur ein Befehl drin.

Luckie 10. Jul 2008 09:25

Re: Seltsamer Fehler
 
Bitte gib deinem Thread einen aussagekräftigen Titel. Du bist jetzt schon über sechs Jahre Mitglied hier und solltest das eigentlich wissen.

Privateer3000 10. Jul 2008 09:34

Re: Seltsamer Fehler
 
Sorry Luckie,
aber ich wußte nicht im Moment wie ich "Das Ding" nennen sollte.
Zuma im Kopf andere Sachen rumgeistern, wenn man feststeckt...

:oops:

QuickAndDirty 10. Jul 2008 10:22

Re: Seltsamer Fehler
 
onClick:=artbutClick(Sender); // das geht nicht
onClick:=artbutClick;// das geht

Privateer3000 10. Jul 2008 10:27

Re: Seltsamer Fehler
 
Was ist jetzt genau der Unterschied?
Es geht in meinem Fall ohne...

Luckie 10. Jul 2008 10:30

Re: Seltsamer Fehler
 
Wie wäre es mit der Fehlermeldung?

DeddyH 10. Jul 2008 10:35

Re: Seltsamer Fehler
 
Zitat:

Zitat von Luckie
Wie wäre es mit der Fehlermeldung?

Zitat:

Zitat von Privateer3000
Hallöchen,

beim zuweisen eines OnClick-Ereignisses tritt folgender Fehler auf:
Delphi-Quellcode:
[Fehler] panelen.pas(132): Inkompatible Typen: 'TMouseEvent' und 'procedure, untyped pointer or untyped parameter'


automatix 10. Jul 2008 10:38

Re: Seltsamer Fehler
 
Hallo!

Im ersten Fall soll artbutClick mit dem Parameter Sender aufgerufen und der Rückgabewert dem Property onClick zugewiesen werden, was ja aus mehreren Gründen nicht geht.
Im zweiten Fall für die Adresse der Prozedur artbutClick dem Property onClick zugewiesen, was korrekt ist.

Grüße

Luckie 10. Jul 2008 10:43

Re: Seltsamer Fehler
 
Zitat:

Zitat von DeddyH
Zitat:

Zitat von Luckie
Wie wäre es mit der Fehlermeldung?

Zitat:

Zitat von Privateer3000
Hallöchen,

beim zuweisen eines OnClick-Ereignisses tritt folgender Fehler auf:
Delphi-Quellcode:
[Fehler] panelen.pas(132): Inkompatible Typen: 'TMouseEvent' und 'procedure, untyped pointer or untyped parameter'


Genau, alles nach dem zweiten Doppelpunkt wäre ein aussagekräftiger Threadtitel. ;)

DeddyH 10. Jul 2008 10:44

Re: Seltsamer Fehler
 
Ach, so war das gemeint. Ich dachte, Du hättest nach der Fehlermeldung gefragt, die stand ja schließlich da.

Privateer3000 10. Jul 2008 14:21

Re: Seltsamer Fehler
 
Ja doch,
ich hab mir ja schon 3 Rüffelpunkte ins Rüffelbuch geschrieben....

Das nächstemal
Versprochen

mkinzler 10. Jul 2008 14:37

Re: Seltsamer Fehler
 
Und warum änderst du den Betreff dann nicht?


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz