procedure CMExit

[Ally]

Hallo,

ich versuche gerade eine Komponente von Delphi 7 nach Lazarus zu portieren.
Funktioniert auch tadellos, bis auf procedure CMExit die einfach nicht ausgeführt wird.
Kann mir da jemand weiterhelfen?

Gruß Ally


Lazarus Version: 0.9.26 beta unter Vista SP2



DELPHI

Code: Alles auswählen

type
  TMeinEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  ...
  ...
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
.
.
procedure TMeinEdit.CMExit(var Message: TCMExit);
begin
  ...
  Inherited;
end;

LAZARUS

Code: Alles auswählen

type
  TMeinEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  ...
    procedure CMExit(var Message: TLMExit); message LM_EXIT;
.
.
procedure TMeinEdit.CMExit(var Message: TLMExit);
begin
  ...
  Inherited;
end;

[theo]

GidF
http://www.delphi-forum.de/viewtopic.ph ... ea341217b4" onclick="window.open(this.href);return false;

[Ally]

Hallo theo,

vielen Dank für die schnelle Antwort.
Leider genau das gleiche Problem, unter Delphi funktioniert DoExit einwandfrei und unter Lazarus nicht.

Gruß Ally

[Euklid]

Hallo,

ich weiß, dass es unter der 0.9.26 Probleme in Verbindung mit Exit-Ereignissen gab, die in neueren Snapshots behoben sind. Möglicherweise handelt es sich bei deinem Problem um ein Bug in Lazarus?
In diesem Fall könnte die Nutzung einer aktuellen Snapshot
http://snapshots.lazarus.shikami.org/lazarus/" onclick="window.open(this.href);return false;
helfen.

Viele Grüße, Euklid

[Ally]

Hallo,

ich konnte zwar nicht herausfinden woran es lag, aber in einem neuen Projekt funktioniert die Komponente mit

Code: Alles auswählen

procedure TMeinEdit.DoExit;
begin
  ...
  ...
   inherited DoExit;
end;

einwandfrei. Danke für Eure Antworten.

Gruß Ally