Cambio COLORI nei campi!!! AIUTO !!

6 Risposte

• M

  mago

  Pochi posts

  Iscritto da

  lug, 2004

  Messaggi:

  11

  Re: Cambio COLORI nei campi!!! AIUTO !!

  22 lug 2004, 18:57

  Non conosco Borland C++ Builder 6, ma te lo posso dire in Delphi che dovrebbe essere simile se non uguale.
  
  Devi creare una procedura del tipo:
  
  Procedure ObjectEnter(Oggetto : TObject);
  begin
  if Oggetto is TEdit then
  TEdit(Oggetto).Color := clBlue;
  
  if Oggetto is TComboBox then
  TComboBox(Oggetto).Color := clBlue;
  End;
  
  Con un if per ogni tipo di oggetto che puoi utilizzare.
  Poi crei una procedura ObjectExit con le stesse caratteristiche, ma con il colore bianco.
  
  L’evento Enter sarà:
  procedure TForm1.Edit1Enter(Sender: TObject);
  begin
  inherited;
  ObjectEnter(Sender);
  end;
  
  Stessa cosa per l’evento Exit
  
  In questo modo devi riportare solo 1 riga per ogni evento
  
  Spero di esserti stato utile.
  Ciao.
  
• M

  Morpheus

  Utente Attivo

  Iscritto da

  apr, 2003

  Messaggi:

  72

  Re: Cambio COLORI nei campi!!! AIUTO !!

  23 lug 2004, 20:50

  I suggerimenti di delphi non sono corretti né nella forma né nel contenuto. Per fare una cosa fatta bene dovresti rieditarti il componente che ti server ed aggiungere due eventi: onMouseOver, onMouseLeave; anche perchè ,da come la persona di prima ha scritto, non si capisce chi ti faccia scattare l'evento!!!
  
  Programmatore Delphi di livello avanzato sempre pronto a collaborazioni soprattutto se remunerative.
• M

  mago

  Pochi posts

  Iscritto da

  lug, 2004

  Messaggi:

  11

  Re: Cambio COLORI nei campi!!! AIUTO !!

  26 lug 2004, 12:53

  Scusa se non sono stato chiaro,
  ObjectEnter è una semplice procedura,
  mentre l’evento utilizzato, Edit1Enter, sarebbe l’evento OnEnter dell’oggetto Edit1 di tipo TEdit inserito nella mappa.
  Mi sembrava una buona soluzione in quanto editando la sola procedura ObjectEnter, si poteva gestire il colore dell’oggetto selezionato di qualunque tipo esso sia (TEdit, TcomboBox, TcheckBox, ecc…).
  
  Ma mi piacerebbe molto approfondire la soluzione di Morpheus, se mi potresti far sapere come si fa ad editare un componete standard, e magari aggiungerlo alla palette di Delphi te ne sarei grato.
• M

  Morpheus

  Utente Attivo

  Iscritto da

  apr, 2003

  Messaggi:

  72

  Re: Cambio COLORI nei campi!!! AIUTO !!

  26 lug 2004, 14:14

  Questo per esempio è un componente che mi sono fatto io. Non è altro che un TImage con in + gli eventi mouse enter, mouse leave.
  
  TImageEx = class (TImage)
  private
  { Private declarations }
  FOnMouseLeave: TNotifyEvent;
  FOnMouseEnter: TNotifyEvent;
  procedure CMMouseEnter(var msg: TMessage);
  message CM_MOUSEENTER;
  procedure CMMouseLeave(var msg: TMessage);
  message CM_MOUSELEAVE;
  protected
  { Protected declarations }
  procedure DoMouseEnter; dynamic;
  procedure DoMouseLeave; dynamic;
  public
  { Public declarations }
  published
  { Published declarations }
  property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;
  
  
  il codice degli eventi e delle procedure è
  
  procedure TImageEx.CMMouseEnter(var msg: TMessage);
  begin
  DoMouseEnter;
  end;
  
  procedure TImageEx.CMMouseLeave(var msg: TMessage);
  begin
  DoMouseLeave;
  end;
  
  procedure TImageEx.DoMouseEnter;
  begin
  if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
  end;
  
  procedure TImageEx.DoMouseLeave;
  begin
  if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
  end;
  
  Spero di essere stato chiaro. Se vuoi altri suggerimenti dimmelo
  
  Programmatore Delphi di livello avanzato sempre pronto a collaborazioni soprattutto se remunerative.
• M

  mago

  Pochi posts

  Iscritto da

  lug, 2004

  Messaggi:

  11

  Re: Cambio COLORI nei campi!!! AIUTO !!

  26 lug 2004, 17:00

  Ciao…
  Ho creato la nuova classe TImageEx, ma non sono riuscito a capire chi e come richiama le procedure:
  procedure TImageEx.CMMouseEnter(var msg: TMessage);
  procedure TImageEx.CMMouseLeave(var msg: TMessage);
  
  e a che cosa serve nella dichiarazione “dynamic” delle procedure:
  procedure DoMouseEnter; dynamic;
  procedure DoMouseLeave; dynamic;
  
  Grazie.
• M

  Morpheus

  Utente Attivo

  Iscritto da

  apr, 2003

  Messaggi:

  72

  Re: Cambio COLORI nei campi!!! AIUTO !!

  26 lug 2004, 17:53

  Se ci fai caso dopo la dichiarazione della procedura CMMouseEnter
  c'è specificato il messaggio di windows da trappare e cioè
  message CM_MOUSEENTER;
  dunque non troverai una procedura che lo richiama ma è lo stesso windows che richiama la procedura al verificarsi dell'evento mouse enter. Dynamic specifica che il metodo dichiarato può essere reeditato e reimplementto da altre classi come lo specificatore virtual. L'unica differenza tra i 2 è che virtual è ottimizzato per la velocità di esecuzione mentre dynamic per memoria utilizzata. Per esempio se dichiari molti metodi virtual che sai che solo pochi verranno reimplementati dalla classe che li utilizza ti conviene dichiararli dynamic per il semplice fatto che solo dynamic non utilizza memoria se il metodo non è reimplementato. Spero di essere stato chiaro. Non è facile spiegare cose che sono abbastanza difficili per sviluppatori non molto esperti.
  
  Programmatore Delphi di livello avanzato sempre pronto a collaborazioni soprattutto se remunerative.