TGraphicControl avec ou sans canvas?Résolu

Question

Bonsoir,


L'Aide Delphi nous dit :
« TGraphicControl fournit une propriété Canvas pour accéder à la surface de dessin du contrôle ».


Mais quand je fais, par exemple :


procedure MaProcedure(Control : TControl);
var DC : HDC;
    CV : TCanvas;
begin
  if Control is TWinControl 
     then  DC := GetDC((Control as TWinControl).Handle);  //-->ça passe.
 
  

if Control is TGraphicControl 
     then CV := (Control as TGraphicControl).Canvas;  //--> Delphi a changé d'avis : ça passe pas.
end;





D'où ma question :
Comment savoir si le contrôle passé en paramètre possède un Canvas?


Merci

Guillemouze · Accepted Answer

ca ne passe pas car canvas est protected sur TGraphicControl

tu peu outrepasser la protection en utilisant l'astuce suivante:

type
  TMyGrpCtrl = class(TGraphicControl) end;

procedure MaProcedure(Control : TControl);
var DC : HDC;
    CV : TCanvas;
begin
  if Control is TWinControl 
     then  DC := GetDC((Control as TWinControl).Handle);  //-->ça passe.
 
  
if Control is TGraphicControl 
     then CV := (Control as TMyGrpCtrl ).Canvas;
end;

sp40 · Answer

Bonjour,

Quel message d'erreur te renvoie Delphi, pour ton deuxième cas ?

Simon

Caribensila · Answer

Merci beaucoup pour l'astuce.

TGraphicControl avec ou sans canvas?

3 réponses

Votre réponse