[Delphi]/[Pascal] Задай вопрос, получи ответ

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 205 из 677

205

Опции темы

Поиск в этой теме

Опции просмотра

#2041

15.08.2008, 21:43

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

С нами: 10653446

Репутация: 836

Цитата:

Сообщение от _nic

вообщем надо засунуть текст с таким _http://img388.imageshack.us/my.php?image=77973013xh5.jpg форматированием

RichEdit.
редактируешь, затем сохраняешь файл с расширением rtf

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

#2042

15.08.2008, 21:47

alextoun

Постоянный

Регистрация: 07.05.2006

Сообщений: 732

С нами: 10532546

Репутация: 811

тут такая жопа возникла

Цитата:

нужно сделать на делфи прогу
тупую формочку
где палитра 16 ричного кода цвета
ставиш мышку на нужном цвете а он показывает код цвета

хз как реализовать. Мы в инсте ещё делфи не проходили :d
типа как в фотошопе

Последний раз редактировалось alextoun; 15.08.2008 в 21:50..

#2043

15.08.2008, 23:32

_nic

Постоянный

Регистрация: 05.05.2006

Сообщений: 743

С нами: 10535289

Репутация: 107

Цитата:

Сообщение от W!z@rD

RichEdit.
редактируешь, затем сохраняешь файл с расширением rtf

нельзя.файл должен быть только один то есть exe

#2044

16.08.2008, 03:24

diznt

Постоянный

Регистрация: 31.01.2008

Сообщений: 643

С нами: 9619229

Репутация: 445

И так я хочу создать калькулятор
Задал кнопке событие чтобы оно писало в мое окошечко где все вводиться

Код:

procedure TForm1.but1Click(Sender: TObject);
begin
 txtN.Text:='1';
end;

Так он мне выводит в строчку одну единицу а я хочу чтобы было столько единиц скока я нажал на кнопку
Собственно как изменить код чтобы так и было ( как я пожелаю )

И вот я еще с чем столкнулся
Написал событие

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if rad1.Checked:=True then
  begin
   memo1.Lines.Add(txtA.Text);
   txtB.Text(txtA.Text);
   txtC.Text(txtA.Text);
  end;
end;

Так оно ругаеться

Последний раз редактировалось diznt; 16.08.2008 в 06:22..

#2045

16.08.2008, 07:51

0x0c0de

Постоянный

Регистрация: 25.05.2007

Сообщений: 448

С нами: 9981026

Репутация: 1564

diznt, надо так

Код:

procedure TForm1.but1Click(Sender: TObject);
begin
 txtN.Text:='1' + txtN.Text;
end;

и...

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if rad1.Checked then
  begin
   memo1.Lines.Add(txtA.Text);
   txtB.Text(txtA.Text);
   txtC.Text(txtA.Text);
  end;
end;

Вы в if присваиваите, а это неверно.

Последний раз редактировалось 0x0c0de; 16.08.2008 в 07:57..

#2046

16.08.2008, 16:32

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

С нами: 10653446

Репутация: 836

Цитата:

Сообщение от _nic

нельзя.файл должен быть только один то есть exe

работа с ресурсами отменена по дефтолу?!!!!!!!

#2047

16.08.2008, 16:45

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

С нами: 10653446

Репутация: 836

Цитата:

Сообщение от alextoun

тут такая жопа возникла

хз как реализовать. Мы в инсте ещё делфи не проходили :d
типа как в фотошопе

Если я тебя правильно понял:

procedure TForm1.Button1Click(Sender: TObject);
var
rgb: Cardinal;
begin
rgb:=ColorBox1.Selected;
Edit1.Text:=Format('%2x%2x%2x', [GetRValue(rgb), GetGValue(rgb), GetBValue(rgb)]);
end;

на форме:
1. TButton
2. TColorBox
3. TEdit

выбираешь в ColorBox'e цвет
щелкаешь на батон
в Edit'e видишь код

#2048

18.08.2008, 08:03

ufalog

Участник форума

Регистрация: 28.07.2007

Сообщений: 177

С нами: 9888748

Репутация: 5

как установить иконку в приложении написаном в делфи?

#2049

18.08.2008, 08:32

~~zl0y~~

Banned

Регистрация: 13.09.2006

Сообщений: 523

С нами: 10346786

Репутация: 925

Project->Options->Application

#2050

19.08.2008, 00:42

z01b

Постоянный

Регистрация: 05.01.2007

Сообщений: 508

С нами: 10182506

Репутация: 1393

Цитата:

Сообщение от zl0y

Project->Options->Application

Или заменить в ресурсах =)

Страница 205 из 677

205

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2571	20.06.2026 14:48
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 7 (пользователей: 0 , гостей: 7)

Быстрый переход