1. Pascal / Говнокод #7963

    +101

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    procedure TForm1.ShowPaletteButtonClick(Sender: TObject);
begin
if Form2.Visible = False then Form2.Visible := True;
Form2.BringToFront;
end;

    кстати о документации
    подлинное говно от багланд интернейшнл
    пруф - http://docwiki.embarcadero.com/CodeExamples/en/BringToFront_(Delphi)

    Запостил: bugmenot, 24 Сентября 2011

    Комментарии (10) RSS

    • ava Lure Of Chaos 24.09.2011 12:43 # −1

      Дельфи - говно.
      TForm1, Form2... И хз зачем условие -- видимо, человеческое "только если"
      Ответить

      • ava bugmenot 24.09.2011 12:57 # 0

        > TForm1, Form2
        это пример, типа смягчающее и увлажняющее обстоятельство
        а вот бульшит прямо в туториале...
        Ответить

      • ava Dummy00001 24.09.2011 14:20 # +2

        > И хз зачем условие

        я точно уж непомню, но была такая херня: установка некоторых пропертей в VCL была сделано топорно/навярняка, что приводило к морганиям и перерисовкам всей формы. поэтому код такими тупыми проверками и обрастал.
        Ответить

    • ava SmackMyBitchUp 24.09.2011 12:49 # +1

      А если убрать 3ю строчку, то есть вероятность выслать разведчиков под покровом ночи.
      Ответить

    Добавить комментарий