Editor de texto.

[ixMike]

El Memo ya tiene su propio menú de sistema. Sólo es conveniente cambiarlo si puedes añadir más cosas.

¿Fotitos chorras? En el CD Delphi Pack 1 venían un montón... pero ya no sé qué fue de eso

¿Parar el proceso de cerrado? ¿Te refieres a que al darle a la "x" de cerrar, o pulsar Alt + F4, o llamar al método Close; no se cierre el programa? En en evento OnCloseQuery del Form principal, pon CanClose:=False; pero ten en cuenta que debes poner alguna condición, sino sólo podrás salir con Application.Terminate; o con Halt;


Salu2

[rauros]

Okey pero el canclose va con application? Con form? Sola? he probado con todas pero me dan errores.

Código Delphi [-]
if cambiado = true then
canclose:=false;

[jachguate]

Eso va en el evento OnCloseQuery y podrías abreviarlo en:

Código Delphi [-]
begin
  CanClose := not Cambiado;

Hasta luego.

[ixMike]

Empezado por rauros

Okey pero el canclose va con application? Con form? Sola? he probado con todas pero me dan errores.

Creo que lo he dejado claro

Empezado por ixMike

En en evento OnCloseQuery del Form principal, pon CanClose:=False;

[rauros]

Okey, ahora quiero saber como coger el valor de Tform1.memo1.lines desde tform2. Gracias por la ayuda.

Por si no ha quedado claro. Quiero coger lo escrito en un memo (memo1) de un form (Tform1) y usarlo en otro form (Tform2).

[ixMike]

El form está en una unit. Tan sólo tienes que añadir esa unit a la uses del otro form.

Aunque ni si quiera eso es necesario, sencillamente, desde cualquier parte de form2 escribe:

Código Delphi [-]
Form1.Memo1.Lines...

Al darle a compilar, te saldrá un mensaje de Delphi preguntando si quieres añadir la unit. Tú sólo di que sí.


Salu2.

[rauros]

Oye ahora es una duda sobre sintaxis sobre lo que dijo jachguate.
En matemáticas cuando niegas algo se convierte al contrario. Quiero saber que si not true = false. Por lo de canclose.
CanClose := not Cambiado;

Y otra cosa. Si canclose:=true; se para automáticamente el programa?
O termina procedure y entonces si canclose:=true lo cierra?

[[Delphius]]

Hola rauros, creería que la ayuda que acompaña a Delphi lo explica bien.

Use OnClose to perform special processing when the form closes. The OnClose event specifies which event handler to call when a form is about to close. The handler specified by OnClose might, for example, test to make sure all fields in a data-entry form have valid contents before allowing the form to close.

A form is closed by the Close method or when the user chooses Close from the form's system menu.

The TCloseEvent type points to a method that handles the closing of a form. The value of the Action parameter determines if the form actually closes. These are the possible values of Action:

Value Meaning

caNone The form is not allowed to close, so nothing happens.
caHide The form is not closed, but just hidden. Your application can still access a hidden form.
caFree The form is closed and all allocated memory for the form is freed.
caMinimize The form is minimized, rather than closed.

To close the form and free it in an OnClose event, set Action to caFree.

Note: When the application shuts down, the main form receives an OnClose event, but any child forms do not receive the OnClose event.

Si tienes una única form, ¿que crees que sucede cuando se cierra?

Por el tema del NOT es como dices, el negado:

Valor |NOT valor
----------------
true  |False
False |True

Además, si realizas una búsqueda sobre CanClose en los foros podrás llegar a comprender mejor su uso.

Saludos,

[rauros]

Okey. Lo entiendo al dedillo. Ahora para complementarlo necesitaría saber que valor alberga la posición del puntero del memo en cada momento. Por ejemplo:

Saludillos hijos de cristo

La posición sería 1:9

abc
def
ghi

La posición sería 3:3

Saludillos y gracias por toda la ayuda.