Delphi

[Blak-n-Wait]

e^1.1+cos(5)

если это e^(1.1+cos(5)) - то exp(1.1+cos(5))
если это (e^(1.1))+cos(5) - то exp(1.1)+cos(5)

[][мырь]

А как через Delphi закрыть Word но без сохранения документа?

[BATMEN]

Послать сообщение закрыть

SendMessage()

Нужно знать класс и имя окна, есть прога (где то в папках с делфей), она отслеживает сообщения и все такое. Название не помню, че то там цифры 32 присутствуют вроде. Сам ворд закрывать не пробовал, попозже попобую. Делфю закрывал.

[BATMEN]

Мош тогда так:

Код: Выделить всё

... 
begin 

case MaskEdit1.Text of 
'0000': begin ... end; 
'1111': begin ... end; 
end;

Вообще так то это почти тоже самое что и if ... then , строки же можно сравинивать, значит и здесь должно работать.

[BATMEN]

Че то я не понял...

[Blak-n-Wait]

[BATMEN]

Там было !!! Сообщение ))) В следующий раз буду всегда всю цЫтату лепить.

[neXeuse]

Как цвет из DELPHI перевести в HTML
(Например в DELPHI красный цвет- 255 ,а в HTML- FF0000)?
Или как из 10-ричной системы перевести в 16-ричную?

[BATMEN]

Я давно как то делал, искал искал щас, так и не нашел. Почтиай вот это. Там ничего сложного.

[BATMEN]

Вот я еще какую каку мутил, погляди, может чем поможет.

[neXeuse]

Batman,спасибо.Щас проверю.

[VEKTOR]

Начинает по маленьку получаться))
Вот первый вопрос, летающий пуск может слышали про такое?

Вот кодик:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, System.ComponentModel, Borland.Vcl.ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.nfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Left:=-100;//Убрать окно за левую границу экрана
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:=Integer;
h:=THandle;
begin
Visible:=true; //Сделать окно видимым

//установить верхнюю позицию окна в левый нижний угол экрана
Top:=Screen.Height-Height;
Left:=-1

//создаётся пустой указатель h, который будет использоваться для задержки
h:=CreateEvent(nil, true,false 'et');

//сейчас будем поднимать кнопку
//от 1 до 80 выполнять действия от begin до end
for i:=1 to 80 do
begin
//увеличивать значение верхней позиции окна,с кнопкой
Top:=screen.Height-Height-i*5;
Repaint //перерисовать окно
WaitForSingleObject(h,15);//задержка в 5 миллисекунд
end;

for i:=80 downto 1 do
begin
Top:=screen.Height-Height-i*5;
Repaint;
WaiForSingleObject(h,15);
end;

Closehandle(h);
Visible:=false
end;

end.

В Integer на этой строчке, выдаёт ошибку почему? Инфа с pdf файла можно копировать? А то некоторые фрагменты печатал сам, по типу Integer(( Помогайте

[BATMEN]

Ну ты дал, как ты программируешь вообще если не можешь обраружить такую элементарную ошибку. Пиши так:

var
i:Integer;
h:THandle;
begin

[VEKTOR]

С этим я разобрался сам , а вот как с этим быть?
h:=CreateEvent(nil, true,false 'et'); выдаёт ошибку на этой строке((, равно убирал не канает((

[Blak-n-Wait]

Эта... ты если программить не умеешь - так читай вумные книги, а не тупо копируй примеры из других мест. И будет тебе щастье!

[VEKTOR]

Ну я же тока начинаю, осваиваюсь, чо по чём, чо куда, если я в этом не разберусь куда мне дальше то топать

[Blak-n-Wait]

Ты по порядку начинай, с начала.

[VEKTOR]

А начало где? Basic 87 года до нашей эры? Откуда начало то? Сразу с Дэлфи и начинать, потом си++ и всё остальное

[Blak-n-Wait]

Так ты хотя бы дельфи с начала начни, а не с середины...
Ибо вот эти вещи

var
i:=Integer;
h:=THandle;

равно убирал не канает((

показывают, что начала ты ни хрена не знаешь.

[Executor]

С этим я разобрался сам , а вот как с этим быть?
h:=CreateEvent(nil, true,false 'et'); выдаёт ошибку на этой строке((, равно убирал не канает((

Да уж... Запятую после false поставь...

З.Ы. Ты с синтаксисом языка сначала разбирись, как правильно писать, а потом уже пиши...

[BATMEN]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if (Sender as TCheckBox).Checked = True then
begin
(Sender as TEdit).Text:= '';
(Sender as TEdit).Enabled:= True;
(Sender as TEdit).Color:= clWindow;
end
else
begin
(Sender as TEdit).Text:= '-----------------';
(Sender as TEdit).Enabled:= False;
(Sender as TEdit).Color:= clBtnFace;
end;
end;

У меня на форме 5 TCheckBox и 5 TEdit, написал процедуру для CheckBox1 и в свойсвах для каждых остальных указал процедуру первого. Теперь как сделать, чтобы для CheckBox выполнялся код выделенный красным для каждого Edit?

попробуй так:

var Edit: array of TEdit;
i : integer;
const n = 10;
implamentation

for i := 0 to n do
begin
SetLength(Edit, length(edit)+1);
edit := TEdit.create(...);
end;
Ну или че то вроде того...



Вопрос: Как сделать, чтобы был фон - какая-нибудь картинка, а на этом фоне можно было писать разными шрифтами. Типа чтобы как на richedit на фоне была картинка

[BATMEN]

Типа вот этого надо:

if openpictureDialog1.Execute then
Richedit1.Brush.Bitmap.LoadFromFile(openPictureDialog1.FileName);


почему то ошибка вылазит.

[BATMEN]

Какая то нездоровая фигня. Рисунок видно, только если у объекта включен dbuffer, причем картинка помещается над текстом, а мне надо наоборот.

if openpictureDialog1.Execute then
begin
Richedit1.DoubleBuffered := true;
RichEdit1.Brush.Bitmap := TBitMap.Create;
Richedit1.Brush.Bitmap.LoadFromFile(openPictureDialog1.FileName);

end;


Может если лучше способ

[BATMEN]

Блин, кака какая то Вобщем нада как то сделать, чтобы была картинка, и во время работы программы можно было загрузить картинку (ну в этом сложности нет) и на картинке можно было писать текст разными шрифтами в разных местах. Мне надо чтобы потом на печать отправить. Подкиньте идейку.

[BATMEN]

Емаеблин.

Код: Выделить всё

  RoText : array of TLabel;

implementation

{$R *.dfm}
procedure TForm1.CreateCaption(x,y: integer; text: string);
begin
SetLength(RoText, Length(RoText)+1);
RoText[length(RoText)-1] := TLabel.Create(self);
RoText[length(RoText)-1].Parent := self;
RoText[length(RoText)-1].Left := X;
RoText[length(RoText)-1].Top  := Y;
RoText[length(Rotext)-1].Transparent := true;
RoText[length(Rotext)-1].Caption := Text;
end;

Если сделано так и много лэйбелов, то как сделать, чтобы при клике по лабелу, возвращался его номер в массиве ???