Problème de dllRésolu

Question

Bonjour,

J'ai un probl&#232;me de fonctionnement avec une dll qui a pour but tr&#232;s "basique" de souligner ou non un TLabel en fonction de la position de la souris (onMouseEnter ou onMouseLeave). J'utilise alors la propri&#233;t&#233; font.style du TLabel pour lui attribuer ou non la sp&#233;cificit&#233; [fsunderline ou lui retirer].

Le bug se produit alors losque je d&#233;sire fermer la fen&#234;tre apr&#232;s avoir fait fonctionner les deux &#233;v&#232;nements du TLabel. A noter que le bug ne se produit pas si je d&#233;sire par exemple modifier le caption du TLabel ou sa couleur &#224; la place de son aspect soulign&#233;.

Voici le code :

fichier projet :


unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls ;


type
  TForm1 =  class(TForm)
    Label1: TLabel;
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


procedure lien_enter(Sender: TObject); StdCall; external 'dll\Project1.dll' name 'lien_enter';
procedure lien_leave(Sender: TObject); StdCall; external 'dll\Project1.dll' name 'lien_leave';


implementation


{$R *.dfm}


procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
   lien_enter(Sender);
end;


procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
   lien_leave(Sender);
end;



 fichier dll : 


library Project1;


uses
  Windows, Controls, StdCtrls, SysUtils, Classes, Graphics;

{$R *.RES}


procedure lien_enter(Sender: TObject); StdCall;
begin
   TLabel(Sender).Font.Style : = [fsUnderline];
end;


procedure lien_leave(Sender: TObject); StdCall;
begin
   TLabel(Sender).Font.Style := [];
end;


exports
lien_enter, lien_leave;


begin


end.



Message d'erreur :


1er : L'instruction &#224;"0x004284bb"" emploie l'adresse m&#233;moire "0x00000000". La m&#233;moire ne peut pas &#234;tre "read".
2&#232;me : Exception EAccessViolation dans le module Project1.exe dans 000284BB. etc...

Si quelqu'un peut m'aider...
Merci

Or&#233;lien.

cs_grandvizir · Accepted Answer

Je vois bien ce que tu veux faire : c'est violent.

Le plus simple (et le plus propre) est d'exploiter CM_MOUSELEAVE et CM_MOUSEENTER. C'est d'ailleurs ce que tu fais indirectement.

A moins que tu veuilles travailler sur des handles. Dans ce cas, transformer TLabel en TStatic.

Bref, la solution n'est pas miraculeuse. Elle est simple et pas prise de t&#234;te : on n'utilise pas de DLL pour ce genre de trucs. J'en vois pas l'int&#233;r&#234;t... autant d&#233;velopper un composant CLASS.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls ;
type
  TForm1 = class(TForm)
    Label1: TLabel;

  private
    procedure Highlight(Sender:TObject);
    procedure UnHighlight(Sender:TObject);
  end;

var Form1 : TForm1;
implementation
{$R *.dfm}
  procedure TForm1.Highlight(Sender: TObject);
  begin
    (Sender as TLabel).Font.Style:=[fsUnderline];
  end;
  procedure TForm1.UnHighlight(Sender: TObject);
  begin
    (Sender as TLabel).Font.Style:=[];
  end;
end.

Ainsi, sur chacun de tes labels, avec l'inspecteur d'objets, tu feras converger les propri&#233;t&#233;s OnMouseEnter et OnMouseLeave sur Highlight et UnHighlight.

Evite de faire :   TLabel(Sender).Machin
Pr&#233;f&#232;re :            (Sender as TLabel).Machin
Pourquoi ?
      Ca g&#233;n&#232;rera une exception si ton Sender n'est pas TLabel.
Question propret&#233;.

Ou alors, c'est un probl&#232;me de convention d'appel. Essaye de remplacer STDCALL par FAR.

C'est l'architecture de la strat&#233;gie qui bat de l'aile.

===========
Validez les r&#233;ponses si ok...

ViewVite XP : HTML

Problème de dll

1 réponse

Votre réponse

Discussions similaires