![]() |
|
#1
|
|||
|
|||
![]() Можете превести код вот это пункта меню
![]() Код:
procedure TForm1.N1Click(Sender: TObject); begin Memo1.Lines.Add(TimeToStr(Now)); Memo1.Lines.Add(DateToStr(Now)); end; код сверху непомогает! в блокноте windows время и дата вставляються по другому вот так в блокноте windows: ![]() а с кодом сверху получаеться вот так: ![]() Последний раз редактировалось M.i.d.n.i.g.h.t Software, 12.11.2008 в 20:49. |
#2
|
|||
|
|||
![]() О господи!!!
Код:
Memo1.Lines.Add(DateTimeToStr(Now)); Ну и формат даты-времени нужный себе поставь. |
#3
|
|||
|
|||
![]() Цитата:
Код:
Memo1.Lines.Add(TimeToStr(Now)); Memo1.Lines.Add(DateToStr(Now)); да кстати стлб остаёться на 1 Последний раз редактировалось M.i.d.n.i.g.h.t Software, 12.11.2008 в 20:54. |
#4
|
||||
|
||||
![]() Код:
memo1.text:=memo1.text+DateTimeToStr(Date+Time); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 12.11.2008 в 21:08. |
#5
|
||||
|
||||
![]() с вставкой в место курсора надо?
Код:
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; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
|||
|
|||
![]() Цитата:
кароче просто превидете полный код этого пункта меню и всё |
#7
|
||||
|
||||
![]() Да что ж такое, возьми да исправь на Memo1
Поройся в разделе Windows, там где то параметр получения координаты по X и Y. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 12.11.2008 в 21:16. |
#8
|
|||
|
|||
![]() Цитата:
|
#9
|
||||
|
||||
![]() Блин, дезинформацию тебе подсунул
Вот, короче с помощью этой процедурки получаеш позицию курсора Код:
SendMessage(memo1.Handle, EM_GETPOS, LongInt(@X), LongInt(@Y)); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#10
|
|||
|
|||
![]() Цитата:
|
#11
|
||||
|
||||
![]() Ты уж прости, у нас сейчас ночь, я иду спать, стучи в асю (только завтра).
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#12
|
|||
|
|||
![]() Цитата:
![]() |