Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Delphi: nadpisywanie procedur rysowania (procedure TForm1.FormPaint)

leburaque 23 Kwi 2011 17:53 1079 2
  • #1 23 Kwi 2011 17:53
    leburaque
    Poziom 17  

    Witam!

    Mam nadzieję, że problem opiszę wystarczająco dokładnie.

    Z wielu FAQ próbuję nauczyć się rysowania w swoim TForm. Używam do tego oczywiście Canvas. Napisałem kilka procedur, które mają wyświetlać formy graficzne. Dopóki wywołuję je np. poprzez jakiś TButton (Button1Click(Sender: TObject);) to znaki się wyświetlają zgodnie z planem. Nie potrafię natomiast nadpisać procedur samej formy:

    procedure Form1.FormPaint(Sender: TObject);
    begin

    { czego bym tu nie wstawił - nic się nie wyświetla }

    end;

    Wcześniejsza implementacja wygląda tak:

    type
    TForm1 = class(TForm)
    {...}
    procedure FormPaint(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    Co robię nie tak, że nie wyświetla mi się absolutnie nic, czego bym tam nie nadpisał, a jeśli to samo zrobię np. przez przycisk, albo cokolwiek innego, to działa?

    Bardzo dziękuję za każdą informację.

    0 2
  • Pomocny post
    #2 24 Kwi 2011 15:48
    lanky
    Poziom 17  

    Zamknij projekt i do pliku Unit1.dfm dopisz linijkę kodu: OnPaint = FormPaint
    Albo po prostu w Object Inspektorze w zakładce Events kliknij 2x na OnPaint

    0