Школоло / Говнокод #13319 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
procedure TForm1.CloseChecker1Click(Sender: TObject);
begin
Halt;
end;

procedure TForm1.CoolTrayIcon1DblClick(Sender: TObject);
begin
Form1.Show;
CoolTrayIcon1.IconVisible:=false;
end;

end.

Продолжение. Начало на http://govnokod.ru/13317, http://govnokod.ru/13318

Запостил: Stertor Stertor, (Updated )

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

    • ava Bart # Ссылка на оригинал 0 ⇈

      Видимо, в названиях. Хотя, скорее, там уже гумус.
      Ответить

    • ava Lowezar # Ссылка на оригинал 0 ⇈

      По-моему уже можно даже не вчитываясь ставить минус если автор Stertor и язык Pascal. 🙂 А вот комменты к чужим постам порой весёлые пишет. 🙂
      Ответить

      • ava Stertor # Ссылка на оригинал 0 ⇈

        Не торопитесь с выводами, сын мой; во-первых, не паскаль, а Делфи, во-вторых, Стертор хоть и тролль, но никогда не троллит порядочных людей - это просто ниже его достоинства. Поугорать всласть можно над латексными изделиями типа guest и еще некоторых.
        Ответить

  • ava bormand # Ссылка на оригинал 0 

    procedure1 TForm1.CloseChecker1Click4(Sender8: TObject7);
begin1
    Halt3;
end1;

procedure2 TForm1.CoolTrayIcon1DblClick1(Sender2: TObject2);
begin2
    Form1.Show2;
    CoolTrayIcon1.IconVisible5 := false3;
end2;
    Ответить

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

Из-за тебя ушел bormand, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓