🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92681

[Lazarus] zdarzenie rodzica - pomocy!

#92681
From: Terrmit
Date: Fri, 31 Oct 2008 12:08
28 lines
1562 bytes
Witam,
Może tym razem ktoś mi pomoże.

Zrobiłem komponent dziedziczący z TStringGrid.
Potrzebuję wykryć moment dodania kolumny
realizowany za pomocą MyStringGrid.Columns.Add.
Pokryłem zdarzenie OnColRowInserted:

procedure TMyStringGrid.ColRowInserted(IsColumn: boolean; index: integer);
var i: Integer;
begin
   inherited ColRowInserted(IsColumn, index);
   ShowMessage('ColRowInserted, index='+IntToStr(index));
end;


ale to nic nie daje, ponieważ Columns.Add wywołuje
OnColRowInserted z klasy rodzica, a nie z mojej.
ShowMessage nie pojawia się. Co robię źle?

Jak to zrobić, żeby wykryć to zdarzenie z klasy
rodzica? Kombinuję z tym już jak "koń pod górę"
niestety bez rezultatu. Google też nie pomagają :/

Ma ktoś jakiś pomysł (lub wiedzę :D )?
Jeśli tak, to proszę się nimi podzielić :)

Sławek Załęcki
Technical Details
Message-ID: <geesfv$su4$1@achot.icm.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news2.icm.edu.pl!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news2.icm.edu.pl!not-for-mail
From: Terrmit <terrmitv@poczta.onet.pl>
Newsgroups: pl.comp.lang.pascal
Subject: [Lazarus] zdarzenie rodzica - pomocy!
Date: Fri, 31 Oct 2008 13:08:30 +0100
Organization: http://news.icm.edu.pl/
Lines: 28
Message-ID: <geesfv$su4$1@achot.icm.edu.pl>
NNTP-Posting-Host: chello089076219239.chello.pl
Mime-Version: 1.0
X-Trace: achot.icm.edu.pl 1225454912 29636 89.76.219.239 (31 Oct 2008 12:08:32 GMT)
X-Complaints-To: abuse@icm.edu.pl
NNTP-Posting-Date: Fri, 31 Oct 2008 12:08:32 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.16 (X11/20080723)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit