🚀 go-pugleaf

> zeby ustawic parametr Enabled dla wszystkich komponentow na Panelu 


każde cóś dziedziczy po TObject metodę dispatch, wiec wystarczy we własnych
komponentach dopisac obsługę komunikatu.

Tak to moze wyglądac od strony Panela :
var m :Tmessage ;
    o : TComponent ;
    m.Msg := MOJE_ENABLED ;
    m.result := 0 ;

    for a := 0 to panel.componentcount -1 do
     begin
       o := panel.components[a] ;
       o.dispatch( m ) ;
     end ;



a w komponencie trzeba dopisac obsługę komunikatu :

  type
   TZmodyfikowanyKomponent = class( cokolwiek ) ;
     protected
      procedure MojeEnabled( var msg : TMessage ) message MOJE_ENABLED ;

   end ;




procedure TZmodyfikowanyKomponent.MojeEnabled( vat msg : TMessage ) ;
begin
   // i tu stosowne działania
end ;


powodzenia





-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/