[M.i.d.n.i.g.h.t Software]

Можете превести код вот это пункта меню

Код:

1 2 3 4 5

procedure TForm1.N1Click(Sender: TObject); begin   Memo1.Lines.Add(TimeToStr(Now));   Memo1.Lines.Add(DateToStr(Now)); end;

код сверху непомогает! в блокноте windows время и дата вставляються по другому

вот так в блокноте windows:

а с кодом сверху получаеться вот так:

[lmikle]

О господи!!!

Код:

1	Memo1.Lines.Add(DateTimeToStr(Now));

Ну и формат даты-времени нужный себе поставь.

[M.i.d.n.i.g.h.t Software]

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

О господи!!!

Код:

Ну и формат даты-времени нужный себе поставь.

И чё это тоже самое што и

Код:

1 2	Memo1.Lines.Add(TimeToStr(Now)); Memo1.Lines.Add(DateToStr(Now));

только время у тебя после даты идёт!

да кстати стлб остаёться на 1

[M.A.D.M.A.N.]

Код:

1	memo1.text:=memo1.text+DateTimeToStr(Date+Time);

в твоем коде идет добавление строчки.

[M.A.D.M.A.N.]

с вставкой в место курсора надо?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TfrmMain.OnKeyClick(Sender: TObject); var Symbol:String;     _cursorpos:Integer;     Temp,temp2:String; begin   Symbol:=(Sender as TSpeedButton).Caption;   SendMessage(memFunc.Handle, EM_GETSEL, LongInt(@_cursorpos), 0);   Try     Temp:=Copy(memFunc.Text,1,_cursorpos);     Temp2:=Copy(memFunc.Text,_cursorpos+1,Length(memFunc.Text));     memFunc.Clear;   Finally     memFunc.Text:=Temp+Symbol+Temp2;   End;   SendMessage(memFunc.Handle, EM_SETSEL, _cursorpos+Length(Symbol), _cursorpos+Length(Symbol)); end;

[M.i.d.n.i.g.h.t Software]

Сообщение от M.A.D.M.A.N.

с вставкой в место курсора надо?

Код:

Мне в Memo1 нужно

кароче просто превидете полный код этого пункта меню и всё

[M.A.D.M.A.N.]

Да что ж такое, возьми да исправь на Memo1
Поройся в разделе Windows, там где то параметр получения координаты по X и Y.

[M.i.d.n.i.g.h.t Software]

Сообщение от M.A.D.M.A.N.

Да что ж такое, возьми да исправь на Memo1
Поройся в разделе Windows, там где то параметр получения координаты по X и Y.

да чёто я ступил! сделай прогу с этим пунктом меню и memo1 так легче будет! и выложи

[M.A.D.M.A.N.]

Блин, дезинформацию тебе подсунул
Вот, короче с помощью этой процедурки получаеш позицию курсора

Код:

1	SendMessage(memo1.Handle, EM_GETPOS, LongInt(@X), LongInt(@Y));

[M.i.d.n.i.g.h.t Software]

Сообщение от M.A.D.M.A.N.

Блин, дезинформацию тебе подсунул
Вот, короче с помощью этой процедурки получаеш позицию курсора

Код:

ну сделай прогу с этим пунктом меню и memo1 плиззз

[M.A.D.M.A.N.]

Ты уж прости, у нас сейчас ночь, я иду спать, стучи в асю (только завтра).

[M.i.d.n.i.g.h.t Software]

Сообщение от M.A.D.M.A.N.

Ты уж прости, у нас сейчас ночь, я иду спать, стучи в асю (только завтра).

ок! до завтро но у меня 9 чесов вечера сейчас!