|
Внимание! Теперь для входа на форум необходимо вводить единый пароль регистрации сервисов sibnet.ru!
Здравствуйте, гость ( Вход | Регистрация )
Сейчас обсуждают
 
| |
|
|
ЧаВо по Pascal/Delphi, Спрашивайте, не стесняйтесь. |
|
|
mephisto |
7.6.2008, 21:31
|
ортодоксальный линуксоид
Группа: VIP
Сообщений: 7 724
Регистрация: 17.11.2007
Из: столицы вашей родины
Пользователь №: 10 849
|
Тема пока пустая, так что не стесняйтесь задавать вопросы. Еще лучше, если к вопросам будет прилагаться ответ Куратором темы назначается ??????? (место вакантно )
|
|
|
|
ЧаВо по Pascal/Delphi, Спрашивайте, не стесняйтесь. |
|
|
Segate |
16.6.2008, 15:08
|
:)
Группа: Sibnet-club
Сообщений: 1 677
Регистрация: 9.1.2008
Из: Новосибирск
Пользователь №: 16 184
Репутация: 171
|
Цитата((-=Dargin=-) @ 16.6.2008, 14:03) А вы не слышали про эвенты onMouseEnter, onMouseLeave, onMouseDown? Зачастую это проще чем искать компоненты-скины.
Слышали, но какой код? изменить положение на пару пикселей вправо и вниз?
|
|
|
|
(-=Dargin=-) |
16.6.2008, 19:50
|
.
Группа: Пользователи
Сообщений: 471
Регистрация: 8.12.2007
Из: Барнаула
Пользователь №: 12 820
Репутация: 43
|
Цитата(Segate @ 16.6.2008, 15:08) Слышали, но какой код? изменить положение на пару пикселей вправо и вниз?
Эт если не лень Я обычно просто бросаю дополнительные TImage на форму с Visible := False, а потом присваеваю Image1.Picture := Image2.Picture. Мож и не правильно с точки зрения логики, но зато быстро делать. Картинки можно закинуть еще в ресурсы программы. Цитата(oL___Eg @ 16.6.2008, 17:34) Как фон формы поменять? Текстуру какую-нибуть забабахать Ну либо просто кинь TImage на фон, либо если хочешь замостить можно на канве рисовать. Попозже мож кину примерчик. Вот есть способ создания градиентной заливки: » Спойлер (нажмите, чтобы прочесть) « Код {Считается, что координаты первого цвета равны (A1, A2, A3), а второго (B1, B2, B3) Кроме того, линия начинается в координатах (X1,Y1), а заканчивается в (X2,Y1)}
var h, i: integer; begin h:=X2-X1-1; for i:=0 to h do with PaintBox1.Canvas do begin Pen.Color:=RGB(A1-(A1-B1)/h*i, A2-(A2-B2)/h*i, A3-(A3-B3)/h*i); Rectangle(I,Y1,I+1,Y1); end; end. Цитата(oL___Eg @ 16.6.2008, 17:34) ps Dargin в бд на делфи рулишь? Компонент dbNavigator: какой код выполняется допустим при нажатии на кнопку обновить таблицу? Мне надо чтобы обновление происходило автоматически при входе на форму(у меня добавление записи на одной форме, таблица на другой), а так пока не нажать кнопку обновить, таблица пустая(
Попробуй выполнить DBNavigator1.Refresh после изменения таблицы или на Form.onCreate.
|
|
|
|
Segate |
16.6.2008, 21:05
|
:)
Группа: Sibnet-club
Сообщений: 1 677
Регистрация: 9.1.2008
Из: Новосибирск
Пользователь №: 16 184
Репутация: 171
|
Цитата(oL___Eg @ 16.6.2008, 16:34) Как фон формы поменять? Текстуру какую-нибуть забабахать Так давайте попорядку Если все красивинько хочешь то 1) возьми с вкладки Additional компонент Image. 2) Растяни ее на всю форму или в ее инспекторе обьектов свойство Align поставь AlClient (тода она будет на всю форму=) ) 3) В инспекторе обьектов в свойстве Picture засунь картинку 4) чтобы подогнать картинку под размер компонента в инспекторе обьектов image-а в свойстве Stretch укажи true 5) последний штрих): нажми на ней правой кнопкой мыши->Control->Send to Back эт чтобы все остальное поверх картинки было, всмысле чтоб она фоном была Если ты хочешь стандартную панель винфовса заменить на свою какуюнибудь, то 1) у фонового компонента image свойство Align поставь AlBottom 2) кинь на форму еще 1 компонент image и его Align поставь Altop и загрузи в нее картинку 3) Свойство формы Borderstyle поставь bsNone 4) Подгони второй компонент image по размерам так, чтобы он был похож на панельку 5) в обработчике событий onMoseDown того image, который вместо доски впиши Код try ReleaseCapture; Perform (WM_SYSCOMMAND,SC_MOVE+2,0); except end;
Воть налатал секунд за 20, чтоб легче было разобраться Учись
Прикрепленные файлы
1.rar ( 4.48 мегабайт )
Кол-во скачиваний: 126
|
|
|
|
VitBank |
17.6.2008, 14:50
|
Поддерживает разговор
Группа: Sibnet-club
Сообщений: 236
Регистрация: 8.5.2008
Пользователь №: 32 284
Репутация: 12
|
Цитата(oL___Eg @ 17.6.2008, 15:28) C фоном разобрался, спс! А как сделать чтоб у надписи фон был такойже, прозрачным как-нибуть можно сделать?
ps refresh не обновляет, мож какой-нибуть другой код?
У большинства компонентов есть такая функция как Transparent вот и выстови её в True.
|
|
|
|
oL___Eg |
17.6.2008, 15:02
|
Синька чмо, похмелье лох
Группа: Sibnet-club
Сообщений: 188
Регистрация: 24.3.2008
Пользователь №: 26 587
Репутация: 20
|
Я вас сейчас вопросами завалю, и тема пустовать не будет и мне поможете Вопрос №1 Как сложить два числа(оба находятся в label) я в этих strtoint запутался уже Вопрос №2 : Можно сделать чтоб надпись сменилась допустим через секунд 5 на другую? Вопрос №3 : Как сделать чтоб image менялся в соответствии с тем что выбрано в dbCombobox? Сообщение отредактировал oL___Eg - 17.6.2008, 15:06
|
|
|
|
VitBank |
17.6.2008, 16:12
|
Поддерживает разговор
Группа: Sibnet-club
Сообщений: 236
Регистрация: 8.5.2008
Пользователь №: 32 284
Репутация: 12
|
Цитата(oL___Eg @ 17.6.2008, 16:02) Вопрос №1 Как сложить два числа(оба находятся в label) я в этих strtoint запутался уже Вопрос №2 : Можно сделать чтоб надпись сменилась допустим через секунд 5 на другую? Вопрос №3 : Как сделать чтоб image менялся в соответствии с тем что выбрано в dbCombobox? Ответ на вопрос 1: » Спойлер (нажмите, чтобы прочесть) « var I: Integer; Str: String; Begin I := StrToInt(Str); end;
Ответ на вопрос 2: » Спойлер (нажмите, чтобы прочесть) « 1. Ставишь компонент Timer, что на вкладке System. 2. Выставляешь свойство Interval равным 5000, что соответствует 5000 миллисекундам или 5 секундам. 3. Тыкаеш по компоненту Timer два раза левой кнопочкой мыши и в обработчики события пишешь, например: var I: Integer; < . . . > Begin Label1.Caption := "Шляпа" + FloatToStr(I); Inc(I); End;
Ответ на вопрос 3: » Спойлер (нажмите, чтобы прочесть) « В обработчики события OnChange компонента ComboBox пишим допустим так: begin if ComboBox1.Text then Image1.Picture.LoadFromFile("Ya.jpg") else if ComboBox1.Text then Image1.Picture.LoadFromFile("Lena.jpg") else Image1.Picture.LoadFromFile("Default.jpg") end; Можно и так: begin try Image1.Picture.LoadFromFile(ComboBox1.Text + ".jpg"); except Image1.Picture.LoadFromFile("Default.jpg"); end; end; Да и еще буран всяких способов, зависит от нужды их использования.
Сообщение отредактировал VitBank - 17.6.2008, 22:09
|
|
|
|
VitBank |
17.6.2008, 21:54
|
Поддерживает разговор
Группа: Sibnet-club
Сообщений: 236
Регистрация: 8.5.2008
Пользователь №: 32 284
Репутация: 12
|
Цитата(x0man @ 17.6.2008, 20:35) VitBank Что то мне не верится что case будет работать со строками, там число должно быть...
И правла, в Си вроде работает или нет я уже год непрограммировал позабывал некоторое. Все подкоректировал, сделал через if. Сообщение отредактировал VitBank - 17.6.2008, 22:11
|
|
|
|
oL___Eg |
18.6.2008, 13:18
|
Синька чмо, похмелье лох
Группа: Sibnet-club
Сообщений: 188
Регистрация: 24.3.2008
Пользователь №: 26 587
Репутация: 20
|
Цитата Все подкоректировал, сделал через if. Я вместо "Я" поставил 0, вместо "Лена" - 1, и т.д. работает через case спс! Знает кто-нибуть как на обычную кнопку повесить функцию отдельной кнопки dbnavigator'a, например, при нажатии на button1 выполняется добавление новой записи и обновление базы? Я же обещал завалить вопросами Ещё вопрос? Как сделать чтоб надпись мигала? Сообщение отредактировал oL___Eg - 18.6.2008, 13:38
|
|
|
|
VitBank |
18.6.2008, 13:53
|
Поддерживает разговор
Группа: Sibnet-club
Сообщений: 236
Регистрация: 8.5.2008
Пользователь №: 32 284
Репутация: 12
|
Через case будет так работать, но если создание списка идет до компидяции программы, а так могут возникнуть глюки. С компонентом dbnavigator никогда неработал. А вот мерцающую надпись можно сделать так: 1. Ставиш компонент Timer и выставляеш в в поле Interval частоту мерцания (в милиссекундах). 2. В обработчике события пишишь: Код if Label1.Visible then Label1.Visible := False else Label1.Visible := True;
|
|
|
|
mephisto |
18.6.2008, 15:41
|
ортодоксальный линуксоид
Группа: VIP
Сообщений: 7 724
Регистрация: 17.11.2007
Из: столицы вашей родины
Пользователь №: 10 849
|
Цитата(Linky @ 18.6.2008, 14:17) Вопрос по Делфи Заполнить анкету на сайте, нужно чтобы программа писала в поля для ввода, можно ли это сделать через компонент TWebBrowser? если нет, то как... хотя бы просто подскажите как "получить контроль", например есть 2 поля для ввода: имя |_____| фамилия |_______| , чтобы их заполнить
Молодой человек учите мат часть, вам в google на предмет GET и POST
|
|
|
|
Segate |
18.6.2008, 16:08
|
:)
Группа: Sibnet-club
Сообщений: 1 677
Регистрация: 9.1.2008
Из: Новосибирск
Пользователь №: 16 184
Репутация: 171
|
Цитата(oL___Eg @ 18.6.2008, 14:49) Вопрос про сообщения: как сделать чтоб при вводе в поле edit несоответствующего текста(в Фамилия только текст, без цифр; в Телефон только цифры без текста) сразу выскакивало сообщение?
Как запретить изменение размеров окна?
Чтоб размер окна не менялся мона к примеру параметр главной формы BorderStyle изменить на bsDialog. А насчет первого ща напишу быстренько пример Вот насчет эдитов: Сообщение отредактировал Segate - 18.6.2008, 16:27
Прикрепленные файлы
___________.rar ( 170.82 килобайт )
Кол-во скачиваний: 100
|
|
|
|
|
|
1 чел. просматривают этот форум (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|