Вниз
Скачать: CL | DM;

Как нужно изучать Дельфи :)))   Найти похожие ветки 

 
oldman ©   (2005-08-03 16:06) [0]

Небольшая задача для начинающих:
1. Создать Form1 и Form2
2. На Form1 расположить Button1 и Button2
3. На Form2 расположить несколько Label и Button
4. На Form1.Button1.OnClick написать "Form2.Show;"
5. На Form1.Button2.OnClick написать "Form2.Print;"
6. Скомлирировать, запустить.
7. Нажать на Button1. Посмотреть на Form2.
8. Нажать на Button2. Посмотреть на напечатанную копию Form2.
9. Закрыть Form2.
10. Нажать на Button2. Посмотреть на распечатку.
11. Подумать, "А куда делись кнопки?"
12. Почесать репу.
13. Пойти читать книжки...
:)))))

Сорри, если старая шутка.


 
_dimka ©   (2005-08-03 16:20) [1]

мдя....


 
oldman ©   (2005-08-03 17:29) [2]

А че?
У нашим стажеров глаза по 7 копеек стали... :)))


 
Alexander Panov ©   (2005-08-03 17:29) [3]

oldman ©   (03.08.05 17:29) [2]

А это и есть самый распространенный метод изучения - метод тыка;)


 
oldman ©   (2005-08-03 17:33) [4]


> Alexander Panov ©   (03.08.05 17:29) [3]


Вам смешно... а вот щас как придет в эту ветку месса от какого-либо...
"Блин, а куда кнопки-то делись?"
:))))))))))


 
Agent13 ©   (2005-08-03 17:55) [5]

Блин, а куда кнопки-то делись?


 
Джо ©   (2005-08-03 18:16) [6]


>
> [5] Agent13 ©   (03.08.05 17:55)
> Блин, а куда кнопки-то делись?

Смотри реализацию метода TWinControl.PaintTo. Вот это место:

 if FWinControls <> nil then
   for I := 0 to FWinControls.Count - 1 do
     with TWinControl(FWinControls[I]) do
       if Visible then PaintTo(DC, Left, Top);

А TLabel - не наследник TWinControl, поэтому рисуется.


 
oldman ©   (2005-08-03 18:19) [7]


> Джо ©   (03.08.05 18:16) [6]


Купился... На провокацию [5]...
:)))))))))))))


 
Джо ©   (2005-08-03 18:21) [8]


>  [7] oldman ©   (03.08.05 18:19)

Гхм... Я думал, человеку и вправду интересно :-)


 
han_malign ©   (2005-08-03 18:25) [9]

>Купился... На провокацию [5]...
>Джо ©   (03.08.05 18:21) [8]
- ну лично мне искать в лом было, хотя и понятно что проблема в Visible - так что, все таки, спасибо за сэкономленное время...


 
pasha_golub ©   (2005-08-03 18:58) [10]

Я не знал. Честно.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c
3-1121348982
Uran
2005-07-14 17:49
2005.08.28
Номер недели в ADO


6-1116237803
BanderLog
2005-05-16 14:03
2005.08.28
TIdTCPServer - обрыв связи


3-1121413900
286
2005-07-15 11:51
2005.08.28
Поиск в текстовом файле


9-1112773901
rainKM
2005-04-06 11:51
2005.08.28
Random (Pascal)


1-1123660831
tex
2005-08-10 12:00
2005.08.28
Печать на цветной принтер




   Наверх