Cita:
|
Empezado por jam888
¿ahora como puedo cambiarle el tamaño?
|
Si te vale hacerlo mediante teclado es bastante sencillo; Ésto te puede servir de guía (evento OnKeyDown del Edit):
Código Delphi
[-]
var
edt:TEdit;
begin
if not (Sender is TEdit) then begin
Exit;
end
else begin
edt := TEdit(Sender);
end;
if (key = VK_DOWN) and (Shift = [ssCtrl]) then begin
edt.Height := edt.Height + 5;
end;
if (key = VK_UP) and (Shift = [ssCtrl]) then begin
edt.Height := edt.Height - 5;
end;
if (key = VK_LEFT) and (Shift = [ssCtrl]) then begin
edt.Width := edt.Width - 5;
end;
if (key = VK_RIGHT) and (Shift = [ssCtrl]) then begin
edt.Width := edt.Width + 5;
end;
Utiliza el CTRL + las flechas para modificar el tamaño.